【Delphi】 Indyコンポーネント 【C++Builder】 at TECH
[2ch|▼Menu]
498:479
06/02/19 16:32:03
procedure TForm1.Button1Click(Sender: TObject);
var
 Res: TStringStream;
 Value: TIdMultiPartFormDataStream;
 Cookie_String: String;
begin
 Res := TStringStream.Create('');
 Value := TIdMultiPartFormDataStream.Create;

with IdHttp1 do begin
 Value.AddFormField('CCC', '愛');
 Value.AddFormField('CCC', '愛');
 Value.AddFormField('Command', 'disp');
 Value.AddFormField('SubCommand', 'result');
 Value.AddFormField('end_year', '2005');
 Value.AddFormField('end_mon', '12');
 Value.AddFormField('end_mday', '1');
 Value.AddFormField('span', '1month');
 Value.AddFormField('limit', '100');
 Value.AddFormField('status', '2');
 Value.AddFormField('type', '1');
 AllowCookies := True;

try
 Post('URLリンク(partner.afl.rakuten.co.jp)', Value, Res);
 Memo1.Text := Res.DataString;

finally
 Res.Free;
 Value.Free;
end;


次ページ
続きを表示
1を表示
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
暇つぶし2ch

4211日前に更新/200 KB
担当:undef