[表示 : 全て 最新50 1-99 101- 201- 301- 401- 501- 601- 701- 801- 2chのread.cgiへ]
Update time : 11/23 15:44 / Filesize : 200 KB / Number-of Response : 887
[このスレッドの書き込みを削除する]
[+板 最近立ったスレ&熱いスレ一覧 : +板 最近立ったスレ/記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

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



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);






[ 続きを読む ] / [ 携帯版 ]

全部読む 前100 次100 最新50 [ このスレをブックマーク! 携帯に送る ] 2chのread.cgiへ
[+板 最近立ったスレ&熱いスレ一覧 : +板 最近立ったスレ/記者別一覧]( ´∀`)<200KB

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef