發射程式
procedure TForm1.Button_putfromstringClick(Sender: TObject);
var
len,itmp: longint;
s,s1:string;
memStream,temp: TMemoryStream;
begin
s:='test string';
memstream:=TMemoryStream.Create;
temp:=TMemoryStream.Create;
memstream.Position:=0;
memstream.writebuffer(s[1],Length(s));
memstream.Position:=0;
try
//memo_connect.Lines.text:=IdHTTP1.Put(edit_Urlput.Text,memStream);
IdHTTP1.Put(edit_Urlput.Text,memstream,temp);
SetLength(s1,temp.Size);
temp.Position:=0;
temp.ReadBuffer(s1[1],temp.Size);
Memo_connect.Lines.Text:=s1;
except
on E:Exception do
memo_put.Text:='Exception : ' E.message;
end;
MemStream.Free;
temp.Free;
http_status_show;
end;

接收程式
procedure TForm1.IdHTTPServer1CommandOther(Thread: TIdPeerThread;
const asCommand, asData, asVersion: String);
begin
windows.beep(5000,50);
Memo1.Lines.Text :=Memo1.Lines.Text 'CommandOther:' asCommand chr(13) chr(10);
Memo1.Lines.Text :=Memo1.Lines.Text 'Data:' asData chr(13) chr(10);
Memo1.Lines.Text :=Memo1.Lines.Text 'Version:' asVersion chr(13) chr(10);
Memo1.Lines.Text :=Memo1.Lines.Text '----------------------------------------------------' chr(13) chr(10);
end;
好像收不到資料

indy元件可以先到 http://www.indyproject.org/Sockets/index.EN.aspx 下載文件和demo
參考看看

------
額有朝天骨,眼中有靈光

===================引 用 小傑克 文 章===================
indy元件可以先到 http://www.indyproject.org/Sockets/index.EN.aspx 下載文件和demo
參考看看

感謝大大指導,但沒發現IdHTTP1.Put的用法,謝謝你提供的資訊