제가 썼던 소스로 설명을 드리겠습니다.



날릴 데이터와 받을 데이터는 모두 메모리 스트림으로 만드시공...



var

DataIn : TMemoryStream;

DataOut : TMemoryStream;

Buf : String;

result : TStringList;

begin

result := TStringList.Create;

DataIn := TMemoryStream.Create;

DataOut := TMemoryStream.Create;



try

Button2.Enabled := False;

Buf := 'receve='+edit1.text

+'&send='+edit2.text

+'&title='+edit3.text

+'&content='+StringReplace(Memo2.text,#13#10,'[@retrn]',[rfReplaceAll]);

//스트링형의 변수 하나에 get방식으루 데이터를 날릴때처럼 쭉~ 값을 넣습니다.



DataOut.Write(Buf[1], Length(Buf));

DataOut.Seek(0, soFromBeginning);

//메모리스트림에 값을 써넣습니다. 이부분은 잘모름... -_-



httpcli1.SendStream := DataOut;

httpcli1.RcvdStream := DataIn;

ics 의 sendstream과 recvstream을 정해주시고....



HttpCli1.URL := 'http://inno.sarang.net/save.asp';

//url지정해 주시고......

try

httpcli1.Post;

//그냥 post 합니다. 이건 정말 황당하더군요.

finally

DataIn.Seek(0, 0);

result.LoadFromStream(DataIn);

//TString형으에다가 받은 결과를 넣었습니다.



Button2.Caption := trim(result.Text);

if trim(result.Text) = 'ok' then

ShowMessage('메세지를 전송했습니다.');

end;

finally

DataOut.Free;

DataIn.Free;

result.Free;

Button2.Enabled := True;

end;

end;



한가지 궁금한건.... NMHTTP가 POST가 되던가요??? 저두 책에 나와있는거 보구 그렇게 했다가 안되서 ICS루 구현했는데....

즐프하세여~ ^-^

안녕하세요?

고드름 김정입니다.



네.. 마찬가지 방법입니다.

icsdelphiinternet 밑에 HTTPTST.DPR 프로젝트를 보시면 POST 예제가 있습니다.



제 기억으로 SendDataStream 인가 하는 Stream에 데이터를 넣고 Post()했던 것 같네요.



참고하세요.

그럼.



태여니 wrote:

> post방식으로 ics컴포넌트를 이용해서 넘기려구 하는데

> 어찌 해야 될지 잘 모르겠습니다.

> NMHTTP는

> NMHTTP.Post(URL,name=홍길동&pass=길동)

> 이렇게 하잖아요

>

> ics도 마찬가지인가요?

>

> 잘 모르겠네요

> 예제를 봐도 넘기는 형식을 잘 모르겠네요..

>

> 그럼 고수님의 조언을 부탁드립니다.