Dosya transferi

[digital_agels]

Merhaba arkadaşlar ben dosya transfer programı yapıyorum fakat sorun var saniyede kaç kb göndersileceğini edit2.text den kontrol etmek istiyorum nasıl yaparım kod burda normalde saniyede 20480 yani saniyede 20kb alıyor bunu nasıl edit2 ye göre uyarlarız ?

Kod: Tümünü seç

procedure TForm1.ServerSocket2ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
Var
si:integer;
 IncommingLen , ReceivedLen : Integer;
 buffer : array[0..20480] of Char;
begin

 IncommingLen := Socket.ReceiveLength;

 while IncommingLen > 0 do begin
 ReceivedLen := Socket.ReceiveBuf(buffer , Sizeof(buffer));
 if ReceivedLen <= 0 then Break else
 Stream.Write(buffer , ReceivedLen);
 Status.Position := Stream.Size;
 if Stream.Size >= Size then begin
 Stream.Free;
 ServerSocket1.Socket.Connections[0].SendText('DONE!');
 Memo1.Lines.Add('Dosya Aktarımı Tamamlandı...');
 end;
 end;

[lazio]

Dynamic
Dinamik Dizi kullanılarak halledilebilir sanırım

[digital_agels]

perki mesela serverda kaç kb geldiğini Tprogress bar ile anlayabiliyoruz clientte ne yapmamız lazım