Einzelnen Beitrag anzeigen

Benutzerbild von DGL-luke
DGL-luke

Registriert seit: 1. Apr 2005
Ort: Bad Tölz
4.149 Beiträge
 
Delphi 2006 Professional
 
#3

Re: CopyFile gibt Datei nicht frei?

  Alt 8. Dez 2006, 22:52
ich werd mir das ansehen.

EDIT: Scheint mir aber auch arg asynchron zu sein...

EDIT: ok...

Delphi-Quellcode:
 
      //generate filenames
      old := BaseDir + IncludeTrailingPathDelimiter(LOGDIR) + Logs[LogIdent];
      new := BaseDir + IncludeTrailingPathDelimiter(PUBDIR) + Logs[LogIdent];

      MS := TMemoryStream.Create;
      try
        MS.LoadFromFile(old);
        MS.SaveToFile(new);
      finally
        MS.Free;
      end;

      //fill formal data
      LI.YourHandle := AppHandle;
      LI.LogIdentifier := LogIdent;

      //write formal data
      MS := TMemoryStream.Create;
      try
        MS.Write(LI,SizeOf(LI));
        MS.Write(new[1], length(new));

        //fill copydatastruct
        CpDt.dwData := Integer(ltReadAnswer);
        CpDt.cbData := MS.Size;
        CpDt.lpData := MS.Memory;

        TLogMessageThread.Create(WHandle,AppHandle,CpDt,ThreadLog);
      finally
        MS.Free;
      end;
Ich dachte mir, mach ichs halt klassisch, nimmst einen Memorystream... aber bei dem ist es genau das selbe Symptom... wie geht denn das? Ich fasse die "public"-Datei nirgends sonst an...
Lukas Erlacher
Suche Grafiktablett. Spenden/Gebrauchtangebote willkommen.
Gotteskrieger gesucht!
For it is the chief characteristic of the religion of science that it works. - Isaac Asimov, Foundation I, Buch 1
  Mit Zitat antworten Zitat