Html

[alex0097]

Народ подскажите. Хочу сделать чтобы выводил в memo2 отчет с сайта:
http://infraud.name/index.php

ну тоесть когда вводишь числа: 426452 чтобы показывал в memo2 то что показал сайт

[alex0097]

кто нить поможет за $

[fate]

сайт не доступен

[Johnson]

Т.е. тебе нужно, что при вводе в едит "426452" выводило в мемо

426452 Fia Card Services, National Association CREDIT PLATINUM

правильно понимаю?

[alex0097]

да Johnson

[Johnson]

procedure TSDIAppForm.Button1Click(Sender: TObject);
var
ts:TStringList;
response:string;
begin
  ts:=TStringList.Create;
  Memo1.Clear;
  ts.Add('data='+Edit1.Text);
  Response:= idHTTP1.Post('http://infraud.name/index.php', ts );
  Response:=Copy(Response,Pos('<table class="center_table">',Response)+45+length(Edit1.Text),MAXINT);
  Delete(Response,Pos('</td></tr></table>',Response),MAXINT);
  while Pos('</td>',Response)>0 do begin
    Insert(' ',Response,Pos('</td>',Response));
    Delete(Response,Pos('</td>',Response),length('</td>'));
  end;
  while Pos('<td>',Response)>0 do begin
    Insert(' ',Response,Pos('<td>',Response));
    Delete(Response,Pos('<td>',Response),length('<td>'));
  end;


  Memo1.Lines.Add(Response);
end;

на форме есть:
Edit1 as Tedit
Memo1 as Tmemo
IdHTTP1 as TIdHTTP (вкладка Indy Clients палитры компонентов)

Вроде такого? Денег не прошу, но если есть желание отблагодарить - пиши в приват, скажу номер кошелька...