Server Client Stream ??

[Vader]

hallo,

hab da eine server clientanwendung gecodet.
der server schickt bei stream eine datei den client.
es funktioniert wunderbar aber nur die datei darf
nicht größer sein als 8kb.

client

Code:

procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
  errorcode := 0;
  StatusBar1.SimpleText := 'Error'; 
end;

procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
 StatusBar1.SimpleText := 'Disconnect'; 
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  StatusBar1.SimpleText := ' Connect';
end;

procedure TForm1.Button1Click(Sender: TObject);

begin
ClientSocket1.Active := true;
end;


procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
  var FStream : TFileStream;
  size: integer;
  pBuffer: Pointer;

   begin

      if SaveDialog1.Execute then
      begin
      FStream := TFileStream.Create(SaveDialog1.FileName, fmCreate or fmOpenWrite);
      end;
  try
    Size := Socket.ReceiveLength;
    GetMem(pBuffer, Size); 
    Socket.ReceiveBuf(pBuffer^, Size); 
    FStream.Write(pBuffer^, Size);

  finally 
    FreeMem(pBuffer);
  end; 

end;

end.

server

Code:

procedure TForm1.FormCreate(Sender: TObject);

begin
 serversocket1.Active:=true;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  FStream: TFileStream;

   begin
     FStream := TFileStream.Create('c:\bico.txt', fmOpenRead);
     ServerSocket1.Socket.Connections[0].SendStreamThenDrop(FStream);
   end;
        
end.

was ist da falsch, habe im forum gesucht und habe entdeckt
das mehrere user dieses problem haben ???

mfg vader

[SirThornberry]

Warum benutzt du nicht einfach die FTP-Komponente von den Indys???

[Vader]

kann mir da keiner weiter helfen :cry:

mfg vader

[Xeno-Sebi]

kannst du größere dateien vielleicht splitten und einzelne pakete senden?

[DataCool]

Hi,

wenn du mit den normalen Sockets arbeitest, ist es klar das du Probleme bekommst.
Verwende die Indy-Komponenten, für die habe ich zum gleichen Thema hier auch schon ein Bsp. gepostet :

http://www.delphipraxis.net/internal...ct.php?t=14914

Gruß Data

[Vader]

danke für die tipps,werd's probieren


mfg vader

[Vader]

danke für die tipps,werd's probieren


mfg vader