Четверг, 03.12.2020, 17:08 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Волк-1024, Anton93, xXxSh@dowxXx  
delphicode » Delphi » Вирусология Delphi » Помогите с капчей! (Пишу авторегистратор!)
Помогите с капчей!
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 поэтому дабы избежать неполадок решил поправить, хотя в вашем коде и так будет работать wink


Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
 
delphicode » Delphi » Вирусология Delphi » Помогите с капчей! (Пишу авторегистратор!)
  • Страница 1 из 1
  • 1
Поиск:

delphicode.ru © 2008 - 2020 Хостинг от uCoz