|
ｿｽ@ｿｽｿｽTStringSteamｿｽﾌデｿｽ[ｿｽ^ｿｽｿｽ¥ｿｽｿｽｿｽEｿｽｿｽｿｽHｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ...
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ｿｽｿｽｿｽSｿｽﾒ２ 2005/03/19(ｿｽy) 17:28:51
TStringStreamｿｽ^ｿｽﾌデｿｽ[ｿｽ^ｿｽｿｽ¥ｿｽｿｽｿｽEｿｽｿｽｿｽHｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽ謫ｾｿｽｿｽｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽ蛯ｫｿｽｿｽｿｽｿｽｿｽ驍ｽｿｽﾟゑｿｽｿｽuｿｽﾇみ搾ｿｽｿｽﾝ違反...ｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽｿｽｿｽoｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌ型ｿｽﾉ変ゑｿｽｿｽｿｽｿｽｿｽ@ｿｽﾍなゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽiｿｽKｿｽｿｽｿｽﾈｿｽｿｽ¥ｿｽbｿｽhｿｽﾍなゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽj
ｿｽCｿｽｿｽｿｽ^ｿｽ[ｿｽlｿｽbｿｽgｿｽﾖはアｿｽNｿｽZｿｽXｿｽﾅゑｿｽｿｽﾄ、
ｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽﾔゑｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽB
Indy.Post(StrUrl,data,strRead);
ShowMessage(strRead.DataString);
ｿｽｿｽ 2005/03/19(ｿｽy) 23:48:30
ｿｽｿｽｿｽsｿｽｿｽｿｽｿｽﾌゑｿｽ
ｿｽｿｽｿｽｿｽｿｽGｿｽｿｽｿｽWｿｽｿｽｿｽｿｽURLｿｽﾉゑｿｽｿｽｿｽｿｽｿｽ
ｿｽGｿｽｿｽｿｽ[ｿｽ‾ｿｽﾜゑｿｽﾜゑｿｽｿｽｿｽ
ｿｽﾚ托ｿｽｿｽｿｽｿｽURLｿｽｿｽｿｽ@POSTｿｽﾉ対会ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾅはなゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽH
URLｿｽmｿｽFｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽSｿｽﾒ２ 2005/03/20(ｿｽｿｽ) 19:49:15
ｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽXｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
>>ｿｽｿｽｿｽsｿｽｿｽｿｽｿｽﾌゑｿｽ
>>ｿｽｿｽｿｽｿｽｿｽGｿｽｿｽｿｽWｿｽｿｽｿｽｿｽURLｿｽﾉゑｿｽｿｽｿｽｿｽｿｽ
>>ｿｽGｿｽｿｽｿｽ[ｿｽ‾ｿｽﾜゑｿｽﾜゑｿｽｿｽｿｽ
ｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄみゑｿｽｿｽﾆゑｿｽｿｽｿｽAｿｽpｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽﾌ設抵ｿｽﾉ間違いｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾇ、ｿｽfｿｽ[ｿｽ^ｿｽﾌ取得ｿｽﾍでゑｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽB
ｿｽﾅゑｿｽAｿｽCｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽ況でゑｿｽｿｽB
>ｿｽﾚ托ｿｽｿｽｿｽｿｽURLｿｽｿｽｿｽ@POSTｿｽﾉ対会ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾅはなゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽH
POSTｿｽﾉは対会ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾉ、ｿｽｿｽｿｽﾌ鯉ｿｽｿｽｿｽﾅはゑｿｽｿｽﾜゑｿｽｿｽ謫ｾｿｽﾅゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽLｿｽﾍ、ｿｽ成ｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾌ一部ｿｽﾅゑｿｽｿｽB
URLｿｽﾌ鯉ｿｽｿｽ¥ｿｽﾍ、ｿｽxｿｽ痰ｪｿｽｿｽｿｽｿｽﾆまゑｿｽｿｽｿｽｿｽﾌで控ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽiｿｽｿｽｿｽﾟゑｿｽﾈゑｿｽｿｽｿｽｿｽj
POSTｿｽﾉ対会ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽzｿｽ[ｿｽｿｽｿｽyｿｽ[ｿｽWｿｽｿｽｿｽｿｽｿｽｿｽﾂゑｿｽｿｽTｿｽｿｽｿｽﾄみゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽtｿｽHｿｽ[ｿｽ}ｿｽbｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽ痰､ｿｽ謔､ｿｽﾅゑｿｽｿｽB
ｿｽiｿｽtｿｽBｿｽ[ｿｽｿｽｿｽhｿｽｿｽｿｽﾆ渡ｿｽｿｽｿｽlｿｽﾌ間ゑｿｽ=ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽj
//************************
procedure TForm1.Button1Click(Sender: TObject);
var
data : TIdMultiPartFormDataStream;
begin
clear_search_data();
data := comb_search_data();
post_http(data,'1');
end;
procedure TForm1.post_http(data:TIdMultiPartFormDataStream;page:String);
var
strRead:TStringStream;
Indy:TIdHTTP;
server, path, Strurl:String;
begin
strRead:= TStringStream.Create('aaa');
Indy:= TIdHTTP.Create(nil);
server := 'http://?????.???.??.jp';
path := '/???/?????/???????????????????????????page='// + page
StrUrl := server + path;
strRead := nil;
try
Indy.Post(StrUrl,data,strRead);
ShowMessage(strRead.DataString);
StatusBar1.SimpleText := 'ｿｽfｿｽ[ｿｽ^ｿｽｿｽ謫ｾｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ';
finally
strRead.Free;
end;
end;
procedure TForm1.clear_search_data();
begin
Ggyousha := '';
Gcode := '';
end;
function TForm1.comb_search_data():TIdMultiPartFormDataStream;
var
tmp_data:TIdMultiPartFormDataStream;
begin
//Ggyousha,Gcodeｿｽﾍ、GUIｿｽﾅ設抵ｿｽ
tmp_data := TIdMultiPartFormDataStream.Create;
tmp_data.AddFormField('gyousha' , Ggyousha);
tmp_data.AddFormField('code' , Gcode);
Result := test;
end;
end.
ｿｽｿｽｿｽSｿｽﾒ２ 2005/03/20(ｿｽｿｽ) 19:52:47
ｿｽｿｽｿｽﾝまゑｿｽｿｽｿｽAｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾌ最後かｿｽｿｽ3ｿｽsｿｽﾚゑｿｽｿｽﾔ茨ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
>Result := test;
Result := tmp_data;
ｿｽuｿｽｿｽｿｽSｿｽﾒ」ｿｽﾍ「ｿｽｿｽｿｽｿｽｿｽｿｽｿｽvｿｽﾆ難ｿｽｿｽｿｽ 2005/03/22(ｿｽｿｽ) 10:09:50
> strRead := nil;
Read Errorｿｽｿｽｿｽoｿｽ骭ｴｿｽｿｽｿｽﾍゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽB
ｿｽrｿｽMｿｽiｿｽ[ｿｽiｿｽ‾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽDｿｽｿｽｿｽj 2005/03/22(ｿｽｿｽ) 22:54:55
>> strRead := nil;
>Read Errorｿｽｿｽｿｽoｿｽ骭ｴｿｽｿｽｿｽﾍゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽTｿｽ[ｿｽoｿｽ[ｿｽｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽｿｽｿｽﾔゑｿｽｿｽﾄゑｿｽｿｽｿｽ謔､ｿｽﾉはなゑｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽpｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽpｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽﾌ抵ｿｽｿｽﾉ趣ｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽが含まゑｿｽﾄゑｿｽｿｽｿｽA
ｿｽｿｽｿｽ黷ｪｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽB
'BT=M%22+target%3D%22W20%22&' + 'hyoujipage=' + page
ｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽ送ゑｿｽﾉはどのようｿｽﾉ記ｿｽqｿｽｿｽｿｽｿｽﾎよいｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ShowMessageｿｽﾅ表ｿｽｿｽｿｽｿｽｿｽｿｽﾉは、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽﾎよいｿｽ謔､ｿｽﾅゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽﾈデｿｽ[ｿｽ^ｿｽﾍ托ｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽB
>ｿｽuｿｽｿｽｿｽSｿｽﾒ」ｿｽﾍ「ｿｽｿｽｿｽｿｽｿｽｿｽｿｽvｿｽﾆ難ｿｽｿｽｿｽ
ｿｽｿｽｿｽ[ｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽuｿｽｿｽｿｽSｿｽﾒ２ｿｽvｿｽｿｽｿｽｿｽuｿｽrｿｽMｿｽiｿｽ[ｿｽiｿｽ‾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽDｿｽｿｽｿｽjｿｽv
ｿｽ‾ｿｽｿｽｿｽｿｽｿｽｿｽ閭ｿｽｿｽｿｽNｿｽ‾ｿｽｿｽｿｽDｿｽｿｽ 2005/03/23(ｿｽｿｽ) 02:28:59
ｿｽｿｽｿｽｿｽ TIdMultiPartFormDataStream ｿｽｿｽgｿｽｿｽｿｽﾌゑｿｽｿｽﾈ？
>'BT=M%22+target%3D%22W20%22&' + 'hyoujipage=' + page
ｿｽｿｽｿｽﾌまま、multipart/form-dataｿｽﾆゑｿｽｿｽｿｽPOSTｿｽｿｽｿｽｿｽﾆ、
No Argument for Format'%'ｿｽGｿｽｿｽｿｽ[ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾍゑｿｽｿｽB
'BT=M"+target="W20"&hyoujipage=' + page
ｿｽｿｽｿｽﾌようｿｽﾉデｿｽRｿｽ[ｿｽhｿｽｿｽｿｽﾈゑｿｽｿｽｿｽﾎ托ｿｽｿｽｿｽﾈゑｿｽｿｽB
&ｿｽLｿｽｿｽｿｽﾍ包ｿｽｿｽｿｽｿｽﾌパｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽｿｽqｿｽｿｽｿｽﾄ茨ｿｽﾂの包ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄ托ｿｽｿｽMｿｽｿｽｿｽｿｽ鼾ｿｽﾌセｿｽpｿｽｿｽｿｽ[ｿｽ^ｿｽB
ｿｽﾈので、TIdMultiPartFormDataStreamｿｽﾅはなゑｿｽｿｽAStringｿｽｿｽStreamｿｽｿｽPOSTｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽｿｽｿｽﾇ。
ｿｽrｿｽMｿｽiｿｽ[ｿｽiｿｽ‾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽDｿｽｿｽｿｽj 2005/03/23(ｿｽｿｽ) 06:39:19
ｿｽ‾ｿｽｿｽｿｽｿｽｿｽｿｽ閭ｿｽｿｽｿｽNｿｽ‾ｿｽｿｽｿｽDｿｽｿｽｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽXｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
>TIdMultiPartFormDataStreamｿｽﾅはなゑｿｽｿｽAStringｿｽｿｽStreamｿｽｿｽPOSTｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ>ｿｽﾆ思ｿｽｿｽｿｽｿｽｿｽﾇ。
ｿｽﾅゑｿｽｿｽｿｽﾎ、ｿｽpｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽｿｽStringｿｽｿｽPOSTｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
Indy.PostｿｽｿｽｿｽiｿｽｿｽMｿｽfｿｽ[ｿｽ^ｿｽ利用ｿｽﾅゑｿｽｿｽｿｽﾌは）
Indy.Post(Url:String;data:String;Res:TStringStream)
ｿｽﾌ形ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾌ包ｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽ‾ｿｽｿｽｿｽｿｽｿｽｿｽ閭ｿｽｿｽｿｽNｿｽ‾ｿｽｿｽｿｽDｿｽｿｽ 2005/03/23(ｿｽｿｽ) 07:44:10
procedure Post(AURL:string; const ASource:TStrings; const AResponseContent:TStream); overload;
procedure Post(AURL:string; const ASource:TStream; const AResponseContent:TStream); overload;
procedure Post(AURL:string; const ASource:TIdMultiPartFormDataStream; AResponseContent:TStream); overload;
TidHttpｿｽｿｽPOSTｿｽ闡ｱｿｽｿｽｿｽｿｽ3ｿｽｿｽﾞで、stringｿｽｿｽgｿｽｿｽｿｽﾈゑｿｽｿｽﾔ擾ｿｽB
1ｿｽsｿｽｿｽｿｽｿｽｿｽｿｽTStringsｿｽﾈゑｿｽAstringｿｽﾆ難ｿｽｿｽｿｽｿｽ謔､ｿｽﾈゑｿｽﾌ。
ｿｽｿｽｿｽｿｽｿｽﾇ、1ｿｽsｿｽﾅ包ｿｽｿｽｿｽｿｽﾌパｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽｿｽ &ｿｽLｿｽｿｽｿｽﾅ繋ｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽﾆ、
&ｿｽLｿｽｿｽｿｽｿｽ%26ｿｽﾉデｿｽRｿｽ[ｿｽhｿｽｿｽｿｽ黷ｿｿｽ痰､ｿｽﾌゑｿｽNGｿｽB
ｿｽﾂ々ｿｽﾌパｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽｿｽTStringsｿｽｿｽAddｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾎ、Indyｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽ&ｿｽLｿｽｿｽｿｽﾅ各ｿｽpｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽｿｽqｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽrｿｽMｿｽiｿｽ[ｿｽiｿｽ‾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽDｿｽｿｽｿｽj 2005/03/23(ｿｽｿｽ) 21:16:16
>TidHttpｿｽｿｽPOSTｿｽ闡ｱｿｽｿｽｿｽｿｽ3ｿｽｿｽﾞで、stringｿｽｿｽgｿｽｿｽｿｽﾈゑｿｽｿｽﾔ擾ｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾇゑｿｽｿｽｿｽｿｽﾔ茨ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽxｿｽｿｽｿｽｿｽ關費ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾝまゑｿｽｿｽがゑｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, IdMultiPartFormData;
type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
StatusBar1: TStatusBar;
IdHTTP1: TIdHTTP;
private
{ Private ｿｽ骭ｾ }
procedure Button1Click(Sender: TObject);
// procedure post_http(data:TStrings;page:String);
procedure clear_search_data();
function comb_search_data():TStrings;
procedure Post(AURL:string; const ASource:TStrings; const
AResponseContent:TStream); overload; //<<<<<ｿｽｿｽｿｽｿｽｿｽﾅ会ｿｽｿｽLｿｽﾌエｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽ
[ｿｽGｿｽｿｽｿｽ[] TestInternetUnit1.pas(23): E2065 forward ｿｽﾜゑｿｽｿｽｿｽ external ｿｽ骭ｾｿｽｿｽｿｽ黷ｽ 'TForm1.Post' ｿｽｿｽｿｽｿｽｿｽﾂゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ
//procedure TIdHTTP.Post(AURL:string; const ASource:TStrings; const
AResponseContent:TStream); overload; //<<<<<ｿｽｿｽｿｽｿｽｿｽﾏゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽ
ｿｽ‾ｿｽｿｽｿｽｿｽｿｽｿｽ閭ｿｽｿｽｿｽNｿｽ‾ｿｽｿｽｿｽDｿｽｿｽ 2005/03/24(ｿｽｿｽ) 00:10:37
> procedure Post(AURL:string; const ASource:TStrings; const
AResponseContent:TStream); overload; //<<<<<ｿｽｿｽｿｽｿｽｿｽﾅ会ｿｽｿｽLｿｽﾌエｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽ
ｿｽｿｽ
idHttp.pasｿｽﾅ宣言ｿｽﾏみなので、ｿｽｿｽｿｽｿｽｿｽﾅ擾ｿｽｿｽｿｽｿｽKｿｽvｿｽﾈゑｿｽｿｽB
ｿｽsｿｽｿｽｿｽtｿｽﾍ難ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽBｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ驍ｵｿｽB
ｿｽ^ｿｽﾊ詰ｿｽｿｽﾔプｿｽｿｽｿｽOｿｽｿｽｿｽ}ｿｽO 2005/03/26(ｿｽy) 06:50:29
ｿｽ‾ｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽNｿｽ‾ｿｽｿｽAｿｽかｿｽｿｽﾈゑｿｽｿｽｿｽEｿｽEｿｽEｿｽB
ｿｽeｿｽｿｽｿｽrｿｽｿｽｿｽｿｽﾎ、ｿｽｿｽｿｽｿｽﾌゑｿｽｿｽﾈ・ｿｽEｿｽEｿｽB
ｿｽrｿｽMｿｽiｿｽ[ｿｽiｿｽｿｽｿｽｿｽｿｽNｿｽ‾ｿｽｿｽｿｽCｿｽRｿｽｿｽｿｽｿｽが好ｿｽｿｽｿｽj 2005/03/26(ｿｽy) 20:41:46
>ｿｽ‾ｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽNｿｽ‾ｿｽｿｽAｿｽかｿｽｿｽﾈゑｿｽｿｽｿｽEｿｽEｿｽEｿｽB
>ｿｽeｿｽｿｽｿｽrｿｽｿｽｿｽｿｽﾎ、ｿｽｿｽｿｽｿｽﾌゑｿｽｿｽﾈ・ｿｽEｿｽEｿｽB
ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽﾍ、ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽSｿｽNｿｽZｿｽｿｽｿｽｿｽ19ｿｽｿｽｿｽﾉ終ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽdｿｽｿｽｿｽｿｽｿｽｿｽJｿｽlｿｽﾅゑｿｽｿｽB
ｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽ骼ｿｽｿｽｿｽ轤ｷｿｽｿｽﾎ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
//******************
ｿｽ‾ｿｽｿｽｿｽｿｽｿｽｿｽ閭ｿｽｿｽｿｽNｿｽ‾ｿｽｿｽｿｽDｿｽｿｽｿｽｿｽｿｽレスｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
Delphi2005ｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽいｿｽｿｽﾈエｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽﾆ搾ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾈ前ｿｽﾌソｿｽ[ｿｽXｿｽﾉ戻ゑｿｽｿｽｿｽｿｽ閧ｵｿｽﾄゑｿｽ痰､ｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽｿｽｿｽｿｽ...
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ竄ｵｿｽﾄ考ｿｽｿｽｿｽﾄみまゑｿｽｿｽB
ｿｽﾖ撰ｿｽｿｽﾅなゑｿｽｿｽﾆ知ｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽ
ｿｽiｿｽrｿｽMｿｽiｿｽ[ｿｽjｿｽ‾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽDｿｽｿｽ 2005/03/27(ｿｽｿｽ) 16:12:10
>idHttp.pasｿｽﾅ宣言ｿｽﾏみなので、ｿｽｿｽｿｽｿｽｿｽﾅ擾ｿｽｿｽｿｽｿｽKｿｽvｿｽﾈゑｿｽｿｽB
ｿｽRｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽﾍ通ゑｿｽ謔､ｿｽﾉなゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽsｿｽｿｽｿｽﾉ（Applcation.Runｿｽﾌとゑｿｽｿｽｿｽﾅエｿｽｿｽｿｽ[
ｿｽuｿｽsｿｽｿｽｿｽﾈプｿｽｿｽｿｽpｿｽeｿｽBｿｽﾌ値ｿｽﾅゑｿｽｿｽvｿｽｿｽｿｽoｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾔ茨ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽﾈゑｿｽｿｽADelphi2005ｿｽｿｽgｿｽpｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽ
ｿｽiｿｽrｿｽMｿｽiｿｽ[ｿｽjｿｽ‾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽDｿｽｿｽ 2005/04/10(ｿｽｿｽ) 20:38:32
ｿｽｿｽｿｽﾈｿｽｿｽXｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾆ鯉ｿｽｿｽｿｽｿｽｿｽｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌで、ｿｽｿｽｿｽいｿｽｿｽﾆプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾌ難ｿｽｿｽｿｽｿｽmｿｽFｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾆゑｿｽｿｽA
procedure Button1Click(Sender: TObject);
ｿｽｿｽtypeｿｽﾌとゑｿｽｿｽかｿｽｿｽprivateｿｽﾌとゑｿｽｿｽｿｽﾉ移難ｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽﾌようｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽﾆ、ｿｽｿｽｿｽﾌ場合ｿｽﾍどゑｿｽｿｽｿｽｿｽｿｽﾎよいｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
tmp_dataｿｽﾜゑｿｽｿｽｿｽdataｿｽｿｽOｿｽｿｽｿｽ[ｿｽoｿｽｿｽｿｽﾏ撰ｿｽｿｽﾉゑｿｽｿｽ驍ｵｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
FreeｿｽﾅｿｽｿｽｿｽｿｽｿｽｿｽｿｽJｿｽｿｽｿｽｿｽｿｽｿｽﾆエｿｽｿｽｿｽ[ｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽAAssiginｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
function TForm1.comb_search_data():TStringList;
var
tmp_data:TStringList;
begin
tmp_data := TStringList.Create;
try
tmp_data.Add('g='+ g);
tmp_data.Add('k=' + k);
finally
Result := tmp_data;
//Result.Assign(tmp_data);ｿｽ@ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽﾄゑｿｽGｿｽｿｽｿｽ[
// tmp_data.Free;ｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽGｿｽｿｽｿｽ[
//ｿｽｿｽｿｽｿｽｿｽRｿｽｿｽｿｽｿｽｿｽgｿｽﾉゑｿｽｿｽｿｽﾆエｿｽｿｽｿｽ[ｿｽﾉなゑｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽLｿｽｿｽｿｽｿｽｿｽﾜゑｿｽ
end
end;
procedure TForm1.Button1Click(Sender: TObject);
var
data : TStringList;
begin
data := TStringList.Create;
data := comb_search_data();
post_http(data,'1');
end;
end.
ｿｽ閧ｨｿｽ閧ｨ 2005/04/10(ｿｽｿｽ) 21:21:34
ｿｽｿｽﾊにオｿｽuｿｽWｿｽFｿｽNｿｽgｿｽｿｽﾔゑｿｽｿｽ謔､ｿｽﾈ関撰ｿｽｿｽﾍ奇ｿｽｿｽSｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽﾄび出ｿｽｿｽｿｽｿｽｿｽﾅ撰ｿｽｿｽｿｽｿｽEｿｽjｿｽｿｽｿｽｿｽ
ｿｽsｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽﾜゑｿｽｿｽB
procedure Nantoka(sl:TStringList);
begin
sl.Add('nantoka');
sl.Add('kantoka');
end;
procedure TForm1.Button1Click(Sender: TObject);
var
sl:TStringList;
begin
sl := TStringList.Create;
Nantoka(sl);
Memo1.Lines.Assign(sl);
sl.Free;
end;
ｿｽiｿｽrｿｽMｿｽiｿｽ[ｿｽjｿｽ‾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽDｿｽｿｽ 2005/04/10(ｿｽｿｽ) 22:42:17
>ｿｽﾄび出ｿｽｿｽｿｽｿｽｿｽﾅ撰ｿｽｿｽｿｽｿｽEｿｽjｿｽｿｽｿｽｿｽ
>ｿｽsｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽ閧ｨｿｽ閧ｨｿｽｿｽｿｽありがｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽwｿｽEｿｽﾌとゑｿｽｿｽｿｽﾉ修ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
