VPF::Добавить сайт в Memori.Ru - Форум программистов

ZZnOB

Дата 5.4.2010, 22:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 1.7.2009

Репутация: нет
Всего: нет

Здравствуйте уважаемые товарищи кодеры.
Пишу програмку для добавление страниц сайта в соц закладки. Нарисовался вот такой код:

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdCookieManager, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP;

type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    IdCookieManager1: TIdCookieManager;
    sadres: TEdit;
    snazv: TEdit;
    sopis: TEdit;
    stag: TEdit;
    Button1: TButton;
    slogin: TEdit;
    sparol: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
 var
 zz:TStringList;
 Resp:TStringStream;
 r,i,f,s,tok:String;
begin
try
IdHttp1.Request.Referer:='http://memori.ru/loginform/';
zz:=TStringList.Create;
zz.Add('login='+slogin.Text);
zz.Add('password='+sparol.Text);
zz.Add('membermy=on');
idhttp1.Post('http://memori.ru/loginform/',zz);
finally
    zz.Free;
 end;

  r:=IdHTTP1.Get('http://memori.ru/linkadd/');
  i:='<input type="hidden" name="token" value="';
  if Pos(i, r)=0 then
     ShowMessage('Ошибка при получении значения.')
  else
  f:=copy(r,pos('value="',r)+7,length(r));
  s:=copy(f,0,pos('"',f)-1);
  tok:=Trim(s);

 try
 idhttp1.Request.Referer:='http://memori.ru/linkadd/';
   zz:=TStringList.Create;
   Resp:= TStringStream.Create('');
   zz.Add('book:=');
   zz.Add('urlRedirect=');
   zz.Add('url='+sadres.Text);
   zz.Add('title='+snazv.Text);
   zz.Add('description='+sopis.Text);
   zz.Add('hdescr=');
   zz.Add('tags='+stag.Text);
   zz.Add('mark=5');
   zz.Add('unSeen=on');
   zz.Add('ShowOnMain=on');
   zz.Add('token='+tok);
   idhttp1.Post('http://memori.ru/linkadd/',zz,Resp);
   Memo1.Text:=Resp.DataString;
 finally
 begin
   zz.Free;
   Resp.Free;
 end;

 end;




end;

end.

Но не работает... Судя по всему косячу с авторизацией, но вот где , найти не могу. Помогите пожалуйста советом, ткните носом smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »