Hi zusammen
Folgende Funktion soll mir eine
GUID erzeugen, ein File anlegen, da die
Guid speichern und diese dann als Bytearray zurüchgeben:
Delphi-Quellcode:
function TOpenFileFrame.CreateIDFile(LPath :
String): TByteArray;
var IdFile : TFileStream; ID_GUID: TGUID; IdStr:
String;
UniqueName: TEndian; Len: Longint;
begin
if CreateGUID(ID_GUID) <> 0
then
ShowMessage('
Creating GUID failed!')
else
begin
Showmessage('
Size of UniqueName := ' + IntToStr(SizeOf(UniqueName)));
IdFile := TFileStream.Create(LPath,fmCreate);
try
Len := Length(GUIDToString(ID_GUID));
IdFile.
Write(Len, SizeOf(Len));
IdStr := GUIDToString(ID_GUID);
IdFile.
Write(IdStr, Len);
finally
IdFile.Free;
end;
Result := ID_Guid.ToByteArray(ID_GUID);
end;
end;
Aufgrufen wird diese Funktion, wenn die Pfade vorhandener Bilddateien eingelesen werden:
Delphi-Quellcode:
if not FileExists(LPath+'IdentFile.cgf') then
begin // ist in dem Ordner kein IdentifikationsFile
ByteID := CreateIDFile(LPath);
end;
Einen Compilierungsversuch quittiert Delphi wie folgt:
Zitat:
[dcc32 Fehler] FileOpenFrameUnit.pas(196): E2010 Inkompatible Typen: 'TEndian' und 'TGUID'
Der Rückgabewert soll in einer
DB gespeichert werden.
Was mache ich falsch?
Gruss
Delbor