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

[denis76560]

Приветствую всех.
Ребят, подскажите пожалуйста по такому коду.

procedure TForm1.Button2Click(Sender: TObject);
var
  jpgImg: TJPEGImage;
  imagedata:TMemoryStream;
begin
  imagedata:=TMemoryStream.Create;
  jpgImg := TJPEGImage.Create;
  jpgImg.Assign(Image1.Picture.Bitmap);

  jpgImg.SaveToStream(imagedata);
   Image1.Picture.Graphic.SaveToStream(imagedata);
  // imagedata.Position:=0;
  // imagedata.Seek(0, soFromBeginning);
   Image2.Picture.Graphic.LoadFromStream(imagedata);
end;

Данный код возвращает ошибку Access violation at xxxxxxx на строке Image2.Picture.Graphic.LoadFromStre am(imagedata);
Пробовал устанавливать позицию imagedata в ноль двумя путями, увы не помогло.
В компоненте Image1 до начала данной процедуры динамически создается изображение (BMP) каптча.
Мне нужно ее отправить на сервер Antigate. Не хочу писать изображение в файл и потом его отправлять туда, а хочу отправить через TMemoryStream. Обязательно нужно его перед отправкой перевести в формат JPG. Но при попытке даже загрузить из TMemoryStream в Image2 вылетает вышеописанная ошибка.
Подскажите пожалуйста, в чем грабли ?

[eval]

Пробовал устанавливать позицию

при чем тут позиция к Access violation ?

Подскажите пожалуйста, в чем грабли ?

дебагер в курсе

[denis76560]

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

дебагер в курсе

Спасибо за ответ.
Но если бы я шарил в асме, я бы такого вопроса не задал бы.

Пробовал устанавливать позицию

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

при чем тут позиция к Access violation ?

Потому-что происходит обращение к памяти к которой обращение запрещено.
http://www.delphisources.ru/pages/fa...violation.html

[Алексей_2012]

а модуль jpeg в uses подключен?

[denis76560]

Сообщение от Алексей_2012

а модуль jpeg в uses подключен?

Да, конечно.

[eval]

Но если бы я шарил в асме, я бы такого вопроса не задал бы.

при чем тут асм?

Потому-что происходит обращение к памяти к которой обращение запрещено

вы все время отвечаете не на то что спрашивают
в памяти нет позиций, там адресация. а ввы про позицию, еще раз - при чем тут позиция?

[denis76560]

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

при чем тут асм?
вы все время отвечаете не на то что спрашивают
в памяти нет позиций, там адресация. а вы про позицию, еще раз - при чем тут позиция?

Да, правда, затупил. Ссори.
Просто не зная асма думаю что в дебаггере навряд-ли разберусь.
А моем примере вроде все сделано правильно (хотя, наверное, ошибаюсь), запись в Tmemorysream, потом чтение из нее.

[eval]

у вас AV (Access violation ), ищите кто смотрит в вакуум..
вот тут Image2.Picture.Graphic.LoadFromStre am(imagedata);
Picture инициализирован? а Graphic?

[denis76560]

eval, посмотрите пожалуйста. Буду Вам признателен.
Вроде все инициализировал.
Это весь код программы с моими комментами.

uses.....,jpeg;

procedure TForm1.letrasAnguladas(c : string; angulo : integer; nextPos : Integer);
var
   logfont:TLogFont;
   font: Thandle;
begin
   LogFont.lfheight:=30;
   logfont.lfwidth:=10;
   logfont.lfweight:=900;

   LogFont.lfEscapement:=angulo;
   logfont.lfcharset:=1;
   logfont.lfoutprecision:=OUT_TT_ONLY_PRECIS;
   logfont.lfquality:= DEFAULT_QUALITY;
   logfont.lfpitchandfamily:= FF_SWISS;
   logfont.lfUnderline := 0;
   logfont.lfStrikeOut := 0;

   font:=createfontindirect(logfont);

   Selectobject(Image1.canvas.handle,font);

   SetTextColor(Image1.canvas.handle,rgb(0,180,0));
   SetBKmode(Image1.canvas.handle,transparent);

   Image1.canvas.textout(nextPos,Image1.Height div 3,c);
   SetTextColor(Image1.canvas.handle,rgb(Random(255),Random(255),Random(255)));
   deleteobject(font);
end;


procedure TForm1.Button6Click(Sender: TObject);
var
   vx:integer;
   strCaptcha:string;
  jpgImg: TJPEGImage;
  imagedata:TMemoryStream;
begin
   imagedata:=TMemoryStream.Create;
   jpgImg := TJPEGImage.Create;
   ///////////////////////////////// генерация капчи в Image1
 strCaptcha:='65348'; ////////// Пример рандомного слова/числа
 for vX := 1 to Length(strCaptcha) do letrasAnguladas(strCaptcha[vX],Random(600)+1,25*vX-15);
 ///////////////////////////////// Запись в TMemoryStream для отправки TMemoryStream на сервер Антигейта
   jpgImg.Assign(Image1.Picture.Bitmap);
   jpgImg.SaveToStream(imagedata);
   Image1.Picture.Graphic.SaveToStream(imagedata);
  // imagedata.Position:=0;
  // imagedata.Seek(0, soFromBeginning);
   Image2.Picture.Graphic.LoadFromStream(imagedata); ////////////  проверка - что у нас в данный момент в TMemoryStream
  ////// отправка на сервер Антигейта в виде TMemoryStream
end;

[eval]

у вас дебагер есть, лучший друг программиста, даже лучше чем друг программист
если он скажет что и как - значит так и есть, на 99.99999999999999999999%
никто круче вероятность вам не даст