[kyran29]

Доброго времени суток, уважаемые.
Обращаюсь к Вам за подсказкой (HELP)
Необходимо отправить снимок экрана на сайт, но при этом полученное изображение на диске компьютера сохранять не нужно. Мысли меня наводят на - JpegStream:=TMemoryStream.Create; Но вот что делать дальше???

Код:

uses Jpeg;
procedure TForm1.PrintScreen;
const
 URL  : String = 'http://xxxxxx.xx/xxx.php';
var 
 bm: TBitMap;
 JpegIm: TJpegImage;
 ImgName: String;
 //JpegStream : TMemoryStream;
begin
  ImgName := 'skrin.jpg';
  bm := TBitMap.Create;
  bm.Width := Screen.Width;
  bm.Height := Screen.Height;
  BitBlt(bm.Canvas.Handle, 0, 0, bm.Width, bm.Height, GetDC(0), 0, 0, SRCCOPY);
  JpegIm := TJpegImage.Create;
  JpegIm.Assign(bm);
  JpegIm.CompressionQuality := 95; // от 0 до 100 качество
  JpegIm.Compress;
  //JpegIm.SaveToFile(ImgName);
  bm.Destroy; 
  JpegIm.Destroy;
end;

[NumLock]

use Write(), Luke

[kyran29]

NumLock можно по-подробнее - use Write(), Luke

[lmikle]

Ну, тут надо знать в каком виде сервер ожидает данные.
Т.к. url не приведен, то могу только гадать.
Вот посмотри на похожие вопросы (не совсем то, но принцип должен быть тот же):
http://stackoverflow.com/questions/2...-not-the-usual
http://stackoverflow.com/questions/1...rough-sendgrid

[kyran29]

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

Ну, тут надо знать в каком виде сервер ожидает данные.
Т.к. url не приведен, то могу только гадать.
Вот посмотри на похожие вопросы (не совсем то, но принцип должен быть тот же):
http://stackoverflow.com/questions/2...-not-the-usual
http://stackoverflow.com/questions/1...rough-sendgrid

Вот в таком виде сервер ожидат данные

PHP код:

if (!empty($_POST['data'])) 


[kyran29]

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

use Write(), Luke

[kyran29]

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

Ну, тут надо знать в каком виде сервер ожидает данные.
Т.к. url не приведен, то могу только гадать.
Вот посмотри на похожие вопросы (не совсем то, но принцип должен быть тот же):
http://stackoverflow.com/questions/2...-not-the-usual
http://stackoverflow.com/questions/1...rough-sendgrid

Сервер может и так принять изображение

PHP код:

// Проверяем загружен ли файл
   if(is_uploaded_file($_FILES["filename"]["tmp_name"])) 


[M.A.D.M.A.N.]

В дельфовом HTTP-компоненте, пост-запрос принимает поток байт, просто его туда отправь и всё.

Luke.

[kyran29]

Сообщение от M.A.D.M.A.N.

В дельфовом HTTP-компоненте, пост-запрос принимает поток байт, просто его туда отправь и всё.

Luke.

я правильно понял:

Код:

  JpegStream := TMemoryStream.Create;
  JpegIm.SaveToStream(JpegStream);
  Form1.IdHTTP1.Post(URL, JpegStream);
  JpegStream.Free;

[M.A.D.M.A.N.]

Агась.

Только байтовый поток перед отправкой в начало перемотай. Ну и про try finally не стоит забывать.

[kyran29]

Сообщение от M.A.D.M.A.N.

Агась.

Только байтовый поток перед отправкой в начало перемотай. Ну и про try finally не стоит забывать.

Блин можешь пример

[M.A.D.M.A.N.]

Код:

JpegStream.Position := 0

[kyran29]

Сообщение от M.A.D.M.A.N.

Код:

JpegStream.Position := 0

M.A.D.M.A.N. - спасибо тебе.
Пришлось добавить еще одну переменную

Код:

var FormData:TIdMultiPartFormDataStream;

ну вот так все нормально, файл отправляется,
если есть ошибки try инструкции прошу поправить

Код:

  FormData:=TIdMultiPartFormDataStream.Create;
 try
  Form1.idHTTP1:=TIdHTTP.Create(nil);
  FormData.AddObject('file', 'image/jpeg', JpegStream, 'name.jpg');
  Form1.IdHTTP1.Post(URL, FormData);
 finally
  FreeAndNil(FormData);
  JpegStream.Free;
  bm.Destroy;
  JpegIm.Free;
  Form1.IdHTTP1.Free;

[kyran29]

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

Сервер может и так принять изображение

PHP код:

// Проверяем загружен ли файл
   if(is_uploaded_file($_FILES["filename"]["tmp_name"])) 


принимаем файл на сервере так:

PHP код:

$img = $_SERVER['DOCUMENT_ROOT'].'/image/'.time().'.jpg';
 // Проверяем загружен ли файл
 if (isset( $_FILES['file'])){
   if ($_FILES['file']['type'] == 'image/jpeg') move_uploaded_file($_FILES['file']['tmp_name'], $img);  
 }