Download Server Client ?

[Vader]

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