|
Помогите с капчей!
| |
| link993 | Дата: Пятница, 04.11.2011, 23:38 | Сообщение # 1 |
Участник
Зарегистрирован: 13.02.2011
Группа: Пользователи
Сообщений: 93
Статус: Offline
| Написал получение каптчи с рамблера. Каптча сохраняется. Такой вопрос как ее открыть на форме в image?)
Вот код:
Code unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdHTTP, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
IdHTTP1: TIdHTTP;
Image1: TImage;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
s, uniq_id:string;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
FS:tfilestream;
begin
s:=idhttp1.Get('http://id.rambler.ru/script/newuser.cgi');
uniq_id:=copy(s, pos('uniq_id',s)+16, 32);
Fs:=tfilestream.Create('capcha.jpg', FMcreate);
IdHTTP1.Get('http://id.captcha.rambler.ru/'+uniq_id+'.jpg', FS);
end;
end. |
| |
| |
| dolphin | Дата: Пятница, 04.11.2011, 23:43 | Сообщение # 2 |
Администратор
Сообщений: 906
Статус: Offline
| А метод Image1.Picture.Graphic.LoadFromStream(); не подходит?
Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
| |
| link993 | Дата: Пятница, 04.11.2011, 23:46 | Сообщение # 3 |
|
Участник
Зарегистрирован: 13.02.2011
Группа: Пользователи
Сообщений: 93
Статус: Offline
| пробовал так
Code
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdHTTP, StdCtrls, ExtCtrls,jpeg;
....
image1.Picture.LoadFromFile('capcha.jpg');
....
Пишит что файл занят другим процессом!
Как быть? НЕт, тем методом не пробовал))
Сообщение отредактировал link993 - Пятница, 04.11.2011, 23:48 |
| |
| |
| dolphin | Дата: Пятница, 04.11.2011, 23:59 | Сообщение # 4 |
|
Администратор
Сообщений: 906
Статус: Offline
| Если по вашему коду то так
Доступно только для пользователей
Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
Сообщение отредактировал dolphin - Суббота, 05.11.2011, 00:00 |
| |
| |
| link993 | Дата: Суббота, 05.11.2011, 00:02 | Сообщение # 5 |
|
Участник
Зарегистрирован: 13.02.2011
Группа: Пользователи
Сообщений: 93
Статус: Offline
| Грузит только ошибка у вас в расширении. Вот полностью рабочий код кому надо:
Доступно только для пользователей
|
| |
| |
| dolphin | Дата: Суббота, 05.11.2011, 00:13 | Сообщение # 6 |
|
Администратор
Сообщений: 906
Статус: Offline
| Quote (link993) ошибка у вас в расширении
Это не ошибка, просто у формата GPEG есть несколько разширений - .jpeg, .jfif, .jpg, .JPG, или .JPE в делфи 7 он вроде бы описан как .jpeg поэтому дабы избежать неполадок решил поправить, хотя в вашем коде и так будет работать 
Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
| |
|
