Форум: "Сети";
Текущий архив: 2008.04.06;
Скачать: [xml.tar.bz2];

Вниз

Отправка файла методом post   Найти похожие ветки 

← →
batya-xep   (2007-07-10 02:55) [0]

Отправляю файл на php скрипт следующим кодом
procedure TForm2.Button2Click(Sender: TObject);
var FileName: string;response: string;
var formData: TIdMultiPartFormDataStream;
begin
FileName := "c:\pic.gif";
formData := TIdMultiPartFormDataStream.Create;
formData.AddFile("File",fileName,"application/octet-stream");
formData.AddFormField("param1", "value1");
//HttpObject.Port := Port;
response := idHTTP1.Post("http://myhost/ppost.php",formData);
Label1.Caption:= response ;
Memo1.Lines.Text:= response ;
end;
Можно ли прибабахать сюда индекатор отправки файла, тоесть например через каждую секунду проверять сколько отправилось и выводить это число в label

---

← →
Сергей М. ©   (2007-07-10 08:40) [1]

> Можно ли прибабахать сюда индекатор отправки файла


Объяви свой класс-наследник TIdMultiPartFormDataStream и перекрой в нем метод Read.

---

← →
batya-xep   (2007-07-16 20:26) [2]

Пытался разобраться сам, так ничего и не вышло, может кто кодом поделиться. Заранее очень благодарен.

---

← →
SlymRO ©   (2007-07-17 05:12) [3]

для этого имеется событие idHTTP1.OnWork

---

← →
Сергей М. ©   (2007-07-17 09:00) [4]

type
..
TMyStream = class(TIdMultiPartFormDataStream)
protected
  function Read(var Buffer; Count: Longint): Longint; override;
end;
..

implementation
..

var
 BytesToSend, BytesSent: Integer;
..
function TMyStream.Read(var Buffer; Count: Longint): Longint;
begin
 Result := inherited Read(Buffer, Count);
 Inc(BytesSent, Count);
 label.Caption := "Отправлено " + IntToStr(BytesSent) + " из " + IntToStr(BytesToSend) + " байт";
 Application.ProcessMessages;
end;
..

procedure TForm2.Button2Click(Sender: TObject);
var FileName: string;response: string;
var formData: TMyStream;
begin
 FileName := "c:\pic.gif";
 formData := TMyStream.Create;
 formData.AddFile("File",fileName,"application/octet-stream");
 formData.AddFormField("param1", "value1");
 BytesToSend := formData.Size;
 BytesSent := 0;
 response := idHTTP1.Post("http://myhost/ppost.php",formData);
..
end;

---

Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2008.04.06;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.006 c