Народ ну хелп ми а ?
Как сделать авторизация на яндексе и скопировать уже с авторизованного ака (со страницы яндекс ру) один всего 1 символ?
А теперь конкретней.
1 авторизуемся на яндекс ру.
2 Со страницы Яндекс ру находим искомое слово (уже сделал).
3 Парсим и выводи в лейбл (тоже есть).
Народ ну вот код парса (ниже) , (на форме Батон,лейбл и TIdHTTP)
А как теперь сделать авторизацию? и дальнейший парс ?
Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdHTTP, StdCtrls,ComObj,ExcelXP, ActiveX, Grids, OleServer, Excel2000,
IdMessageClient, IdSMTP;
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
IdHTTP1: TIdHTTP;
Button3: TButton;
ExcelApplication1: TExcelApplication;
IdSMTP1: TIdSMTP;
Edit1: TEdit;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
vExcel: Variant;
end;
var
Form1: TForm1;
i:integer;
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
Source, Source_forum:TstringList;
Begin
Source:=TStringList.Create;
Source.Text:=IdHTTP1.Get('http://www.yandex.ru/');
label1.caption:=Utf8ToAnsi (WideString(label1.caption));
Source.Text:=Utf8ToAnsi (WideString( Source.Text));
label1.caption:=label1.caption+Pars('<a href="//maps.yandex.ru/traffic" class="b-link_black_novisit">',Source.Text,'</a>');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
vExcel:=CreateOleObject('Excel.Application');
vExcel.Visible:=false;
end;
end.
Админ: Пользуемся тегами для оформления кода!