hallo!
danke für eure antworten!
den chat guck ich mir gleich an, eben gins mal nicht (download wollte net starte..)
ich hab jetzt folgendes, was leider nicht funktioniert:
Delphi-Quellcode:
var
sstream,rstream:tfilestream;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
sstream:=tfilestream.Create('c:\stats.jpg',fmopenread);
client.Socket.SendStream(sstream);
end;
procedure TForm1.serverClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
rstream:=tfilestream.Create('stats1.jpg',fmcreate);
socket.receivebuf(rstream,socket.ReceiveLength);
rstream.Free;
end;
kann gut sein dass es komplett falsch ist..
bitte helft mir!
danke,danke!