销售管理软件版1楼: 已知一个网址，如何获得该网址对应的html源代码？在delphi中如何实现？今天不解决，没饭吃了。。。

2楼: 用WebBrowser控件，先把网址传给WebBrowser，然后在想办法。因为浏览网页时，在本地缓存中都保留文件，在Temporary Internet Files目录中找到该文件即可。

或者直接在WebBrowser上想办法，因为WebBrowser本来就是为浏览html而做的 如人事管理软件

3楼: //html->

function TShowEmailInfoFrm.ShowEmailInfo(EmailStr: WideString): Boolean;

var

htmldocument : ihtmldocument2;

begin

Result:=False;

try

htmldocument := EmailBrower.Document as IHTMlDocument2;

htmldocument.body.innerHTML :=EmailStr;

Result:=True;

except

end;

end;

//->html

function TShowEmailInfoFrm.ShowEmailInfo(): WildString;

var

htmldocument : ihtmldocument2;

begin

try

htmldocument := EmailBrower.Document as IHTMlDocument2;

result:=htmldocument.body.innerHTML ;

except

end;

end;

procedure TShowEmailInfoFrm.FormCreate(Sender: TObject);

begin

EmailBrower.Navigate(＇＇about:blank＇＇);

EmailBrower.Navigate(＇＇你的url＇＇);

end;

4楼: 用idhttp

5楼: function UrlGetStr(const URL: string; ShowHeaders: boolean = false): string;

{--------------获取网页代码函数-----------------}

const

Agent = ＇＇Internet Explorer 6.0＇＇;

var

hFile, HInet: HINTERNET;

Buffer: array[0..32767] of Char;

BufRead: Cardinal;

BufSize: Cardinal;

TempStream: TStringStream;

dwIndex: dword;

begin

HInet := InternetOpen(PChar(Agent), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);

if Assigned(HInet) then

try

if LowerCase(Copy(URL,1,7)) <> ＇＇http://＇＇ then

hFile := InternetOpenUrl(HInet, PChar(＇＇http://＇＇ + URL), nil, 0, 0, 0)

else

hFile := InternetOpenUrl(HInet, PChar(URL), nil, 0, 0, 0);

TempStream := TStringStream.Create(＇＇＇＇);

dwIndex := 0;

BufSize := SizeOf(Buffer);

HttpQueryInfo(hfile, HTTP_QUERY_RAW_HEADERS_CRLF, @Buffer, BufSize, dwIndex);

if ShowHeaders then TempStream.Write(Buffer, BufSize);

if Assigned(hFile) then

try

with TempStream do

try

while InternetReadFile(hFile, @Buffer, BufSize, BufRead) and (BufRead > 0) do

Write(Buffer, BufRead);

Result := DataString;

finally

Free;

end;

finally

InternetCloseHandle(hFile);

end;

finally

InternetCloseHandle(hinet);

end;

end;

6楼: 用IdHTTP组件应该是最简的，

s: TStringStream;

IdHTTP.Get(＇＇http://www.sohu.com＇＇,s);

ShowMessage(s.DataString);

销售管理软件版7楼: 我刚刚做了一个.很简单的.用IdHttp的Get方法.再用多线程.速度可以很快的.

8楼: 多人接受答案了。