hallo nochmal,
das listing in dem artikel zudem der link führt
funktioniert bei mir leider nich. ich benutze delphi 7
und bekomme bei der zeile
Zitat:
DecodeHeaderfromFile(FFileText);
die fehlermeldung: undefinierter bezeichner
vom compiler
hier nochmal das komplette listing
Delphi-Quellcode:
procedure TLTC2440_DataList.LoadData(AFileName: String);
var AHStream : THandleStream;
AFileHandle : THandle;
begin
FFileName := AFileName;
Clear;
AFileHandle := CreateFile(PChar(AFileName), GENERIC_READ, FILE_SHARE_READ or FILE_SHARE_WRITE,
0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
if AFileHandle <> INVALID_HANDLE_VALUE then begin
FFileText := TStringList.Create;
try
AHStream := THandleStream.Create(AFileHandle);
try
FFileText.LoadFromStream(AHStream);
finally
FreeAndNil(AHStream);
end;
finally
CloseHandle(AFileHandle);
end;
DecodeHeaderfromFile(FFileText);
DecodeValues(FFileText);
finally
FreeAndNil(FFileText);
end;
end;
end;
ratloser Klaus :)