Delphi/pascal вопросы - ответы. - Страница 10 - Proxy-Base Community - Анонимность и безопасность в интернете.
Бесплатные прокси. Количество:
Прокси для пользователей форума (API). Количество:
Купить доступ к прокси-листам (API). Количество:
 



Информация по хайдам / репутации

(РЕКОМЕНДУЮ) №1 >>>DDos Атака<<|>>DDoS Service<<< ДДОС СЕРВИС<<|>>Заказать DDOS
Бесплатные прокси уже в Telegram
Все инфопродукты и приватная информация бесплатно
Старый 14.02.2011, 14:45   #82 (permalink)
SOCKS5
 
Аватар для NekitoSP
 
Регистрация: 28.05.2009
Сообщений: 204
Member ID: 352
ICQ 306182
Skype nekitosp

Репутация: 353
Репутация: 353
Сказал(а) спасибо: 317
Поблагодарили 343 раз(а) в 152 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

Radzhab, в каком месте у тебя этот код написан? не в .pas случайно при OnCreate/OnShow/etc ? полный листинг можно?
__________________
NekitoSP вне форума   Ответить с цитированием
Старый 15.02.2011, 07:07   #83 (permalink)
SOCKS5
 
Аватар для Radzhab
 
Регистрация: 16.08.2009
Сообщений: 214
Member ID: 2173
ICQ 29755555

Репутация: 278
Репутация: 278
Сказал(а) спасибо: 153
Поблагодарили 248 раз(а) в 145 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

NekitoSP, поставил в OncreateForm// от идеи записи в реестр отказался) сделал запись в файлы. все гуд)

ссыль вот тут есть на С# код. Может есть у кого на Дельфи аналог ?
Radzhab вне форума   Ответить с цитированием
Старый 15.02.2011, 13:21   #84 (permalink)
SOCKS5
 
Аватар для NekitoSP
 
Регистрация: 28.05.2009
Сообщений: 204
Member ID: 352
ICQ 306182
Skype nekitosp

Репутация: 353
Репутация: 353
Сказал(а) спасибо: 317
Поблагодарили 343 раз(а) в 152 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

Radzhab, а надо бы вообще в сам dpr файл это кидать =) то есть там как раз и начинается жизнь формы..
__________________
NekitoSP вне форума   Ответить с цитированием
Старый 16.02.2011, 12:03   #85 (permalink)
Programming
 
Аватар для Krebs
 
Регистрация: 09.06.2010
Адрес: Ыть
Сообщений: 398
Member ID: 8063

Репутация: 885
Репутация: 885
Сказал(а) спасибо: 1,604
Поблагодарили 465 раз(а) в 260 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

T.Text:=StreamToString(http.Document); почему ошибка ?
Я не объявил что ли StreamToString ?
__________________
База наш дом!
Krebs вне форума   Ответить с цитированием
Старый 24.02.2011, 18:18   #86 (permalink)
ExE
Заблокирован
 
Регистрация: 27.09.2010
Адрес: олень
Сообщений: 270
Member ID: 9474

Репутация: -991
Репутация: -991
Сказал(а) спасибо: 185
Поблагодарили 185 раз(а) в 127 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

хочу чтоб капча с рамблера появлялась при нажатии кнопки,но не работает

Код:
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('captcha.jpg',FMCcreate);
 idHTTP1.Get('http://id.rambler.ru/captcha/'+uniq_id+'.jpg', FS);
 FS.Free;
 Image1.Picture.LoadFromFile('captcha.jpg');
end;
ошибка в том что выделено красным
ExE вне форума   Ответить с цитированием
Старый 24.02.2011, 19:36   #87 (permalink)
Programming
 
Аватар для Krebs
 
Регистрация: 09.06.2010
Адрес: Ыть
Сообщений: 398
Member ID: 8063

Репутация: 885
Репутация: 885
Сказал(а) спасибо: 1,604
Поблагодарили 465 раз(а) в 260 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

ExE если это весь код , то ты не указал переменную S : string;

Цитата:
Сообщение от ExE Посмотреть сообщение
S:=IdHTTP1.Get('http://id.rambler.ru/script/newuser.cgi');
__________________
База наш дом!

Последний раз редактировалось Krebs; 24.02.2011 в 19:48.
Krebs вне форума   Ответить с цитированием
Пользователь сказал cпасибо:
Старый 24.02.2011, 19:54   #88 (permalink)
SOCKS5
 
Аватар для Radzhab
 
Регистрация: 16.08.2009
Сообщений: 214
Member ID: 2173
ICQ 29755555

Репутация: 278
Репутация: 278
Сказал(а) спасибо: 153
Поблагодарили 248 раз(а) в 145 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

Есть аналог FineReader на ДЕльфи ? исходнег
Radzhab вне форума   Ответить с цитированием
Старый 24.02.2011, 20:04   #89 (permalink)
ExE
Заблокирован
 
Регистрация: 27.09.2010
Адрес: олень
Сообщений: 270
Member ID: 9474

Репутация: -991
Репутация: -991
Сказал(а) спасибо: 185
Поблагодарили 185 раз(а) в 127 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

Krebs,

Код:
var
  Form1: TForm1;

implementation
 var uniq_id, S:string;

{$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('captcha.jpg',FMCcreate);
 idHTTP1.Get('http://id.rambler.ru/captcha/'+uniq_id+'.jpg', FS);
 FS.Free;
 Image1.Picture.LoadFromFile('captcha.jpg');
end;
полный код


Последний раз редактировалось ExE; 24.02.2011 в 20:11.
ExE вне форума   Ответить с цитированием
Старый 24.02.2011, 20:19   #90 (permalink)
Programming
 
Аватар для Krebs
 
Регистрация: 09.06.2010
Адрес: Ыть
Сообщений: 398
Member ID: 8063

Репутация: 885
Репутация: 885
Сказал(а) спасибо: 1,604
Поблагодарили 465 раз(а) в 260 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

Код:
function Pars(T_, ForS, _T: string): string;
var
  a, b: integer;
begin
  Result := '';
  if (T_ = '') or (ForS = '') or (_T = '') then
    Exit;
  a := Pos(T_, ForS);
  if a = 0 then
    Exit
  else
    a := a + Length(T_);
  ForS := Copy(ForS, a, Length(ForS) - a + 1);
  b := Pos(_T, ForS);
  if b > 0 then
    Result := Copy(ForS, 1, b - 1);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
MS:TMemoryStream;
pic: TJPEGImage;
picture:string;
begin
 Button1.Enabled:=false;
 with HTTP.Request do
  begin
   UserAgent:='Opera/9.80 (Windows NT 6.0; U; ru) Presto/2.2.15 Version/10.10';
   Host:='icq.com';
   Accept:='text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1';
   AcceptLanguage:='ru-RU,ru;q=0.9,en;q=0.8';
   AcceptCharset:='iso-8859-1, utf-8, utf-16, *;q=0.1';
   ContentType:='application/x-www-form-urlencoded';
  end;
 IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method:=sslvSSLv23;
 Http.IOHandler:=IdSSLIOHandlerSocketOpenSSL1;

 if (Form1.ProxyButton.Down) and (Edit2.Text<>'') then
   begin
    IdSocksInfo1.Authentication:= saNoAuthentication;
    IdSSLIOHandlerSocketOpenSSL1.TransparentProxy:=IdSocksInfo1;
    Http.IOHandler:=IdSSLIOHandlerSocketOpenSSL1;
    IdSocksInfo1.Version:=svSocks5;
    IdSocksInfo1.Host:=Copy(Edit2.Text,1,Pos(':',Edit2.Text)-1);
    IdSocksInfo1.Port:=strtoint(Copy(Edit2.Text,Pos(':',Edit2.Text)+1,length(Edit2.Text)-Pos(':',Edit2.Text)));
   end
 else
  begin
   IdSocksInfo1.Host:='';
   IdSocksInfo1.Port:=0;
  end;

 IdSSLIOHandlerSocketOpenSSL1.ConnectTimeout:=20000;
 IdSSLIOHandlerSocketOpenSSL1.ReadTimeout:=20000;
 Http.ConnectTimeout:=20000;
 Http.ReadTimeout:=20000;
 HTTP.HandleRedirects:=true;
 Error:=false;
 try
  StrPage2:=HTTP.Get('https://www.icq.com/register/');
 except
  Error:=true;
 end;
 if not(Error) then
  begin
   picture:=Pars('gnm=', StrPage2, '"');
   Error:=false;
   try
    MS:=TMemoryStream.Create;
    HTTP.Get('https://www.icq.com/img/aa_img.php?gnm='+picture,MS);
   except
    Error:=true;
   end;
   if not(Error) then
    begin
     MS.Position:=0;
     pic:= TJPEGImage.Create;
     pic.LoadFromStream(MS);
     Image1.Picture.Assign(pic);
     Edit1.Enabled:=true;
     Edit1.SetFocus;
     Button3.Enabled:=true;
     Button3.Default:=true;
    end
   else
    begin
     Memo1.Lines.Add(FormatDateTime('tt', Now)+' - Captcha request failed!');
     Button1.Enabled:=true;
    end;
   try
    MS.Free;
   except
   end;
   try
    pic.Free;
   except
   end;
  end
 else
  begin
   Memo1.Lines.Add(FormatDateTime('tt', Now)+' - Error page request!');
   Button1.Enabled:=true;
  end;
end;
именно с рамблера капча
__________________
База наш дом!
Krebs вне форума   Ответить с цитированием
Ответ

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Вкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вопросы которые вы хотели задать, но боялись спросить 2FED Флейм 210 12.05.2015 21:43
Delphi. С чего же начать? Xsena Программирование 25 12.10.2009 19:04
Ответы на Частозадаваемые Вопросы :) aka_NooB Информация об ICQ 0 27.05.2009 23:40




DDoS Protected




Мы в твиттере, Proxy-Base.Org Twitter

Proxy-Base Community - Анонимность и безопасность в интернете.
Наши партнеры: CRC Labs, SEO-Crack.Com, Garsuk.Com, SED Team, Skladchik.com, BSS Family

Powered by vBulletin® | Булка сделана в пекарне®
Copyright © 2000 - , Jelsoft Enterprises Ltd. Перевод: zCarot
Вся информация на сайте выложена исключительно в ознакомительных целях.