mORMot and Open Source friends
Check-in [5dd3bcaefa]
Check-in [5dd3bcaefa]
Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
| Comment: | fix unexpected error dialog |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
5dd3bcaefa49ba12a5db6654fa37b33f |
| User & Date: | User 2012-05-28 13:29:13 |
|
2012-05-28
| ||
| 13:40 | 2nd occurence of this Inc(PW) in TServiceFactory.AddMethodsFromTypeInfo method was already corrected as such, but not the first - fix [345611403f] check-in: 7d5c731817 user: User tags: trunk | |
| 13:29 | fix unexpected error dialog check-in: 5dd3bcaefa user: User tags: trunk | |
|
2012-05-26
| ||
| 19:00 | documentation fixes check-in: 82dc3ba8e1 user: User tags: trunk | |
Changes to SQLite3/SQLite3Commons.pas.
18310 18311 18312 18313 18314 18315 18316 18317 18318 18319 18320 18321 18322 18323 18324 |
fServerPipe := FileOpen(fPipeName,fmOpenReadWrite); // recreate connection
if (fServerPipe=Invalid_Handle_Value) or
(FileWrite(fServerPipe,Card,4)<>4) then begin
Card := GetLastError;
{$ifdef WITHLOG}
Log.Log(sllLastError,'PipeName=%',[fPipeName],self);
{$endif}
MessageBox(0,pointer(SysErrorMessage(Card)),pointer(fPipeName),0);
if fServerPipe<>Invalid_Handle_Value then
FileClose(fServerPipe);
fServerPipe := 0;
exit; // no existing pipe
end;
end;
end;
|
< |
18310 18311 18312 18313 18314 18315 18316 18317 18318 18319 18320 18321 18322 18323 |
fServerPipe := FileOpen(fPipeName,fmOpenReadWrite); // recreate connection
if (fServerPipe=Invalid_Handle_Value) or
(FileWrite(fServerPipe,Card,4)<>4) then begin
Card := GetLastError;
{$ifdef WITHLOG}
Log.Log(sllLastError,'PipeName=%',[fPipeName],self);
{$endif}
if fServerPipe<>Invalid_Handle_Value then
FileClose(fServerPipe);
fServerPipe := 0;
exit; // no existing pipe
end;
end;
end;
|