Delphi Support

Nikon · 09.09.2013

Alex Ey сказал: ↑
Код:
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;
Функция достает редирект из предыдущего запроса, так можно использовать
Код:
httpsend.HTTPMethod('get',GetLocation(httpsend.Headers));
Нажмите, чтобы раскрыть...
к чему так усложнять?
if pos('РЕДИРЕКТ', httpsend.Headers.Text) then begin

Alex Ey · 09.09.2013

Nikon сказал: ↑

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

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

Nikon · 09.09.2013

Alex Ey сказал: ↑

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

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

jeak · 09.09.2013

Acsis сказал: ↑

Я новичок!
Саит игры: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
Прощу все разьеснять так как я нуб и многово еще не понимаю.
Когда даете код говорите куда его вставлять!
Буду очень благодарен за помошь!Всем +!
Нажмите, чтобы раскрыть...

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

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

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

ЖаKо · 09.09.2013

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

jeak · 09.09.2013

ЖаKо сказал: ↑

можно вопрос? у вас бесплатно?
Нажмите, чтобы раскрыть...

Задавай.

ЖаKо · 09.09.2013

jeak сказал: ↑

Задавай.
Нажмите, чтобы раскрыть...

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

Nikon · 09.09.2013

ЖаKо сказал: ↑

у вас бесплатно??? поддержка
Нажмите, чтобы раскрыть...

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

jeak · 09.09.2013

ЖаKо сказал: ↑

у вас бесплатно??? поддержка
Нажмите, чтобы раскрыть...

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

jeak · 09.09.2013

ЖаKо сказал: ↑

у вас бесплатно??? поддержка
Нажмите, чтобы раскрыть...

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

DoteNumberOne · 09.09.2013

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

AGAP88 · 10.09.2013

DoteNumberOne сказал: ↑

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

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

leshiy))) · 11.09.2013

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