怎么样把一个文件以post的方式上传到一个url，并取得这个url的返值？？

Question

url如下
http://localhost/test.asp想把本地文件或内存中流POST给这个url，并取得url的返回信息。
是不是要用tidhttp来做？那里有例程啊？请教各位了~！！谢谢~！

Answer 1

另外想知道怎样才可以得到http头信息比如"content-type"信息。

Answer 2

我也想知道！
我以前做过类似功能的程序，不过是别人提供的dll文件而且也不太好用:
function SendStr2Http(url:Pointer):integer;stdcall;external 'ldmsapp.dll';
  使用程序如下：
        n:=SendStr2Http(Pchar(sj));
        if n<>0 then
        begin
          strlt:=Tstringlist.Create;
          strlt.LoadFromFile('D:\指路程序\database\errertext.txt');
          if n=-1 then strlt.Append('send URL request failed')
          else
            if n=-2 then strlt.Append('create HTTP connection failed')
            else strlt.Append('发送失败');
          strlt.SaveToFile('D:\指路程序\database\errertext.txt');
        end;
dll文件地址为:http://zhouxqserver.vicp.net/ldmsapp.dll（到晚上10：00结束）希望不是添乱

Answer 3

不错，是要用tidhttp来做
memo1.text := idHTTP1.Get(URL)就能返回结果
另外可以用Post方法，你找找以前的帖子

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
  ssHtml,ssPostParam: TStrings;
begin
  try
    ssHtml := TStringList.Create;
    ssPostParam := TStringList.Create;
    ssPostParam.Assign( Memo1.Lines );
    ssHtml.Text := IdHTTP.Post( EditURL.Text , ssPostParam );
  finally
    ssHtml.Free;
    ssPostParam.Free;
  end;
end;

Answer 5

説明：用TIdHTTP控件。
在Memo1(TMemo控件)中、輸入Post参数。
例:
paramName1=2
paramName2=66

Answer 6

看了书，想了想，其实应该是构造一个请求的http头信息，然后发出去，这样应该就可以了。继续。。搞。之

Answer 7

var
  S : TStrings;
begin
  S := TStringList.Create;
  S.Add('username=xx');
  S.Add('password=yy');
  try
    Memo1.lines.Add(IdHttp.Post(sUrl,S));

Answer 8

同意 sxy_9761() 
我用这个方法获得过网页的原码
通过Request.ContentType可获得头信息