Guid erzeugen

[Delbor]

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