如何用delphi提取html文件中的内容？？？(急)

Question

如何用delphi提取html文件中的内容？？？

Answer 1

这个问题比较好解决，首先你要先获得html页面内的信息
在indy组件中，好在有一个idHttp的组建，使用这个对象的get方法，就可以获取到页面信息
源代码注意，这些信息将保存在一个string类型的字符串里面。解析这些信息就可以了

Answer 2

to : blastodermx(柏拉图的迷茫)
说的容易做起来难啊，解析，呵呵

Answer 3

高手们写的函数：
function HttpRequestExecute(const URL, QureyData: string): string;
var
   hSession, hConnect, hRequest: hInternet;
   RequestMethod, TempStr, HostName, FileName: string;
   BytesToRead      : cardinal;
   DataLength       : integer;
   AData            : array[0..40960] of char;
   InternetFlag     : LongWord;
   AcceptType       : PAnsiChar;
   Buf              : array[0..1023] of char;
   dwBufLen, dwIndex: LongWord;
   procedure ParseURL(URL: string; var HostName, FileName: string);
   var
      i             : Integer;
   begin
      if Pos('http://', URL) <> 0 then
         System.Delete(URL, 1, 7);
      i := Pos('/', URL);
      HostName := Copy(URL, 1, i);
      FileName := Copy(URL, i, Length(URL) - i + 1);
      if (Length(HostName) > 0) and (HostName[Length(HostName)] = '/') then
         SetLength(HostName, Length(HostName) - 1);
   end;
   procedure CloseHandles;
   begin
      InternetCloseHandle(hRequest);
      InternetCloseHandle(hConnect);
      InternetCloseHandle(hSession);
   end;
begin
   result := '';
   ParseURL(URL, HostName, FileName);
   hSession := InternetOpen(PChar(''),
      INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
   hConnect := InternetConnect(hSession, PChar(HostName),
      INTERNET_DEFAULT_HTTP_PORT, '', '', INTERNET_SERVICE_HTTP, 0, 0);
   if QureyData = '' then RequestMethod := 'GET'
   else RequestMethod := 'POST';
   InternetFlag := 0;
   AcceptType := PChar('Accept: */*');
   hRequest := HttpOpenRequest(hConnect, PChar(RequestMethod), PChar(FileName), 'HTTP/1.0',
      '', @AcceptType, InternetFlag, 0);
   if QureyData = '' then
      HttpSendRequest(hRequest, nil, 0, nil, 0)
   else
      HttpSendRequest(hRequest, 'Content-Type: application/x-www-form-urlencoded', 47,
         PChar(QureyData), Length(QureyData));
   BytesToRead := 0;
   dwIndex := 0;
   dwBufLen := sizeof(Buf);
   HttpQueryInfo(hRequest, HTTP_QUERY_CONTENT_LENGTH, @Buf, dwBufLen, dwIndex);
   DataLength := StrToIntDef(Buf, 0);
   while InternetReadFile(hRequest, @AData, SizeOf(AData), BytesToRead) do
   begin
      if BytesToRead = 0 then break;
      SetString(TempStr, AData, BytesToRead);
      Result := Result + TempStr;
   end;
   CloseHandles;
end;使用时：
memo2.Lines.Text :=HttpRequestExecute(edit1.Text ,'') ;

Answer 4

放入IdHttp控件
mStr :String;
url: 网址
mStr := IdHttp1.Get(url);