ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
Нужна помощь не выводит капчу!! |
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.
Не выводит капчу помогите !!!!! |
|
|
29.04.2010, 16:24
|
|
Познающий
Регистрация: 21.11.2009
Сообщений: 77
Провел на форуме:
2482290
Репутация:
29
|
|
Сообщение от buchlord
Не выводит капчу помогите !!!!! public_key:=Copy(S, Pos('public_key', S)+35, 32);
|
|
|
|
29.04.2010, 16:26
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
Провел на форуме:
870084
Репутация:
79
|
|
Так попробуй :
PHP код:
public_key:=Copy(S, Pos('public_key', S)+35, 32);
FS:=TFileStream.Create('captcha.png',FMCreate);
IdHTTP1.Get('http://www.sms.tele2.ru/get_rni.php?'+public_key, FS);
Кстати у меня ко всем вопрос сразу, он нормально сохраняет капчу т.е картинка нормально, все видно, но в image он ее не вставляет... Это я что то не так делаю, или трабла в image? |
|
|
|
29.04.2010, 16:31
|
|
Новичок
Регистрация: 07.01.2009
Сообщений: 12
Провел на форуме:
46982
Репутация:
0
|
|
Сообщение от fenixelite
Так попробуй :
PHP код:
public_key:=Copy(S, Pos('public_key', S)+35, 32);
FS:=TFileStream.Create('captcha.png',FMCreate);
IdHTTP1.Get('http://www.sms.tele2.ru/get_rni.php?'+public_key, FS);
Кстати у меня ко всем вопрос сразу, он нормально сохраняет капчу т.е картинка нормально, все видно, но в image он ее не вставляет... Это я что то не так делаю, или трабла в image?
Ни чего не выводит ! На капче пришется по Англиски привет ,а надо чтоб цифры были!!!!!!!!!!!!!
|
|
|
|
29.04.2010, 16:33
|
|
Познающий
Регистрация: 21.11.2009
Сообщений: 77
Провел на форуме:
2482290
Репутация:
29
|
|
Сообщение от buchlord
Ни чего не выводит ! На капче пришется по Англиски привет ,а надо чтоб цифры были!!!!!!!!!!!!!
юзер-агент поставь браузерный
пример:
PHP код:
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; YPC 3.0.1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)
|
|
|
|
29.04.2010, 16:36
|
|
Новичок
Регистрация: 07.01.2009
Сообщений: 12
Провел на форуме:
46982
Репутация:
0
|
|
Сообщение от TrueBit
юзер-агент поставь браузерный
пример:
PHP код:
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; YPC 3.0.1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)
Как он выглядет и где его взять ???? 
И куда его ставить????????!!!!!
|
|
|
|
29.04.2010, 16:38
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
Провел на форуме:
870084
Репутация:
79
|
|
У меня нормально капчу сохраняет, с цыфрами.. вопрос в другом, почему когда я пытаюсь ее подгрузить в TImage выходит ошибка :
Unknown picture file extension
|
|
|
|
29.04.2010, 16:47
|
|
Новичок
Регистрация: 07.01.2009
Сообщений: 12
Провел на форуме:
46982
Репутация:
0
|
|
|
|
|
|
29.04.2010, 17:09
|
|
Новичок
Регистрация: 07.01.2009
Сообщений: 12
Провел на форуме:
46982
Репутация:
0
|
|
Ну вы поможете?????
|
|
|
|
29.04.2010, 17:23
|
|
Участник форума
Регистрация: 01.03.2009
Сообщений: 121
Провел на форуме:
4022236
Репутация:
38
|
|
Сообщение от buchlord
Как он выглядет и где его взять ????
И куда его ставить????????!!!!!
PHP код:
IdHTTP1.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; YPC 3.0.1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)';
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
