当前位置：文江博客话题详情

如何在 Delphi 中获取网页的源代码？

发布于 2024-12-11 00:29:57 字数 93 浏览 0 评论 0原文

我正在使用 IdHTTP Indy 组件获取网页源代码，但是在阅读了该组件的问题以及该网站上的一些问题后，它似乎并不总是最佳选择。

您对获取网页有什么建议？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

苏佲洛 2024-12-18 00:29:57

使用印地。创建一个 TIdHTTP 对象并调用其 Get 方法。它将网页源作为字符串返回，或将其放入您提供的流中。

回复收藏 0 原文

风筝在阴天搁浅。 2024-12-18 00:29:57

对于 COM/ActiveX 对象，WinHttp.WinHttpRequest.5.1：

function getPostTranslateLibre3(feedstream, fromlang, tolang: string): string;
var
  Url,aAPI_KEY, source: string;
  jo, locate: TJSONObject;
  httpReq,hr: Olevariant;
  strm: TStringStream;
begin
  httpReq:= CreateOleObject('WinHttp.WinHttpRequest.5.1');
  // Open the HTTPs connection.  
  try              
    hr:= httpReq.Open('POST','https://libretranslate.pussthecat.org/translate', false);
    httpReq.setRequestheader('user-agent',CUSERAGENT  );
    httpReq.setRequestheader('content-type','application/x-www-form-urlencoded');  
             
    if hr= S_OK then HttpReq.Send('q='+HTTPEncode(feedstream)+
                                  '&source='+fromlang+'&target='+tolang);
    If HttpReq.Status = 200 Then
       result:= HttpReq.responseText
    Else result:= 'Failed at getting response:'+itoa(HttpReq.Status)+HttpReq.responseText;
    //writeln('debug response '+HttpReq.GetAllResponseHeaders);     
  finally
    httpreq:= unassigned;  
  end;                  
end;

With COM/ActiveX objects, WinHttp.WinHttpRequest.5.1:

function getPostTranslateLibre3(feedstream, fromlang, tolang: string): string;
var
  Url,aAPI_KEY, source: string;
  jo, locate: TJSONObject;
  httpReq,hr: Olevariant;
  strm: TStringStream;
begin
  httpReq:= CreateOleObject('WinHttp.WinHttpRequest.5.1');
  // Open the HTTPs connection.  
  try              
    hr:= httpReq.Open('POST','https://libretranslate.pussthecat.org/translate', false);
    httpReq.setRequestheader('user-agent',CUSERAGENT  );
    httpReq.setRequestheader('content-type','application/x-www-form-urlencoded');  
             
    if hr= S_OK then HttpReq.Send('q='+HTTPEncode(feedstream)+
                                  '&source='+fromlang+'&target='+tolang);
    If HttpReq.Status = 200 Then
       result:= HttpReq.responseText
    Else result:= 'Failed at getting response:'+itoa(HttpReq.Status)+HttpReq.responseText;
    //writeln('debug response '+HttpReq.GetAllResponseHeaders);     
  finally
    httpreq:= unassigned;  
  end;                  
end;

回复收藏 0 原文