[kyran29]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

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.

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

Код:

1 2 3 4

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.]

Код:

1	JpegStream.Position := 0

[kyran29]

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

Код:

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

Код:

1	var FormData:TIdMultiPartFormDataStream;

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

Код:

1 2 3 4 5 6 7 8 9 10 11

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);  
 }