Delphi Support

Nikon · 09.09.2013

Alex Ey said: ↑
Code:
function GetLocation(const headers:TStringList):string;
var i:integer;
begin
  for I := 0 to headers.Count - 1 do
    if pos('Location: ',headers[i])>0 then
        begin
          Result:=copy(headers[i],10,length(headers[i])-9);
          break;
        end;
end;
Функция достает редирект из предыдущего запроса, так можно использовать
Code:
httpsend.HTTPMethod('get',GetLocation(httpsend.Headers));
Click to expand...
к чему так усложнять?
if pos('РЕДИРЕКТ', httpsend.Headers.Text) then begin

Alex Ey · 09.09.2013

Nikon said: ↑

к чему так усложнять?
if pos('РЕДИРЕКТ', httpsend.Headers.Text) then begin
Click to expand...

я показал как сделать редирект, а не проверить его наличие
да и сложного тут ничего нет

Nikon · 09.09.2013

Alex Ey said: ↑

я показал как сделать редирект, а не проверить его наличие
да и сложного тут ничего нет
Click to expand...

а сори, не правильно вопрос прочел

jeak · 09.09.2013

Acsis said: ↑

Я новичок!
Саит игры:http://www.lotro-russia.com/account/
Не парсит почему то подскажите как сделать чтоб парсил(марки и данные персов)

unit LotroChekers;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdHTTP;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Memo1: TMemo;
Button1: TButton;
IdHTTP1: TIdHTTP;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

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
Data: TStringlist;
HTML,go:string;

Pars1,Pars2:string;
begin
go:='http://www.lotro-russia.com/auth/login/';
Data:=TStringlist.Create;
Data.Add('login='+ Edit1.Text);
Data.Add('password='+ Edit2.Text);
Data.Add('authsave=0');
HTML:=idHTTP1.Post(go,data);
if pos('href="/support/"',HTML)<>0 then
begin
ShowMessage('Мы авторизировались');
Pars1:=Pars('У вас на счету:</td><td class=c><b> ',HTML,'марок</b>');
Memo1.Lines.Add('На счету'+ Pars1);
end
else
begin
ShowMessage('Ошибка авторизации');
Memo1.Lines.Add('Ошибка авторизации');
end;
end;

end.

Также подскажите как сделать чтобы!
Чекать с базы а не по одному аккаунту!
Использование прокси!
Создание текстовиков good и bad
Прощу все разьеснять так как я нуб и многово еще не понимаю.
Когда даете код говорите куда его вставлять!
Буду очень благодарен за помошь!Всем +!
Click to expand...

Мне кажется или ты обалдел?
Читай побольше книг по программированию, в частности по Delphi, а не сказки.
Много чего просишь подсказать, думай своей головой что да как.

Если обладаешь базовыми знаниями, то смотри видео ZdesBilYa, хотя не советую.

P.S. Тебе бы сначала язык по проще выучить, например скажем русский

ЖаKо · 09.09.2013

можно вопрос? у вас бесплатно?

jeak · 09.09.2013

ЖаKо said: ↑

можно вопрос? у вас бесплатно?
Click to expand...

Задавай.

ЖаKо · 09.09.2013

jeak said: ↑

Задавай.
Click to expand...

у вас бесплатно??? поддержка

Nikon · 09.09.2013

ЖаKо said: ↑

у вас бесплатно??? поддержка
Click to expand...

да. бесплатно. задавайте

jeak · 09.09.2013

ЖаKо said: ↑

у вас бесплатно??? поддержка
Click to expand...

Плати, если хочешь.
Сарказм

jeak · 09.09.2013

ЖаKо said: ↑

у вас бесплатно??? поддержка
Click to expand...

Так где твой вопрос?
Так и не дождались.

DoteNumberOne · 09.09.2013

Где можно скачать актуальную версию делфи?

AGAP88 · 10.09.2013

DoteNumberOne said: ↑

Где можно скачать актуальную версию делфи?
Click to expand...

На сайте у ханди или на рутрекере!

leshiy))) · 11.09.2013

посмотрите , люди , как вам? на меня можно жмакнуть :D