TFilestream.LoadFromFile welcher Defaultlockmechanismus wird genutzt

[KodeZwerg]

Mit dem TStream kenn ich mich nicht so super aus aber falls Dir auch ein Handle zu einer Datei ausreicht könntest Du Sie so öffnen ohne das andere Prozesse (oder Dein eigener) meckern:

Delphi-Quellcode:

hFile := CreateFile(pChar(FullPathFilename), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0);
if (hFile = INVALID_HANDLE_VALUE) then
 begin
  // Fehler: Dateizugriff nicht möglich
  Exit;
 end;
  // mach was mit dem Handle, Beispiel: Daten in einen Puffer laden. ReadFile() würde sich dafür eignen.
CloseHandle(hFile);

PChar für alte Delphi's.

[Uwe Raabe]

Zitat von KodeZwerg:

hFile := CreateFile(pChar(FullPathFilename), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0);

Das ist interessanterweise genau das, was TFileStream.Create(Filename, fmOpenRead or fmShareDenyRead) intern tut.

Übrigens: PChar funktioniert auch für neue Delphiversionen.

[KodeZwerg]

Wobei ich mir die SDK/Win32 Hilfe nahm um den Befehl so zu nutzen (WinApi Programm),
das TFileStream das auch so einsetzt wusst ich bis jetzt auch noch nicht, hab ich noch nie reingeschaut aber ja, interessant!
Ich nutze es für Hashes/Diggest oder simples bytecompare bzw generell binär-daten lesen.
Wenn man sich einmal dran gewöhnt hat, vermisst man kaum die TStream-Deluxe funktionen ;-D

ps: Sorry falls das mit PChar falsch/richtig angeben wurde!

[v2afrank]

Auf jeden Fall Danke für Eure Hilfe. Ich werde es heute direkt einmal testen