Datei wird beim erstellen gelöscht

[RavenIV]

servus Sprint

deine Lösung ist auch schön.
aber ich liebe streams und ich liebe objekte und ich liebe exceptions.

jedem das seine, mir das meiste...


P.S. die lösung meines problems:

Delphi-Quellcode:

procedure TFoRemotetest.IBSQLMonitorSQL (EventText: string; EventTime: TDateTime);
var
  FileName: string;
  EventStream: TStringStream;
  FileObj: TFileStream;
begin
  FileName := 'D:\db_i.log';
  EventStream := TStringStream.Create (EventText);
  try
    FileObj := TFileStream.Create (FileName, fmOpenReadWrite or fmShareDenyNone);
  except
    FileObj := TFileStream.Create (FileName, fmCreate or fmShareDenyNone);
  end;
  FileObj.Seek (FileObj.Size, soFromBeginning);
  FileObj.CopyFrom (EventStream, 0);
  FileObj.Free;
end;

gruessle