DELPHI 检测URL地址是否有效
function TForm1.CheckUrl(url: string):Boolean;var hSession, hfile, hRequest: HINTERNET; dwindex, dwcodelen: dword; dwcode: array[1..20] of Char; res: PChar;begin Result := false; if Pos(http://
原创
2008-05-09 10:25:00 ·
607 阅读 ·
0 评论