「 投稿者アーカイブ: 」 一覧
-
-
MSXMLS2.ServerXMLHTTPを使って、CoinCheckAPIを叩いてみる。
2021/02/23 -Lazarus
コインチェックAPIを叩く、MSXML2.ServerXMLHTTPコマンドを書いてみました。
12345678910111213141516171819202122232425262728293031323334function get_http_coincheck( api:widestring; out obj:TJSONObject ):boolean;varurl : widestring;//APIサーバーのアドレスを記述するcheck_txt : String;//返り値をチェックするための変数http : OleVariant;//MSXML2.ServerXMLHTTPを呼び出すためのヴァリアント変数begin//オブジェクトを宣言。「MSXML2.ServerXMLHTTP」を使うhttp := CreateOleObject('MSXML2.ServerXMLHTTP');//Urlを形成。apiには、APIの引数(コマンド)が入るurl := 'https://coincheck.com/api/' + api;//開く。この時点では通信しない。http.Open('GET', url, False);//ヘッダーの宣言。http.setRequestHeader('If-Modified-Since', 'Thu, 01 Jun 1970 00:00:00 GMT');//ここで初めて通信する。http.send;If http.Status <> 200 Then begin//エラーメッセージを表示するshowmessage( IntToStr( http.Status ) );//失敗get_http_coincheck := false;exit;end;try//返り値を変数に格納、デバッグ時の確認の意味も込めて。check_txt := http.responsetext;//テキストをオブジェクトに格納する。obj := ChangeTetxToJson(check_txt);//※独自関数。ここは各自で実装して。finally//成功get_http_coincheck := true;end;end;今の課題は、独自実装でSHA256の暗 …
-
-
2021/02/23 -雑談
こんばんは、ITservice雄飛です。 暫くぶりに記事上げます。 さて。 ホームページは、ほぼほぼ出来上がりました。 あとは運用次第ですね。 で、今日の本題。 題名の通りです。 ちょっと、アフェリエ …
-
-
2021/02/16 -Lazarus
下記の動画では、IDEの基本的な使い方を説明してあります。 Lazarus(FreePascal)超入門3! 下記の動画では、ソフトウェアプログラミングの手順や方法を解説しています。 Lazarus( …
-
-
2021/02/15 -Pascal Study
コンパイル命令
1{$IFDEF Windows} {$ENDIF}OSがWindowsの場合にコンパイルが通ります。 それ以外のOS上でのコンパイル時には、コメント扱いになります。 [ …
-
-
2021/02/15 -Pascal Study
・加算/減算
1Inc(Integer型変数);インクリメント。 値を一つ加算します。
1Inc(Integer型変数,加算値)インクリメント …
-
-
2021/02/15 -Pascal Study
Lazarusの主な構文です。 begin end; ブロックです。 Pascalのブロックは基本的に、
123Beginend;で終結します。 …
-
-
2021/02/14 -Pascal Study
Uses Uses節に、使いたいライブラリやユニット名を記述する。 Usesは、基本的には宣言部と実装部に別れる。 宣言部に互いのユニットを参照してしまうと、循環参照エラーになる。 その為、互いに参照 …
-
-
2021/02/14 -Pascal Study
主な変数の一型の覧です。 Char Char型です。 一文字の半角文字が入ります。 Chr Char型です。 一文字の半角文字が入ります。 String 文字列型です。 Utf8String UTF8 …
-
-
2021/02/14 -Pascal Study
主に、一般的に使われる型変換を集めました。 他にも、色々あるかと思います。 IntToStr() Inetgr型をString型に変換します。 [crayon-60441c05899f05502595 …
-
-
2021/02/14 -Pascal Study
説明対象バージョン Lazarus ver.2.0.10 (32Bit) Windows版 を前提に、説明していきます。 ・何故に32Bitなのか? 本稿は、OSは、Windowsを対象に記述していま …