помогите приделать прогрессбар.

[Mobile™]

имеется программа для отправки файлов на гейт. вот код-

unit Unit1;

interface

uses
  Windows, Messages, winsock, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls;

type
  TForm1 = class(TForm)

    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Button2: TButton;
    ListBox1: TListBox;
    Button3: TButton;
    ProgressBar1: TProgressBar;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function SendFile(host, script, filename:string):string;
var
  sock : dword;
  ca : sockaddr_in;
  HTTPHeader : string;
  boundary : string;
  fs:dword;
  hFile : DWORD;
  buf : array [0..4095] of char;
  p : PHostEnt;
  rb : cardinal;
  len : integer;
  SubHeader1 : string;
  SubHeader2 : string;
begin
  result := '';
  // îòêðûâàåì ôàéë íà ÷òåíèå
  hFile := CreateFile(PChar(filename), GENERIC_READ, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);

  if hFile <> INVALID_HANDLE_VALUE then // åñëè âñ¸ íîðì
  begin
    fs := GetFileSize(hFile, nil); // ïîëó÷èì ðàçìåð ôàéëà
    // ñîçäàåì ñîêåò
    sock := socket(AF_INET, SOCK_STREAM, IPPROTO_IP);
    // åñëè ñîçäàëñÿ ñîêåò
    if sock <> INVALID_SOCKET then // åñëè íîðì
    begin
      ca.sin_family := AF_INET;
      ca.sin_port := htons(80); // ïîðò 

      p := GetHostByName(PChar(host)); // ïîëó÷èì ip ïî äîìåíó
      if p = nil then // åñëè íåòó
      begin
        // çíà÷èò ýòî IP
        ca.sin_addr.s_addr := inet_addr(pchar(host));
      end
      else
      begin
        // âûäåðèì ip
        ca.sin_addr := PInAddr(p.h_addr_list^)^;
      end;

      // êîííåêòèìñÿ
      if connect(sock, ca, sizeof(ca)) <> -1 then
      begin
        // åñëè âñ¸ íîðì
        // ãåíåðèì ðàçäåëèòåëü
        boundary := inttohex(random(65535), 4)+inttohex(random(65535), 4)+inttohex(random(65535), 4);
          // ñîçäàåì ÷àñòè HTTP çàãîëîâêà
        SubHeader1 :=  '--'+boundary+#13#10+
                      'Content-Disposition: form-data; name="myfile"; filename="'+filename+'"'#13#10+
                      'Content-Type: application/octet-stream'#13#10#13#10;
        SubHeader2 := #13#10+'--'+boundary+'--'#13#10;
        HTTPHeader := 'POST '+script+' HTTP/1.1'#13#10+
                      'Host: '+host+#13#10+
                      'Connection: close'#13#10+
                      'Content-Type: multipart/form-data; boundary='+boundary+#13#10+
                      'Content-Length: '+inttostr(fs + length(SubHeader1) + length(SubHeader2))+#13#10#13#10+SubHeader1;

         // ïîñûëàåì çàãîëîâîê
        send(sock, HTTPHeader[1], length(HTTPHeader), 0);
        while true do
        begin
          rb := 0;
          // ÷èòàåì 4 êèëà èç ôàéëà
          ReadFile(hFile, buf, 4096, rb, nil);
          if rb = 0 then break; // åñëè íå ñ÷èòàëîñü òî âûõîä èç öèêëà
          send(sock, buf, rb, 0); // ïîøëåì ñ÷èòàííûå äàííûå
        end;
          // ïîøåë ïîñëåäíèé ðàçäåëèòåëü
        send(sock, SubHeader2[1], length(SubHeader2), 0);
        while true do // ê öèêëå æäåì îòâåòà îò ñåðâåðà
        begin
          len := recv(sock, buf, 4096, 0); // ñ÷èòàëè äàííûå
          if len > 0 then // åñëè åñòü ÷òîòî
          begin
            result := result + copy(buf, 0, len);
          end
          else
          begin // åñëè íåò áîëüøå äàííûõ òî âûõîäèì èç öèêëà
            break;
          end;
        end;
      end;
      closesocket(sock); // çàêðûâàåì ñîêåò
end;
CloseHandle(hFile); // çàêðûâàåì ôàéë
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
ws : TWSAData;
s : string;
begin
WSAStartup($101, ws);
s := SendFile(Edit1.Text, '/get.php', opendialog1.FileName);
ShowMessage(s);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
FStream : TFileStream;
begin
with OpenDialog1 do
if Execute then
begin
Listbox1.Items.Add(opendialog1.FileName);
FStream:=TFileStream.Create(OPenDialog1.FileName,fmOpenRead);
Edit2.Text:=IntToStr(Round(FStream.Size/1024))+' êèëîáàéò.';
FStream.free;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Listbox1.Clear;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
SendMessage(ListBox1.Handle,LB_SETHORIZONTALEXTENT,width,0);
end;
end.

нужно сюда приделать прогрессбар.

[Mobile™]

может кто поможет?

[raxp]

в цикле отправки пакетов добавьте что-то вроде...

inc(num_packet);
progressbar.position:= num_packet* 4096 div sizeof(hfile)

[Mobile™]

а куда именно добавить?

[raxp]

а вот это уже сами подумайте
...
подсказка- у вас есть цикл отправки пакетов

[Mobile™]

Сообщение от raxp

а вот это уже сами подумайте
...
подсказка- у вас есть цикл отправки пакетов

ну помогите уже третий день сижу перепробовал все что можно. ктомуже я дубовый в дельфи

[raxp]

вам по своему коду трудно пройтись... ну например тут

while true do
        begin
          rb := 0;
          // ?????? 4 ???? ?? ?????
          ReadFile(hFile, buf, 4096, rb, nil);
          if rb = 0 then break; // ???? ?? ????????? ?? ????? ?? ?????
          send(sock, buf, rb, 0); // ?????? ????????? ??????
        end;

[Mobile™]

Сообщение от raxp

вам по своему коду трудно пройтись... ну например тут

while true do
        begin
          rb := 0;
          // ?????? 4 ???? ?? ?????
          ReadFile(hFile, buf, 4096, rb, nil);
          if rb = 0 then break; // ???? ?? ????????? ?? ????? ?? ?????
          send(sock, buf, rb, 0); // ?????? ????????? ??????
        end;

дык и что сделать чтобы проогрессбар работал?

[raxp]

inc(num_packet);
progressbar.position:= num_packet* 4096 div fs

[Mobile™]

Сообщение от raxp

inc(num_packet);
progressbar.position:= num_packet* 4096 div fs

while true do
        begin
          rb := 0;
          // читаем 4 кила из файла
          ReadFile(hFile, buf, 4096, rb, nil);
          if rb = 0 then break; // если не считалось то выход из цикла
          send(sock, buf, rb, 0); // пошлем считанные данные
          inc(num_packet);
          progressbar.position:= num_packet* 4096 div fs
          end;

вставил так но не работает