无VCL控件怎么实现Post上传图片？

Question

无VCL控件怎么实现Post上传图片？
因为写的是控制台程序，所以用不了控件。
在网上找了一遍，没找到一个完全的。
说socket实现等等还有http头什么的。很迷糊
我对网络协议通信不怎么了解。
哪位大牛给出一个Post上传图片或Post数据的实例。小弟感激不尽

Answer 1

var
 sidhttp:tidhttp;
begin
 sidhttp:=tidhttp.create(nil);
 ... sidhttp.free;
end;

Answer 2

var
 sidhttp:tidhttp;
begin
  sidhttp:=tidhttp.create(nil);
  try
    sidhttp.Post;
  finally
    sidhttp.free;
  end;
end;

Answer 3

对indy的控件是可以动态生成的，而且indy又不需要窗口。

Answer 4

var Pparams :TIdMultiPartFormDataStream;
 
Pparams.AddFile(parname,'1.gif',GetMIMETypeFromFile('1.gif'));Fidhttp.Post(postaddr,SParams,tempsresult);大致就这样啦