获取网页源码的问题

2013-06-29 11:53:07 403 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

python selenium 在linux平台下获取页面为空 selenium linux 平台获取页面为空在linux下获取的网页源码为一下内容 &lt;html xmlns="http://www.w3.org/1999/xhtml"&gt;&lt;head&gt;&lt;/head&gt;&lt;body&gt;&lt;/body&gt;&lt;/html&gt; 解决方案方案一 from pyvirtualdisplay 阅读详情

以下的代码为什么加上带有注释的两句就会有时候出问题,并且不能用TRY EXCEPT END
否则有时候查询网页会返回空

function GetWebPage(const Url: string): string;
var
Session, HttpFile: HINTERNET;
szSizeBuffer: Pointer;
dwLengthSizeBuffer: DWord;
dwReserved: DWord;
dwFileSize: DWord;
dwBytesRead: DWord;
Contents: PChar;
begin
Session := InternetOpen('', 0, nil, nil, 0);
HttpFile := InternetOpenUrl(Session, PChar(Url), nil, 0, 0, 0);
dwLengthSizeBuffer := 1024;
try //
GetMem(szSizeBuffer, dwLengthSizeBuffer); //给szsizebuffer动态申请1024内存空间
GetMem(Contents, dwFileSize);
HttpQueryInfo(HttpFile, 5, szSizeBuffer, dwLengthSizeBuffer, dwReserved);
GetMem(Contents, dwFileSize);
InternetReadFile(HttpFile, Contents, dwFileSize, dwBytesRead);
InternetCloseHandle(HttpFile);
InternetCloseHandle(Session);
Result := StrPas(Contents);
finally//
FreeMem(szSizeBuffer); //释放，object高手突破说的话：借债还钱，天经地义
FreeMem(Contents);
end;//
end;

...全文

Halcon像素比例标定(误差大)-相机标定一种简易标定：像素比例标定，如果需要精确一些则需要在高度和宽度上都需要计算，然后求出比例系数。需要高精度标定板和相机，以及多次标定才能达到稳定的状态，这种标定简单，但是误差大。 read_image (Img0008, 'D:/00项目代码/000视觉软件/02Halocn算法20190501/04测量20190424/07_比例计算测量标定/IMG0008.jpg') rgb1_to_... 阅读详情

fbiboss

网络通信/分布式开发 1,594 成员 32,944 内容

+ 关注 + 加入社区

切换为时间正序

fbiboss 2013-07-02

打赏
举报

还是不行,搞不明白了,要是直接抄过来是个正常的代码也不会问了

怪才 2013-07-01

打赏
举报

引用 7 楼 none01 的回复:

function GetWebPage(const Url: string): string;
var
      Session, HttpFile: HINTERNET;
      szSizeBuffer: Pointer;
      dwLengthSizeBuffer: DWord;
      dwReserved: DWord;
      dwFileSize: DWord;
      dwBytesRead: DWord;
      Contents: PChar;
begin
      Session := InternetOpen('', 0, nil, nil, 0);
      HttpFile := InternetOpenUrl(Session, PChar(Url), nil, 0, 0, 0);
      dwLengthSizeBuffer := 1024;
      try   //
            // 这行放到HttpQueryINfo后去 GetMem(szSizeBuffer, dwLengthSizeBuffer); //给szsizebuffer动态申请1024内存空间
            GetMem(Contents, dwFileSize);
            HttpQueryInfo(HttpFile, 5, szSizeBuffer, dwLengthSizeBuffer, dwReserved);
            GetMem(szSizeBuffer, dwLengthSizeBuffer); //给szsizebuffer动态申请1024内存空间
            GetMem(Contents, dwFileSize);
            InternetReadFile(HttpFile, Contents, dwFileSize, dwBytesRead);
            InternetCloseHandle(HttpFile);
            InternetCloseHandle(Session);
            Result := StrPas(Contents);
      finally//
            FreeMem(szSizeBuffer); //释放，object高手突破说的话：借债还钱，天经地义
            FreeMem(Contents);
      end;//
end;

另外，19行多余的。

怪才 2013-07-01

打赏
举报

function GetWebPage(const Url: string): string;
var
      Session, HttpFile: HINTERNET;
      szSizeBuffer: Pointer;
      dwLengthSizeBuffer: DWord;
      dwReserved: DWord;
      dwFileSize: DWord;
      dwBytesRead: DWord;
      Contents: PChar;
begin
      Session := InternetOpen('', 0, nil, nil, 0);
      HttpFile := InternetOpenUrl(Session, PChar(Url), nil, 0, 0, 0);
      dwLengthSizeBuffer := 1024;
      try   //
            // 这行放到HttpQueryINfo后去 GetMem(szSizeBuffer, dwLengthSizeBuffer); //给szsizebuffer动态申请1024内存空间
            GetMem(Contents, dwFileSize);
            HttpQueryInfo(HttpFile, 5, szSizeBuffer, dwLengthSizeBuffer, dwReserved);
            GetMem(szSizeBuffer, dwLengthSizeBuffer); //给szsizebuffer动态申请1024内存空间
            GetMem(Contents, dwFileSize);
            InternetReadFile(HttpFile, Contents, dwFileSize, dwBytesRead);
            InternetCloseHandle(HttpFile);
            InternetCloseHandle(Session);
            Result := StrPas(Contents);
      finally//
            FreeMem(szSizeBuffer); //释放，object高手突破说的话：借债还钱，天经地义
            FreeMem(Contents);
      end;//
end;

huojiehai 2013-06-30

打赏
举报

fbiboss 2013-06-30

打赏
举报

这样也不行,还是会有问题

引用 3 楼 s11ss 的回复:

begin Session := InternetOpen('', 0, nil, nil, 0); HttpFile := InternetOpenUrl(Session, PChar(Url), nil, 0, 0, 0); dwLengthSizeBuffer := 1024; GetMem(szSizeBuffer, dwLengthSizeBuffer); //给szsizebuffer动态申请1024内存空间 GetMem(Contents, dwFileSize); try // HttpQueryInfo(HttpFile, 5, szSizeBuffer, dwLengthSizeBuffer, dwReserved); InternetReadFile(HttpFile, Contents, dwFileSize, dwBytesRead); InternetCloseHandle(HttpFile); InternetCloseHandle(Session); Result := StrPas(Contents); finally// FreeMem(szSizeBuffer); //释放，object高手突破说的话：借债还钱，天经地义 FreeMem(Contents); end;// end;

e我行 2013-06-30

打赏
举报

你这里dwFileSize没有赋值啊，是系统中随机的一个值，当然可能有时出问题罗

s11ss 2013-06-29

打赏
举报

begin Session := InternetOpen('', 0, nil, nil, 0); HttpFile := InternetOpenUrl(Session, PChar(Url), nil, 0, 0, 0); dwLengthSizeBuffer := 1024; GetMem(szSizeBuffer, dwLengthSizeBuffer); //给szsizebuffer动态申请1024内存空间 GetMem(Contents, dwFileSize); try // HttpQueryInfo(HttpFile, 5, szSizeBuffer, dwLengthSizeBuffer, dwReserved); InternetReadFile(HttpFile, Contents, dwFileSize, dwBytesRead); InternetCloseHandle(HttpFile); InternetCloseHandle(Session); Result := StrPas(Contents); finally// FreeMem(szSizeBuffer); //释放，object高手突破说的话：借债还钱，天经地义 FreeMem(Contents); end;// end;

fbiboss 2013-06-29

打赏
举报

我知道IDHTTP啊,我只是想知道为什么会有问题,搞不明白,有时候有问题有时候又正常

hsfzxjy 2013-06-29

打赏
举报

你不如用IdHttp控件：


uses IdHTTP;
function GetWebPage(URL: string):string;
var
  http: TIDHttp;
begin
  try
    http:=TIdHttp.Create(nil);
    result := http.Get(URL);
  finally
    Http.Free;
  end;
end;

获取网页源码的问题

相关推荐