Lazarus - 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の暗 …

Lazarus（FreePascal）超入門３＆４

2021/02/16 -Lazarus

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

Lazarus(FreePascal)超入門２

2021/02/11 -Lazarus, プログラミング関係動画
Lazarus(FreePascal)超入門２

お疲れ様です、ITservice雄飛です。今回は、Lazarus（FreePascal）超入門の二回目をやりたいと思います。先ず、動画を。 Button1のクリックイベントになります。これは、テ …

Lazarus（FreePascal）でJSONを扱う2

2021/01/31 -Lazarus, プログラミング関係動画
Lazarus（FreePascal）でJSONを扱う2

こんにちは、ITservice雄飛です。今回も、JSONをLazarus（FreePascal）から扱った内容になります。生成したJSONは前回に引き続き、以下になります。 [crayon-60 …

Lazarus（FreePascal）でJSONを扱う

2021/01/29 -Lazarus
Lazarus（FreePascal）でJSONを扱う

おくれまして明けまして。おめでとうございます。もう、1月終わりです。そんなこんな時期に明けまして投稿です。さて！今回の話題は！ JSONです。社会人学生時代、卒論で自作エディタからJSON …

VBAのComobjにて、「Rangeクラスの.Selectメソッドが失敗しました」で、少し悩んだ話

2020/12/13 -Excel, Lazarus, VBA, 仕事よもやま話
Rangeクラスの.Selectメソッドが失敗しました

こんばんは、ITsiervice雄飛です。今回は、久々にプログラミングの話題を。 LazarusとVBA（Excel）の話題になります。 ComObjから、ワークブックを呼び出し、シートを操作します …

拙作の経歴書作成ソフトを全面的に見直している話

2020/11/10 -Lazarus

お疲れ様です。本日二本目の投稿です。色々と時間が出来てきて、体力的にもゆとりが出来てきたので。僅々の課題だった、経歴書作成ソフトウェア「あぁ、だれか作って経歴書！」を、リメイクし、全面的に見直し …

コンピュータ言語を作っているお話

2020/11/10 -Lazarus, 仕事よもやま話

お疲れ様です。 ITservice雄飛です。今仕事で。簡易コンピュータ言語を作っています。まだ、変数はString型一つ、 While文とIf文、そしてそれらのネスト、メッセージダイアログコマ …

Lazarusから日本語対応でComObjを使ってExceVBAを呼び出す

2020/06/13 -Excel, Lazarus, VBA
Lazarusから日本語対応でComObjを使ってExceVBAを呼び出す

おはようございます。久しぶりの投稿です、ITservice雄飛です。 Lazarusから、VBAを呼び出して自動処理を書いています。そして、Delphiで使っていたライブラリを、Lazarus …

コードエディターに、流れ図作成機能とアルゴリズム生成機能を実装してみる（悪戦苦闘中。

2017/05/31 -Lazarus, PC

おはようございます、脇保です。開発中のエディター、「ｆEdit」が、大分完成間近になってきまして。今は、流れ図（フローチャート）を作成したり、それを、文章化されたアルゴリズムに落とす機能を実装し …

「 Lazarus 」 一覧

「 Lazarus 」一覧