К основному контенту

Сообщения

Сообщения за июнь, 2017

Парсинг URL'а средствами Indy

Очень просто uses IdURI; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var URI: TIdURI; begin URI := TIdURI.Create('http://login:password@somehost.somedomain.com:8080/some_path/something_else.html?param1=val&param2=val'); try Memo1.lines.add(URI.Protocol); Memo1.lines.add(URI.Username); Memo1.lines.add(URI.Password); Memo1.lines.add(URI.Host); Memo1.lines.add(URI.Port); Memo1.lines.add(URI.Path); Memo1.lines.add(URI.Document); Memo1.lines.add(URI.Params); finally URI.Free; end; end;