Функция Pos возвращает 0

[gufon]

Функция Pos возвращает 0, но текст который я ищу есть, а она ПОС говорит что нет

[kangreon]

Вы ищите кириллические символы?
И какая версия Delphi?

[gufon]

7 семерка, (сообщение слишком короткое)
ищу вот <span>

[chertovich]

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

[gufon]

не совпадает я скопировал даже от туда

[gufon]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    Memo1: TMemo;
    Button1: TButton;
    Timer1: TTimer;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

         procedure TForm1.Button1Click(Sender: TObject);
var data:tstringlist;
      PageProfile:string;
      error:boolean;
begin
IdHTTP1.AllowCookies:=true;
IdHTTP1.HandleRedirects:=false;
data:=tstringlist.create;
data.Add('act=login');
data.Add('expire=1');
data.Add('vk=');
data.Add('email=login');  // логин для авторизации
data.Add('pass=pass');  // пароль для авторизации
data.Add('success_url=http://vkontakte.ru/share.php?act=logged');
error:=false;
try
  PageProfile:=IdHTTP1.Post('http://login.vk.com/', data);
except
  error:=true;
end;

if not(error) then
  begin
   data.Clear;
   data.Add('s='+Copy(PageProfile, Pos('value', PageProfile)+7, 56));
   data.Add('op=slogin');
   data.Add('redirect=1');
   data.Add('expire=1');
   data.Add('to=');
   IdHTTP1.HandleRedirects:=true;
   try
    IdHTTP1.Post('http://vkontakte.ru/share.php?act=logged', data);
   except
   end;
   PageProfile:=IdHTTP1.get('http://vkontakte.ru');
   Memo1.Lines.Add('Авторизация удалась');
  end
else
  Memo1.Lines.Add('Авторизация не удалась');

Data.Free;
Timer1.Enabled:= true;

end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Edit1.Text:=(IdHTTP1.Get('http://vkontakte.ru/danilkovalenko'));
showMessage(inttostr(AnsiPos('<span>',Edit1.Text)));
end;

end.

[AlDelta]

gufon, давайте примеры кода И текста, в котором идет поиск

[chertovich]

Сообщение от gufon

не совпадает я скопировал даже от туда

Может ты неправильно вводишь параметры, первый параметр входящая строка, второй - то, где ты ищешь.
Помню раньше в этом иногда ошибался)

А почему AnsiPos, а не просто Pos?

[AlDelta]

Для IdHTTP1 подключен TIdCookieManager? Подключите TIdCookieManager, нажмите Button1, а потом уже включайте таймер

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Edit1.Text:=(IdHTTP1.Get('http://vkontakte.ru/danilkovalenko'));
showMessage(inttostr(AnsiPos('<span >',Edit1.Text)));
end;

Сейчас вы получаете html-код страницы для незалогиненного пользователя. В этом html-коде нет <span>!

Попробуйте выйти из контакта. Потом вставьте в адресную строку h_t_t_p://vkon.ru/danilkovalenko и посмотрите поиском исходный код страницы...

[gufon]

Edit1.Text:=(IdHTTP1.Get('http://vkontakte.ru/danilkovalenko'));
showMessage(inttostr(AnsiPos('<span >',Edit1.Text)));

вот тот самый код