|
Registriert seit: 2. Dez 2009
Ort: München
320 Beiträge
Lazarus
|
Re: Connection Closed Gracefully.
21. Dez 2009, 01:54
Zitat von RedShakal:
Was kann ich noch tun?
Hallo RedShakal, womöglich liegts an der IO Prüfung?
Delphi-Quellcode:
AssignFile(f, 'log\' + DateToStr(Date) + '.txt');
if FileExists('log\' + DateToStr(Date) + '.txt') then
{$I-} Append(f) else Rewrite(f); {$I+}
if IOResult <> 0 then RaiseLastWin32Error;
Was gibt hier IOResult aus?
lg. Astat
Lanthan Astat
06810110811210410503210511511603209711003210010110 9032084097103
03211611111604403209711003210010110903210010510103 2108101116122
11610103209010110510810103206711110010103210511003 2068101108112
10410503210310111509910411410510109810111003211910 5114100046
|