okay, wieder scheiterts am Vokabular
ich hab mir versucht irgendwie trotzdem zu helfen
(trau mich ja fast ned das zu posten
)
hier für den empfänger (Client)
Delphi-Quellcode:
begin
iLen := Socket.ReceiveLength;
GetMem(Bfr, iLen);
try
Socket.ReceiveBuf(Bfr^, iLen);
FStream.Write(Bfr^, iLen);
if FileExists('c:\teststream.bmp')
then begin
if x=Fstream.Size
then image1.Picture.Bitmap.LoadFromStream(Fstream)end
else begin x:=strtoint(copy(inttostr(Socket.ReceiveBuf(Bfr^, iLen)),0,4)); // * weiter unten -->
FStream := TFileStream.Create('c:\teststream.bmp', fmCreate or fmShareDenyWrite); end;
finally
FreeMem(Bfr);
end;
//*bestimmt viel leichter^^ aber ich kenn nur copy und copy geht nunmal soweit ich weiß nur mit string^^
end;
kanns Programm übrigens ohne Fehler starten, aber beim sendeversuch kommt ein Fehler.. (iwie auch klar)