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

markieren

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

markieren

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

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

kann mir da keiner weiter helfen

mfg vader

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

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

danke für die tipps,werd's probieren


mfg vader

danke für die tipps,werd's probieren


mfg vader