Ошибка POST запроса

[Vnlexa]

Здравствуйте! Есть программа которая по нажатие делает скрин экрана и одну копию сохраняет на компьютере,а вторую отправляет на сервер.ДЛЯ ЧЕГО спросите вы это зачатки программы которая позволяет сделать скрин окна и получить ссылку на просмотр скриншота,вы наверное подумаете что таких программ море. НО в Белоруссии есть понятие "гостевое соединение",которое не лимитируемое и бесплатное ТАК ВОТ подобных программ бесплатных для Белорусов нет ))


ПРОБЛЕМА ВОТ:

ЕСТЬ ЗАЧАТКИ КОДА

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, IdAntiFreezeBase, IdAntiFreeze,
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP;

type
TForm1 = class(TForm)
btn1: TBitBtn;
idhtp1: TIdHTTP;
idntfrz1: TIdAntiFreeze;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
Var
DC: HDC;
bmp: TBitmap;
html:WideString;
begin
bmp:=TBitmap.Create;
bmp.Height:=Screen.Height;
bmp.Width:=Screen.Width;
DC:=GetDC(0);
bitblt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
DC, 0, 0, SRCCOPY);
bmp.SaveToFile('c:/Screen.jpg');
html:=IdHTTP1.Post('www.site.ru',bm p);
ReleaseDC(0, DC);
bmp.Free;
end;
end.

Но при попытке выполнить вылазит ошибонька




Всю голову сламал незаню что делать,СПАСИБО ЗА ВНИМАНИЕ!!

[Кольша]

ищите на тему tidmultiformdata так вроде!
P.S компилятор указывает на то что у вас не где не описано idhttp1!

[Vnlexa]

Компонент вроде встроен,ЕСЛИ НЕ СЛОЖНО можно подробнее про "tidmultiformdata" в гугл запрос ничего не дал )

[Кольша]

uses IdMultiPartFormData;
.....
Var
DC: HDC;
bmp: TBitmap;
html:WideString;
Multi : TIdMultiPartFormDataStream;
begin
bmp:=TBitmap.Create;
bmp.Height:=Screen.Height;
bmp.Width:=Screen.Width;
DC:=GetDC(0);
bitblt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
DC, 0, 0, SRCCOPY);
bmp.SaveToFile('c:/Screen.jpg');
Multi := TIdMultiPartFormDataStream.Create;
Multi.AddFile('Filedata', 'c:/Screen.jpg', 'image/png');
html:=IdHTTP1.Post('www.site.ru',Multi);
ReleaseDC(0, DC);
bmp.Free;
Multi.free;
end;

[Vnlexa]

Спасибо,большое!