Как сделать проверку ?

[Пепел Феникса]

блин я же написал уже в чем проблема, и дал её решение.

[HmTH]

Сообщение от Пепел Феникса

блин я же написал уже в чем проблема, и дал её решение.

[DCC Error] ThreadUnit.pas(83): E2029 'END' expected but 'EXCEPT' found
[DCC Error] ThreadUnit.pas(85): E2125 EXCEPT or FINALLY expected
[DCC Error] ThreadUnit.pas(91): E2125 EXCEPT or FINALLY expected
[DCC Error] ThreadUnit.pas(93): E2029 'END' expected but 'FINALLY' found
[DCC Error] ThreadUnit.pas(97): E2029 '.' expected but ';' found
[DCC Warning] ThreadUnit.pas(98): W1011 Text after final 'END.' - ignored by compiler
[DCC Fatal Error] SborkaUrl.dpr(6): F2063 Could not compile used unit 'ThreadUnit.pas'

[HmTH]

Визуально это выглядит так
http://i047.radikal.ru/1010/fd/c48286794758.jpg

[Пепел Феникса]

блин запутался со счетом begin end;

try
  // Заходим на сайт, ищем form_build_id
  Tmp.Text := HTTP.Get('http://jd.mail.ru/');
  for I:=0 to Tmp.Count-1 do
    begin
      if Pos('name="form_build_id', Tmp[i])<>0 then
        begin
          BuildID := Copy(Tmp[i], Pos('id="', Tmp[i])+4, Length(Tmp[i]));
          BuildID := Copy(BuildID, 0, Pos('"',BuildID)-1);
          MainForm.StatusBar.Panels[0].Text := 'Form Build Id найден';
        end;
    end;
  // Заходим на сайт, ищем form_build_id
  // Код захода на сайт
  Data.Add('name='+Mail);
  Data.Add('pass='+Pass);
  Data.Add('op=');
  Data.Add('form_build_id='+BuildID);
  Data.Add('form_id=user_login_block');
  HTTP.Post('http://jd.mail.ru/node?destination=user', Data);
  // Код захода на сайт
  // Теперь собираем ссылки
  i := 0; // на всякий случай =)
  Tmp.Clear; // так же очищаем
  for num:=350 to 350000 do
    begin
     try
      TMP.Text := HTTP.Get('http://jd.mail.ru/user/'+ IntToStr(num));
      for I:=0 to Tmp.Count-1 do
        begin
          if Pos('my.mail.ru', Tmp[i])<>0 then
            begin
              Url := Copy(Tmp[i], Pos('href='#39, Tmp[i])+6, Length(Tmp[i]));
              Url := Copy(Url, 0, Pos(#39'>', Url)-2);
              MainForm.ListBoxUrl.Items.Append(Url);
            end
            else
            begin
              MainForm.StatusBar.Panels[0].Text := 'Ссылку не нашёл, продолжаю дальше';
              continue; // продолжение
            end;
          if (HTTP.ResponseCode = 404) or (HTTP.ResponseCode = 403) then
            begin
              continue;  // продолжение
            end;
        end;
     except
       continue;
     end;
    end;
  // Теперь собираем ссылки
  finally
    Tmp.Free; // освобождаем
    Data.Free;
  end;

вообще такие вещи надо самостоятельно уметь исправлять))
и кстати, учите все таки работу с исключениями.

[HmTH]

Ребят, спасибо огромное за помощь, заработало. Ура )
Премного благодарен )
Кому мог, репу накинул )

[grafgrial]

а для удобства я бы тебе посоветовал вывести вот так

for num:=Strtoint(edit1.text) to Strtoint(edit2.text) do

за место

 for num:=350 to 350000 do

[HmTH]

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

а для удобства я бы тебе посоветовал вывести вот так

for num:=Strtoint(edit1.text) to Strtoint(edit2.text) do

за место

 for num:=350 to 350000 do

Ок, спасибо, учту )

[HmTH]

Ребят, ещё один вопрос остался.
Как программно сделать что бы из вида

http://my.mail.ru/mail/semirag
http://my.mail.ru/inbox/kavaru

Преобразовывалось в

semirag@mail.ru
kavaru@inbox.ru

То есть у нас есть ссылка -

http://my.mail.ru/mail/semirag

/mail/ - означает домен
/semirag - означает логин

Я так понимаю что тут по аналогии парсера ? Но вот не понимаю, как сделать что бы он всё расставлял по своим местам, и добовлял "@" , и к домену ещё дописывал ".ru" . Есть у кого-то такие примеры ?

[HmTH]

Ну что, кто нибудь знает ?) Намекните хотя бы, куда копать )

[Пепел Феникса]

Copy/Pos/Delete
или же(что лучше, но в данном случае не оч важно) Copy/PosEx