Тема: Капча ВК
Показать сообщение отдельно

  #4  
Старый 25.02.2010, 00:37
RedFern.89
Постоянный
Регистрация: 20.01.2010
Сообщений: 338
Провел на форуме:
500264

Репутация: 69
Отправить сообщение для RedFern.89 с помощью ICQ
По умолчанию

на тебе пример на Delphi. думаю сможешь перевести

Код:
uses jpeg;

.........

var
  Img : TJpegImage; 
  Ms   : TMemoryStream;
begin
  Img := TJpegImage.Create;
  Ms := TMemoryStream.Create;
// Запрашиваем картинку и пишем ее в память
  Http.Get('http://vkontakte.ru/captcha.php?s=1&sid=' + sid, Ms);
  Ms.Position := 0;
// Грузим картинку из памяти
  Jpg.LoadFromStream(ms);
  Image1.Picture.Graphic := jpg; // Отображаем в Image1
// Чистим память
  jpg.Free;
  Ms.free;
end;

Последний раз редактировалось RedFern.89; 25.02.2010 в 00:45..
 
Ответить с цитированием