Получение капчи - Delphi - Ответ 1285606

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, ExtCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    HTTP: TIdHTTP;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
uses
  Jpeg;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  MS  : TMemoryStream;
  Jpg : TJpegImage;
  captcha_sid : string;
begin
captcha_sid := '507880197754';
   Ms  := TMemoryStream.Create;
   Jpg := TJpegImage.Create;
  try
   HTTP.Get('http://vkontakte.ru/captcha.php?s=1&sid=' + captcha_sid, Ms);
   Ms.Position := 0;
   Jpg.LoadFromStream(ms);
   Image1.Picture.Graphic := Jpg; // Âîò çäåñü âûëåçàåò îøèáî÷êà((...
  finally
   Jpg.Free;
   Ms.Free;
  end;
   Form1.Caption := 'Enter Code';
end;
 
end.