376 名前:デフォルトの名無しさん mailto:sage [2005/11/06(日) 00:52:34 ] >>375 はい。 だいたいそのへんのことは予想していた通りなんですが、 それで370のようにやってもうまくいかないんですよね・・・ そもそもPOSTとかそのへんがよくわかってないからなんでしょうか・・・ ちなみに以下のようにやってます。 Res:= TStringStream.Create(''); Value:= TIdMultiPartFormDataStream.Create; with IdHttp1 do begin S := Get('https://grv2.03trade.com/marusan/sm'); end; Label1.Caption := S; position1 := Pos('action',S); position2 := Pos('method',S); Label2.Caption := IntToStr(position1); Label3.Caption := IntToStr(position2); S := Copy(S, position1 + 8, position2 - position1 - 11); Label1.Caption := S; Value.AddFormField('bid', '**'); Value.AddFormField('aid', '*******'); Value.AddFormField('pwd', '****'); URL:= 'S'+'1'; // ここで/marusan/sm;_SID_=DrswJMpzjotVqk2n96u2fBr0HhCw26ELbt1RIeOcYDxl1p2c9EPP!1170569019!-*********?mid=M01 を設定 IdHTTP1.Post(URL, Value, Res);