- ITservice雄飛

MSXMLS2.ServerXMLHTTPを使って、CoinCheckAPIを叩いてみる。

2021/02/23 -Lazarus

コインチェックAPIを叩く、MSXML2.ServerXMLHTTPコマンドを書いてみました。

function get_http_coincheck( api:widestring; out obj:TJSONObject ):boolean;
var
    url : 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;

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

function get_http_coincheck( api:widestring; out obj:TJSONObject ):boolean;

var

url : 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;

今の課題は、独自実装でSHA256の暗 …

アフェリエイト広告で失敗した話

2021/02/23 -雑談

こんばんは、ITservice雄飛です。暫くぶりに記事上げます。さて。ホームページは、ほぼほぼ出来上がりました。あとは運用次第ですね。で、今日の本題。題名の通りです。ちょっと、アフェリエ …

Lazarus（FreePascal）超入門３＆４

2021/02/16 -Lazarus

下記の動画では、IDEの基本的な使い方を説明してあります。 Lazarus（FreePascal）超入門３！下記の動画では、ソフトウェアプログラミングの手順や方法を解説しています。 Lazarus（ …

その他

2021/02/15 -Pascal Study

コンパイル命令

{$IFDEF Windows} {$ENDIF}

1	{$IFDEF Windows} {$ENDIF}

OSがWindowsの場合にコンパイルが通ります。それ以外のOS上でのコンパイル時には、コメント扱いになります。 [ …

加減算及び評価式

2021/02/15 -Pascal Study

・加算/減算

Inc(Integer型変数);

1	Inc(Integer型変数);

インクリメント。値を一つ加算します。

Inc(Integer型変数,加算値)

1	Inc(Integer型変数,加算値)

インクリメント …

構文

2021/02/15 -Pascal Study

Lazarusの主な構文です。 begin end; ブロックです。 Pascalのブロックは基本的に、

Begin

end;

1

2

3

Begin

end;

で終結します。 …

宣言

2021/02/14 -Pascal Study

Uses Uses節に、使いたいライブラリやユニット名を記述する。 Usesは、基本的には宣言部と実装部に別れる。宣言部に互いのユニットを参照してしまうと、循環参照エラーになる。その為、互いに参照 …

変数型一覧

2021/02/14 -Pascal Study

主な変数の一型の覧です。 Char Char型です。一文字の半角文字が入ります。 Chr Char型です。一文字の半角文字が入ります。 String 文字列型です。 Utf８String UTF8 …

型変換

2021/02/14 -Pascal Study

主に、一般的に使われる型変換を集めました。他にも、色々あるかと思います。 IntToStr() Inetgr型をString型に変換します。 [crayon-60830768e5dcc3329267 …

何故、Lazarusなのか？

2021/02/14 -Pascal Study

説明対象バージョン Lazarus ver.2.0.10 (32Bit) Windows版を前提に、説明していきます。・何故に32Bitなのか？本稿は、OSは、Windowsを対象に記述していま …

「 投稿者アーカイブ： 」 一覧

「投稿者アーカイブ：」一覧