文件的下载与读取(100)

我有一web空间，是存放客户资料的，当我访问如：http://www.xx.com/order.asp?id=3的时候，会产生一个含有一小字符串内容的文本文件给我下载，但是，我不有通过下载的方式来读取内容，在delphi里不知道有没有什么方式可以实现，请有此经验的人指点，或给个思路，此功能，我用ASP已经实现，但ASP不能满足我的其它要求，由于读取次数频繁，且还要定时，所以想改用DELPHI，ASP实现的程序是这样：<%function gethttp(url)dim xmlon error resume nextset xml=server.createobject("Microsoft.XMLHTTP")xml.open "get",url,falsexml.sendif not xml.readystate=4 or not xml.status=200 or err then gethttp="":exit functiongethttp=xml.responsetextset xml=nothingend function contect=gethttp("http://www.xxx.com/order.asp?id=123")Response.Write(contect)%>不知道delphi 能不能也通过XML来实现，谢谢

uses msxml,Variants;function readDataFromASP(strURL:string;var data:string ):Boolean;var hr: IXMLHTTPRequest;//uses msxml idsp: IDispatch; rs: Variant; webcontent:array of byte; webcontentStr:string;begin // try result:=false; hr := CoXMLHTTPRequest.Create as IXMLHTTPRequest; hr.open('post', strURL, False, EmptyParam, EmptyParam);//uses Variants; hr.send(EmptyParam); if hr.status = 200 then begin webcontent:=hr.responsebody; webcontentStr:=StrPas(@webcontent[0]); //data:=@webcontent[1]; data:=webcontentStr ; result:=True; end; except result:=false; end; end;

g一下http header的Content-Type

VERY TKS and have other wayrocedure TForm1.Button1Click(Sender: TObject);var responseText: WideString; xmlHttp: OLEVariant;begin try xmlHttp:=CreateOleObject('Msxml2.XMLHTTP'); xmlHttp.open('GET','http://www.xxx.com/'+trim(Edit1.Text),false); xmlHttp.send(); responseText:=xmlHttp.responseText; Memo1.Text :=responseText; xmlHttp := Unassigned; except end;end;