Авторизация на сайте

[rosljk]

Вы на подскажыте как вставить код HTM в DELPHI ?

[BDA]

Во-первых, одна тема - один вопрос.
Во-вторых, вам уже ответили, что это невозможно (по крайней мере, без webbrowser).
И, как заметил =master=, лучше воспользоваться АПИ скайпа.

[rosljk]

СПС Я ПОПИТАЮСЬ,Я просто хотел узнать Ваше мнение.

[rosljk]

Вы не подскажыте как можно получить: ПОЛ,ДЕНЬ РОЖДЕНИЯ и ПOСЛЕДНИЙ ВХОД????

[BDA]

Чтобы определить пол, нужно проверить, есть ли на странице строка вида "/social/search/field?FIELD_GENDER=Male" (наверное, для женского будет Female).
Там же, где "выдираем" user и img:

tmp := utf8toansi(strpage);
if pos('/social/search/field?FIELD_GENDER=Male',tmp)<>0 then showmessage('Мужик')
else
if pos('/social/search/field?FIELD_GENDER=Female',tmp)<>0 then showmessage('Женщина')
else
showmessage('Не определился');

Код страницы, где расположен день рождения:

<dt>Birthdate</dt>
<dd> 31/12/2013 </dd>

Тут опишу словами:
Ищем с помощью pos "<dt>Birthdate</dt>". Если pos не равен 0, т.е. день рождения указан, то ищем далее "<dd>" и копируем часть до "</dd>".

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

Вот так выглядит код последнего входа:

<li class="title">Последний вход</li>
<li>3 час. 35 мин. назад</li>

Все делается идентично.

[rosljk]

Вот как я вас понял

tmp := utf8toansi(strpage);
    tmp := copy(tmp, pos('<dt>Birthdate</dt>', tmp) + length('<dt>Birthdate</dt>'), length(tmp) - pos('<dt>Birthdate</dt>', tmp) - length('<dt>Birthdate</dt>'));
    tmp := copy(tmp, pos('<dd>', tmp) + length('<dd>'), length(tmp) - pos('<dd>', tmp) - length('<dd>'));
    tmp := copy(tmp, 5, pos('</dd>', tmp) - 5);

[BDA]

В принципе, почти правильно.
Просто нужно вам еще было посмотреть, что получается в переменной tmp.
А там получается фигня (дата окружена лишними символами табуляции, поэтому числа в последнем copy нужно подбирать вручную).
И, все-таки, нужно проверять, есть ли вообще информация о дне рождения.

tmp := utf8toansi(strpage);
    if pos('<dt>Birthdate</dt>', tmp) <> 0 then
    begin
      tmp := copy(tmp, pos('<dt>Birthdate</dt>', tmp) + length('<dt>Birthdate</dt>'), length(tmp) - pos('<dt>Birthdate</dt>', tmp) - length('<dt>Birthdate</dt>'));
      tmp := copy(tmp, pos('<dd>', tmp) + length('<dd>'), length(tmp) - pos('<dd>', tmp) - length('<dd>'));
      showmessage(copy(tmp, 29, 10));
    end;

[rosljk]

куда мне етот код ВСТАВЛЯТЬ?

[BDA]

В 1 юнит, туда же, где вырезается user и img.

[rosljk]

Я попробовал вывести Пол и Дату Рождения на Form2 B Lable2 и Lable3
Что послу вставки у меня появилось Много ОШЫБОК????