Hi zusammen
Erstmal muss ich eine Frage stellen, für die ich nach längerem suchen keine Antwort finde. Wieso
funktioniert das problemlos wird hier der Parameter 'Little' richtig erkannt:
Delphi-Quellcode:
function TOpenFileFrame.CreateIDFile(LPath :
String): TBytes;
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
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(Little);
end;
end;
während das hier nicht tut:
Delphi-Quellcode:
function TIdentifierClass.GetBinaryGuid: TGuid;
begin
FGuid := FGuid.NewGuid;
Result := FGuid.ToByteArray(Little); // SysUtils ist in uses enthalten
end;
Korpus Delicti ist der Parameter Little => unbekannter Bezeichner.
FGuid ist ein Feld vom Typ TGuid.
@Sir Rufo: Sehe ich das richtig: du erzeugst ein Konsolenprogramm, das im zu idsentifizierenden Ordner zu liegen kommt, den
GUID erzeugt und den aktuellen Pfad zurückgibt?
Gruss
Delbor