Вроде все правильно. Вопрос по компоненту Image

[denis76560]

Ладно, спасибо за советы, попробую разобраться с дебаггером.

[XE5]

Но при попытке даже загрузить из TMemoryStream в Image2 вылетает вышеописанная ошибка

Прежде чем лить в графику поток, её нужно инициализировать ровно так же, как к примеру инициализирутся поток, прежде чем в него льются данные.

image1.Picture.Graphic := TJpegImage.Create;

И нужно ещё

imagedata.position := 0;

Делать каждый раз перед считыванием картинки из потока. То есть и в проверочной заливке в Image2, и в процедуре отправки потока на сервер.

[denis76560]

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

Прежде чем лить в графику поток, её нужно инициализировать ровно так же, как к примеру инициализирутся поток, прежде чем в него льются данные.

image1.Picture.Graphic := TJpegImage.Create;

И нужно ещё

Делать каждый раз перед считыванием картинки из потока. То есть и в проверочной заливке в Image2, и в процедуре отправки потока на сервер.

Спасибо большое, уже несколько часов с этим потерял.

image1.Picture.Graphic := TJpegImage.Create;

imagedata.position := 0;

Про это даже не знал.
Сейчас буду пробовать.

[denis76560]

Попробовал, Если сделать как посоветовал XE5, то в процедуре рисования капчи уже эксэпшн в строке

 Selectobject(Image1.canvas.handle,font);

Can only modify an image if contains a bitmap.
Потом, после продолжения исполнения срабатывает Эксэпшн AV на той же строке.

procedure TForm1.Button9Click(Sender: TObject);
var
   vx:integer;
   strCaptcha:string;
  jpgImg: TJPEGImage;
  imagedata:TMemoryStream;
begin
   imagedata:=TMemoryStream.Create;
   jpgImg := TJPEGImage.Create;
   image1.Picture.Graphic := TJpegImage.Create;
   imagedata.position := 0;

 strCaptcha:='65348';
 for vX := 1 to Length(strCaptcha) do letrasAnguladas(strCaptcha[vX],Random(600)+1,25*vX-15);
   jpgImg.Assign(Image1.Picture.Bitmap);
   jpgImg.SaveToStream(imagedata);
   Image1.Picture.Graphic.SaveToStream(imagedata);
  imagedata.position := 0;
   Image2.Picture.Graphic.LoadFromStream(imagedata); 
end;

[Stilet]

Selectobject(Image1.canvas.handle,f ont);

Это что? Зачем?
Можно узнать, почему используется Image, если тебе изображение все равно нужно отправлять по сети? Не проще ли сразу на канве TJPEGImage рисовать?
Или если у него нет канвы - рисовать на канве TBitmap, а потом ассигновать в Чпег?
Т.е. зачем морочиться с визуальным компонентом?

[XE5]

Т.е. зачем морочиться с визуальным компонентом?

Чтоб визуально видеть, что будет отсылаться на антигейт. А второй имадж чтоб убедиться, что в стрим поток нормально сохранилось изображение. Вторая задача полюбому излишняя.
denis76560 Из приведённого тобой кода вижу, что у тебя в голове каша. Прикрепляю к сообщению тестовый проект, где показываю как можно работать с визуальным Image, невизуальный JpegImage, и потоком. Изучай.

[Stilet]

Бес меня попутал. Я подумал что парень webServer свой пишет...

[denis76560]

XE5, спасибо, обработал напильничком код чтоб запустилось под моей Delphi 7.
Но в Вашем примере при создании формы получаю Access Violation
при

procedure TForm1.FormCreate(Sender: TObject);
begin
  Image1.Picture.Graphic := TJpegImage.Create; 
  Image2.Picture.Graphic := TJpegImage.Create;
end;

[Stilet]

Если не ошибаюсь Image1.Picture.Graphic совместим только с Bitmap. Впрочем в ХЕ версиях это наверное не имеет значения.
Если модуль jpeg у тебя уже подключен и эта ошибка все же вылазит, думаю не стоит выполнять такие операции с Image.
или попробуй так:

  j:=TJpegImage.Create;
    Image1.Picture.assing(j); 
  j:=TJpegImage.Create;
    Image2.Picture.Assign(j);

[denis76560]

Stilet,спасибо, jpeg подключен, сейчас попробую Ваш вариант.