captcha

[Boy7407]

Я новичок , и вообще пишу первую программу.
Мне нужно , что бы капча выводилась при запуске программы.
Т.е обычная авторизация.
Нашел две капчи
https://l2.overworld.su/captcha/
https://l2.overworld.su/captcha/?0.09601822070382149

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, StdCtrls, Buttons, ExtCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    IdHTTP1: TIdHTTP;
    Edit3: TEdit;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Memo1: TMemo;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
LoginData, Response: TStrings;
begin
LoginData := TStringList.Create;
Response := TStringList.Create;
try
LoginData.Add('login='+Edit1.Text);
LoginData.Add('password='+Edit2.Text);
LoginData.Add('login=submit');
LoginData.Add('x=0');
LoginData.Add('y=0');
Response.Text := IdHTTP1.Post('https://l2.overworld.su/account/login/',LoginData);
if Pos('logout',Response.Text)>0 then
ShowMessage('Success!')
else
ShowMessage('Epic fail =(');
finally
LoginData.Free;
end;
end;

begin
end.

Нужно что бы капча отображалась в "Image1"
Буду очень благодарен кто поможет!)

[Boy7407]

я не спал 30 часов , помогите пожалуйста...

[fucil]

я так пронял тебе просто нужно вытянуть капчу в image1 с указанной ссылки?
_______________
стоп
Во-первых там https протокол, а ты пытаешься использовать idhttp компонент, который работает только с http протоколом (он не работает с https)
Советую использовать синапс
Во-вторых капча тоже на https, то-есть idhttp компонент тебе тут не поможет, снова нужно использовать синапс
и вот те ещё код. Только он для .png формата те нужно переписать немного под jpg.

procedure getcapcha;
var
  MS:TMemoryStream;
  pic: TJPEGImage; //   <----------- используй JPEG формат
  png: TPngObject;
begin
try
  MS:=TMemoryStream.Create;
  httpsend.HTTPMethod('get','https://l2.overworld.su/captcha');
  httpsend.Document.SaveToStream(MS);
  MS.Position:=0;
  pic:= TJPEGImage.Create;  //   <----------- используй JPEG формат
  png:=TPngObject.Create;
  png.LoadFromStream(MS);
  FrmMain.Image1.Picture.Assign(png);
  MS.Free;
  pic.Free;
except
    on e:Exception do
    begin
      messagedlg('Ошибка подключения.',mterror, [mbok],0);
      exit;
      end;
    end;
end;

[Boy7407]

ICQ либо Скайп ваш можно?

[Пепел Феникса]

Во-первых там https протокол, а ты пытаешься использовать idhttp компонент, который работает только с http протоколом (он не работает с https)

не надо врать, работает он с SSL.
подключить нужно SSLHandler просто.

[Boy7407]

Может это кто в код внедрить?

procedure getcapcha;
var
  MS:TMemoryStream;
  pic: TJPEGImage; //   <----------- используй JPEG формат
  png: TPngObject;
begin
try
  MS:=TMemoryStream.Create;
  httpsend.HTTPMethod('get','https://l2.overworld.su/captcha');
  httpsend.Document.SaveToStream(MS);
  MS.Position:=0;
  pic:= TJPEGImage.Create;  //   <----------- используй JPEG формат
  png:=TPngObject.Create;
  png.LoadFromStream(MS);
  FrmMain.Image1.Picture.Assign(png);
  MS.Free;
  pic.Free;
except
    on e:Exception do
    begin
      messagedlg('Ошибка подключения.',mterror, [mbok],0);
      exit;
      end;
    end;
end;

Под JPEG Переделать помогите)

[fucil]

Пепел Феникса а ты злой (это не враньё, а ошибка или скорее всего незнание). На то это и форум что-бы выразить свою идею, а другой мог меня поправить при ошибке!
Вот я, почему то был неслышен и уверен что idhttp не работает с https.

Вообщем тут то всего то нечего поменять в коде, ты Boy7407 ленив и ждешь готового!

вот держи код:

procedure GetCapcha;
var
  MS:TMemoryStream;
  pic: TJPEGImage;
begin
try
  MS:=TMemoryStream.Create;
  httpsend.HTTPMethod('get','https://l2.overworld.su/captcha/');
  httpsend.Document.SaveToStream(MS);
  MS.Position:=0;
  pic:= TJPEGImage.Create;
 // png:=TPngObject.Create;
  pic.LoadFromStream(MS);
  FrmMain.Image1.Picture.Assign(pic);
  MS.Free;
  pic.Free;
except
    on e:Exception do
    begin
      messagedlg('Ошибка подключения.',mterror, [mbok],0);
      exit;
      end;
    end;
end;

[Пепел Феникса]

ну извините, погорячился, бывает.

[Boy7407]

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

Пепел Феникса а ты злой (это не враньё, а ошибка или скорее всего незнание). На то это и форум что-бы выразить свою идею, а другой мог меня поправить при ошибке!
Вот я, почему то был неслышен и уверен что idhttp не работает с https.

Вообщем тут то всего то нечего поменять в коде, ты Boy7407 ленив и ждешь готового!

вот держи код:

procedure GetCapcha;
var
  MS:TMemoryStream;
  pic: TJPEGImage;
begin
try
  MS:=TMemoryStream.Create;
  httpsend.HTTPMethod('get','https://l2.overworld.su/captcha/');
  httpsend.Document.SaveToStream(MS);
  MS.Position:=0;
  pic:= TJPEGImage.Create;
 // png:=TPngObject.Create;
  pic.LoadFromStream(MS);
  FrmMain.Image1.Picture.Assign(pic);
  MS.Free;
  pic.Free;
except
    on e:Exception do
    begin
      messagedlg('Ошибка подключения.',mterror, [mbok],0);
      exit;
      end;
    end;
end;

Что в uses прописать?
никогда с синапсом не работал

[Arsenx777]

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

Я новичок , и вообще пишу первую программу.

Гммм... Когда я начитал первую программу писать на delphi, она выгледела вот так:

edit1.text:='hellow word';
label1.caption:=edit1.text;

И я был рад!