hab das bißchen umgeschreiben,
server
Code:
rocedure TForm1.FormCreate(Sender: TObject);
begin
serversocket1.active:=true;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
FStream: TFileStream;
begin
FStream := TFileStream.Create('c:\aco.txt',fmopenread);
ServerSocket1.Socket.SendStreamThenDrop(FStream);
end;
end.
aber es passiert nichts, der speicherndialog beim client kommt nicht ?
mfg vader