1. °³¹ß/½ÇÇà Ç÷§Æû (1) OS : win7 (2) °³¹ßÅø : Delphi 7 (3) »ç¿ë Database :
2. °³¹ß ÁßÀÎ ÇÁ·Î±×·¥
3. Áú¹® ³»¿ë IdHTTP1.Post(URL, iSS, rs); ¿¡¼ ÀÀ´äÀ» ±â´Ù¸®´Â
ÄÄÆÄÀÏ¿¡¼´Â ÀÌ»óÀÌ ¾ø´Âµ¥ ½ÇÇàÆÄÀÏ·Î ½ÇÇàÇϸé 5ÃÊ ÈÄ¸é ½ÇÇàÆÄÀÏÀÌ (ÀÀ´ä¾øÀ½)ÀÌ µÇ°Å³ª
ÇÁ·Î±×·¥À» º¹±¸Ç϶ó´Â ¸Þ½ÃÁöÆ˾÷ÀÌ ¶å´Ï´Ù.
ÀÌÈÄ Ã³¸®°¡ ³°¨ÇÕ´Ï´Ù.
Ȥ½Ã ÀÀ´ä´ë±â½Ã°£ÀÌ º°µµ·Î Àִ³ª¿ä? (winxp¿¡¼´Â ¾Æ¹« ÀÌ»ó¾ø½À´Ï´Ù.) ÇѼö ºÎŹµå¸³´Ï´Ù. °¨»çÇÕ´Ï´Ù.
procedure TForm1.Button9Click(Sender: TObject); var rs : TStringStream; iSS : TStringStream; URL : String; msg : String; begin
URL := Edt_URL.Text + '?' + 'callback=jsonp12345678983543344'; URL := URL + '&REQ=' + msg;
rs := TStringStream.Create(''); iSS := TStringStream.Create('');
IdHTTP1.Post(URL, iSS, rs); <<<---À̺κп¡¼ ´ë±âÇϴµ¥ Memo1.Lines.Add(rs.DataString);
iSS.Free; rs.Free;
end;
|