Занесение картинки в переменную

[einstein22]

Здравствуйте. Вот у меня есть скрипт, делающий скриншоты

procedure ScreenShot(PathToSave: string);
begin
  with TBitmap.Create do
  begin
    Width := Screen.Width;
    Height := Screen.Height;

    BitBlt(Canvas.Handle, 0, 0, Width, Height,
        GetDC(GetDesktopWindow), 0, 0, SRCCOPY);

    SaveToFile(PathToSave);
    Free;
  end;
end;

а потом просто вызываю эту функцию

ScreenShot('C:\Screen.bmp');

Но есть проблема. Надоело отправлять эти скриншоты с директории через filezilla на сайт , поэтому надо автоматизировать передачу.

procedure TForm1.Button1Click(Sender: TObject);
var
 PostData:TStringList;
begin
PostData:= TStringList.Create;
    PostData.Add('to=1');
    IdHTTP1.Post('http://mysite.com/tester.php',PostData);
end;

Как мне сделать так, чтобы скриншот не сохранялся на диск, а каким то образом заносился в буфер и прикручивался к переменной (если такое возможно), а код, который отправляет сейчас переменную to со значением 1 отправлял этот скрин?? Помогите пожалуйста.

P.S. в delphi новичек, поэтому прошу писать подробно, если будет решение моей проблемы.
Заранее спасибо!

[Delphi_ProGer]

ИМХО, нужно копать в сторону Multipart form-data.

[BDA]

Delphi_ProGer прав. Похожий вопрос обсуждался здесь:
http://programmersforum.ru/showthread.php?t=42803

[einstein22]

Покопал немного и нашел примитивное решение второй проблемы. У меня получилось все до дикости просто:

procedure TForm1.btn2Click(Sender: TObject);
var
  multi: TIdMultiPartFormDataStream;
begin
  multi:= TIdMultiPartFormDataStream.Create;
  multi.AddFormField('submit','ok');
  multi.AddFile('img','C:\img.jpg','application/octet-stream');
  IdHTTP1.Post('http://сайт.com.ua/tester.php',multi);

  ShowMessage('ok');

end;

Но стоит учесть, что тут я передаю картинку с жесткого диска. А можно ли сделать так, чтобы первая часть скрипта не сохраняла файл на диск, а вторая не доставала его опять оттуда? То есть каким то образом передавать картинку напрямую для передачи на сайт без лишних действий?

[BDA]

procedure ScreenShot(var PathToSave: tmemorystream);
begin
  with TBitmap.Create do
  begin
    Width := Screen.Width;
    Height := Screen.Height;

    BitBlt(Canvas.Handle, 0, 0, Width, Height,
        GetDC(GetDesktopWindow), 0, 0, SRCCOPY);

    savetostream(PathToSave);
    Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);

var
  multi: TIdMultiPartFormDataStream;
  list:tstringlist;
  ts:tmemorystream;
begin
  ts:=tmemorystream.Create;
  list:=tstringlist.Create;
  ScreenShot(ts);

  multi:= TIdMultiPartFormDataStream.Create;
  multi.AddFormField('upload','yes');
  ts.Position:=0;
  multi.AddObject('F', 'image/bmp',ts,'123.bmp');
  list.Text:=IdHTTP1.Post('http://www.radikal.ru/action.aspx',multi);

  list.SaveToFile('1.html');
  ts.SaveToFile('1.bmp');
  multi.free;
  list.free;
  ts.Free;
end;

Проверил - отправляет картинку на Радикал.

[einstein22]

Правда у меня не получилось, но все равно спасибо! И не получилось, скорее всего, из-за php файла. Ведь раньше у меня стояла multi.AddFile и в php скрипте получателя $_FILES[]. А теперь AddObject. Как тогда мне быть?
И еще, в delphi я полный новичек, поэтому хотелось бы уточнить некоторые детали: для чего было создавать переменную ts, да еще типа ts:tmemorystream и эта строка
ts.Position:=0;
??

[BDA]

Вы сами хотели не создавать файлов на жестком диске
TMemoryStream - поток данных, хранящийся в оперативной памяти.
ts.position=0, возможно, не нужно делать. Я не смогу объяснить, этот момент. Если, например, мы пишем в поток, то позиция смещается. Чтобы прочитать из потока, мы должны указать позицию перед данными, которые хотим считать. Я добивался того, чтобы отправляемый пакет как можно больше совпадал с тем, который отправляется через браузер.

[einstein22]

Понятно Но надо как то выйти из положения же. Если радикал принимает файли, значит мне надо просто изменить скрипт php. Я немного поискал, но не смог найти ничего нормального. Вы не знаете какой массив принимает данные?
Или может быть надо место
multi.AddObject('F', 'image/bmp',ts,'123.bmp'); писать multi.AddFile(..) , но ts перевести в строку, чтобы не было ошибок?
Но если это все будет слишком сложно или вовсе не возможно, то тогда ничего не поделаешь Придется сохранять - отправлять - удалять

[BDA]

Вариант с переводом в строку вряд ли пройдет.
А вы изменили поля отправки?

multi.AddFormField('submit','ok');
multi.AddObject('img', 'application/octet-stream',ts,'123.bmp');

Неплохо было бы перехватывать Charles`ом запросы и смотреть отличия работающего и неработающего вариантов.

[SovereignSun]

Есть же буфер для картинок... можно попробовать сразу туда кидать скриншот. Можно еще попробовать stream воспользоваться.