Ex:Http-CreateFormDataコマンド (インターネットアクセス用の拡張コマンド) - ダウンロードマクロ・コマンド (Download Macro Command) - PROSERPINE (プロセルピナ)

				プロセルピナ
Top	Internet Mail	Private Proxy	Capture Device		Download	Config and Words	Online Help	Online Home

[BACK]

☞ Top > FileDownload > Macro > Ex: Command > CreateFormData

Ex:CreateFormDataコマンド

Macro Top | Variables | Constants | Commands | Ex-Commands

書式

Ex:CreateFormData: (ContentName)=(ContentValue) O:formData=str[(formData_index)] O:cType=str[(cType_index)]

(ContentName) : string, Content-Dispositionのname欄
(ContentValue) : string, (ContentName)に設定する値
(formData_index) : int, 作成したFormDataを設定する文字列配列のインデックス
(cType_index) : int, ContentTypeを設定する文字列配列のインデックス

ローカル文字列配列を使用する場合は、str[ ] の部分が strl[ ] になります。
ローカル整数配列を使用する場合は、int[ ] の部分が intl[ ] になります。

記述例

このEx:CreateFormDataコマンドは、 Http-PostのContent-Typeヘッダ値が multipart/form-data の場合に、ポストするデータを作成するのに使用します。

Sample

次の例は、 http://www.example.com/download/get_object.cgi のURLに、ポストする文字列を Ex:CreateFormDataコマンドで作成してアクセスし、正常終了した場合に「ファイル (ファイル名) に保存しました.」と表示するものです。

Ex:CreateFormDataコマンドのO:cTypeの出力は、そのままEx:Http-Postコマンドの cTypeの入力に指定します。
Postデータに日本語などのUS-ASCII文字以外が含まれる場合、Ex:Http-Postコマンドの postEncodeでエンコードを指定する必要があります。

ポストするデータにバイナリデータが含まれる場合 (画像ファイルをアップロードする場合など)は、このコマンドを使用することはできません。
その場合は直接バイナリデータを編集してください。
バイナリデータを編集してポストデータを作成する例(gosubコマンドで使用)を次に示します。

:CreatePostData {
  // 
  // str[1] : in, CommuName
  // str[2] : in, CommuDetails
  // str[3] : in, JpegFile
  // str[4] : out, cType
  // 
  set: strl[1] ="-----------------------------186842773423911\r\n";
  set: strl[1]+="Content-Disposition: form-data; name=\"submit\"\r\n";
  set: strl[1]+="\r\n";
  set: strl[1]+="main\r\n";
  set: strl[1]+="-----------------------------186842773423911\r\n";
  set: strl[1]+="Content-Disposition: form-data; name=\"name\"\r\n";
  set: strl[1]+="\r\n";
  set: strl[1]+=str[1];   set: strl[1]+="\r\n";
  set: strl[1]+="-----------------------------186842773423911\r\n";
  set: strl[1]+="Content-Disposition: form-data; name=\"category_id\"\r\n";
  set: strl[1]+="\r\n";
  set: strl[1]+="12\r\n";
  set: strl[1]+="-----------------------------186842773423911\r\n";
  set: strl[1]+="Content-Disposition: form-data; name=\"level\"\r\n";
  set: strl[1]+="\r\n";
  set: strl[1]+="1\r\n";
  set: strl[1]+="-----------------------------186842773423911\r\n";
  set: strl[1]+="Content-Disposition: form-data; name=\"auth\"\r\n";
  set: strl[1]+="\r\n";
  set: strl[1]+="1\r\n";
  set: strl[1]+="-----------------------------186842773423911\r\n";
  set: strl[1]+="Content-Disposition: form-data; name=\"details\"\r\n";
  set: strl[1]+="\r\n";
  set: strl[1]+=str[2];   set: strl[1]+="\r\n";
  set: strl[1]+="-----------------------------186842773423911\r\n";
  set: strl[1]+="Content-Disposition: form-data; name=\"logo\"; filename=\"186842773423911.jpg\"\r\n";
  set: strl[1]+="Content-Type: image/jpeg\r\n";
  set: strl[1]+="\r\n";
  //
  set: str[0]="186842773423911";
  set: strl[2]=Time.Ticks;
  set: strl[1]=strl[1].Replace(strl[2]);
  set: binl["post"]=strl[1].ToBinary("EUC-JP");
  
  readBinfile: file=str[3] O:data=binl["jpgFile"];
  if (binl["jpgFile"].Length < 1) {
    put: value="? Empty file";
    put: value=str[3];
    end:
    }
  set: binl["post"]+=binl["jpgFile"];
  
  set: binl["post"]+="\r\n-----------------------------".ToBinary("EUC-JP");
  set: binl["post"]+=strl[2].ToBinary("EUC-JP");
  set: binl["post"]+="--\r\n".ToBinary("EUC-JP");
  
  set: str[4]="multipart/form-data; boundary=---------------------------";
  set: str[4]+=strl[2];
  
  return: binl["post"];
  }

例：CreatePostDataブロック

この CreatePostDataブロック は、 gosubコマンドで呼び出されて使用されることを想定した例です。
str[1] (nameパラメータ), str[2] (detailsパラメータ), str[3] (アップロードする画像ファイルのパス) の各変数を設定して gosubコマンドでこのCreatePostDataブロックを呼び出すと、 Content-Typeヘッダ値が str[4] に設定され、postデータが戻り値となって戻ります。

【使用例】 gosub: bin["postData"]=CreatePostData;

文字列はEUC-JPのバイナリ文字列に変換され、 readBinfileコマンド で読み込んだバイナリ文字列(画像データ)と結合されています。

[BACK]

プロセルピナ