Получение кода html страницы по заданному URL (Lazarus, FreePascal)
Без сторонних компонентов обойтись к сожалению не удалось. Модуль который рекомендуют использовать в интернетиках fphttpclient — заставить работать не удалось — падал в access violation… Поэтому пришлось подключать компоненты synaptic:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
var httpsend; function GetWebPageContent(const Url: string): String; var fs: TStringList; HTTP: THTTPSend; begin fs := TStringList.Create; HTTP := THTTPSend.Create; try HTTP.HTTPMethod('GET', Url); fs.LoadFromStream(Http.Document); Result := fs.Text; finally fs.Free; http.Free; end; end; |