Hiermit habe ich eine Datei erstellt und blockiert:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
begin
assignFile(f,ExtractFilePath(ParamStr(0))+'test.txt');
rewrite(f);
while true do
begin
writeLn(f,'test test test test test test test test');
application.processMessages;
end;
end;
Hiermit kann ich aus der Datei lesen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
fileHandle : Cardinal;
buff: array[0..10] of char;
i: Integer;
begin
fileHandle := fileOpen(ExtractFilePath(ParamStr(0))+'test.txt',fmOpenRead or fmShareDenyNone);
i:=fileRead(fileHandle,buff[0],length(buff));
closeFile(fileHandle);
edit1.Text:=buff+' '+IntToStr(i);
end;
Grüße
Klaus