29.04.2010, 15:41
|
|
Новичок
Регистрация: 07.01.2009
Сообщений: 12
Провел на форуме:
46982
Репутация:
0
|
|
Нужна помощь не выводит капчу!!
PHP код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, PngImageList, ImgList, IdHTTP, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, StdCtrls, ExtCtrls, IdCookieManager;
type
TForm1 = class(TForm)
Image1: TImage;
Edit1: TEdit;
Button1: TButton;
IdTCPClient1: TIdTCPClient;
IdHTTP1: TIdHTTP;
PngImageList1: TPngImageList;
PngImageCollection1: TPngImageCollection;
IdCookieManager1: TIdCookieManager;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
var public_key, S:string;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var FS:TFileStream;
begin
S:=IdHTTP1.Get('http://www.sms.tele2.ru/');
public_key:=Copy(S, Pos('public_key', S)+16, 32);
FS:=TFileStream.Create('captcha.png',FMCreate);
IdHTTP1.Get('http://www.sms.tele2.ru/get_rni.php?'+public_key+'.png', FS);
FS.Free;
Image1.Picture.LoadFromFile('captcha.png');
end;
end.
Не выводит капчу помогите !!!!! |
|
|