Hallo zusammen,
leider finde ich keine Lösung, warm die Funktion "StrPCopy" nicht funktioniert.
Ich versuche von einem String den Inhalt ins PChar zu laden:
Delphi-Quellcode:
...
Mem := TFileStream.Create(Filename, fmOpenRead);
Data := StrAlloc(Mem.Size + 1);
ZeroMemory(Data, Mem.Size);
try
i := 0;
while Mem.Position < Mem.Size do
begin
Mem.Read(Buf, 1);
S := S + Chr(Buf);
Data[i] := Chr(Buf);
Inc(i);
end;
StrPCopy(Data, S);
...
finally
StrDispose(Data);
Mem.Free;
end;
Bei der StrPCopy-Funktion wird der Inhalt von dem String einfach nicht in das PChar kopiert!
Ich hoffe hier weiß jemand eine Lösung.
Gruß, Moony