Hey Leute!
Hab da ein kleines Problem und zwar habe ich einen Server der Dateien empfangen soll. Es klappt alles, jedoch kommt der inhalt der Datei nicht an weil etwas an dieser Funktion falsch ist
Delphi-Quellcode:
procedure TFilesForm.SetFileData(const FileData: string);
var
fs : TFileStream;
iLen: Integer;
Bfr: Pointer;
begin
SaveDialog1.FileName := CurFile;
if SaveDialog1.Execute then begin
iLen := Length(FileData);
GetMem(Bfr, iLen);
try
Socket.ReceiveBuf(Bfr^, iLen);
fs.Write(Bfr^, iLen);
finally
FreeMem(Bfr);
end;
fs := TFileStream.Create(SaveDialog1.FileName, fmCreate or fmShareDenyWrite);
fs.Free;
end;
end;
FileData ist hier das übergebene aus Socket.RecieveText
ich würde nun gerne wissen wie man
Socket.ReceiveBuf(Bfr^, iLen);
umwandeln kann, sodass nicht mit Socket.REceiveBuf gearbeitet wird sondern dass man die variable FileData benutzt.
Ich danke schonmal für die HIlfe
Mfg Dr0mFr34K