【Delphi】 Indyコンポーネント【C++Builder】

【Delphi】 Indyコンポーネント【C++Builder】 at TECH

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を表示