TStringSteamのデータを表示・加工したいのですが... (ID:13835)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

＠さん、レスありがとうございます。
>>失敗するので
>>検索エンジンのURLにしたら
>>エラー止まりました
プログラムを見直してみたところ、パラメータの設定に間違いがありました。
結局、データの取得はできていなかったようです。
でも、修正しても同じ状況です。

>接続先のURLが  POSTに対応していないだけではないですか？
POSTには対応しています。
それに、他の言語ではうまく取得できていました。
下記は、作成したプログラムの一部です。
URLの公表は、支障があるとまずいので控えさせてください。
（ごめんなさい）
POSTに対応しているホームページをいくつか探してみたのですが、
フォーマットが少し違うようです。
（フィールド名と渡す値の間が=になっていない）

//************************
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 := 'データを取得しました';
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.

←解決時は質問者本人がここをチェックしてください。

戻る