[Помогите!] Подсожите про изоброжение

[gum_classis]

Подскажите как скачать программно при включении проги скачать какую либо картинку с сайта в компонент Image (скажу по секрету нада скачивать капчу)

[VeTaL_UA]

Способ №1(сначала скачать капчу, а потом засунуть в Image);

var
 s:TMemoryStream;
begin
 try
  s.Create;
  IdHttp1.Get('http://www.site.com',s);
 finally
  s.SaveToFile('kap4a.jpg');
  s.Free;
  Image1.Picture.LoadFromFile('kap4a.jpg');
 end;
end;

Способ №2(без скачки);

var
 s:TMemoryStream;
begin
 try
  s.Create;
  IdHttp1.Get('http://www.site.com',s);
  Image1.Picture.Bitmap.LoadFromStream(s);
 finally
  s.Free;
 end;
end;

Как то так.

[tonyr]

кинул по твоему способу 2 и че то в первой строке написаного кода ошибка

Добавлено через 3 минуты
все исправил то проблема с ссылкой была. а что вот тут за ошибка Image1.Picture.LoadFromStream(s);

[VeTaL_UA]

Цитата: Сообщение от tonyr кинул image по твоему способу и че то в первой строке написаного кода ошибка

только что скомпилил без ошибок... странно... а какая ошибка???

[tonyr]

[Error] Unit1.pas(36): Undeclared identifier: 'LoadFromStream'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Добавлено через 3 минуты
а все норм. а как капчу с фейсбука получить?

[VeTaL_UA]

Цитата: Сообщение от tonyr а все норм. а как капчу с фейсбука получить?

так же как и с любого другого сайта - найти адрес, по которому она находится и вывести в Image...

[tonyr]

выводил там капча через гугл а при компиляции ошибка

Добавлено через 2 минуты
вот ссылка на изображение [Ссылки могут видеть только зарегистрированные пользователи. ]

[VeTaL_UA]

Цитата: Сообщение от tonyr выводил там капча через гугл а при компиляции ошибка

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

[tonyr]

мда вижу трудно обьяснить. ну да ладно.

[gum_classis]

Цитата: Сообщение от VeTaL_UA Способ №2(без скачки); Код: var s:TMemoryStream; begin try s.Create; IdHttp1.Get('http://www.site.com',s); Image1.Picture.Bitmap.LoadFromStream(s); finally s.Free; end; end;

При компиляции этого фаила лезит ошибка вот такая

Цитата: Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 004034AB in module 'Project1.exe'.Read of address 7A83663A'.Process stopped. Use or Run to continue.

[Dinmaite]

Цитата: Сообщение от gum_classis s.Create;

Научись верно создавать элементы в RunTime.

[gum_classis]

Код не мной взял постом выше сам не знаю в какую сторону копать,димнайт помоги пожалуйста очень надо

[Dinmaite]

Надо знать какую ты карнитку парсишь.

[gum_classis]

ой точно код был косой,все исправил компилируется но при нажатии ничего не происходит что делать вот мой код

Цитата: procedure TForm1.Button2Click(Sender: TObject); var s:TMemoryStream; begin try s:=TMemoryStream.Create; IdHttp1.Get('http://zhyk.ru/forum/customavatars/avatar254281_2.gif',s); Image1.Picture.Bitmap.LoadFromStream(s); finally s.Free; end; end;

[VeTaL_UA]

Цитата: Сообщение от gum_classis s.Create;

Это моя ошибка. Правильно будет:

s:=TMemoryStream.Create;

Цитата: Сообщение от gum_classis ой точно код был косой,все исправил компилируется но при нажатии ничего не происходит что делать вот мой код

Ну так ты наверное грузишь картинку не в том формате...