月別アーカイブ: 2020年8月

Lazarusを日本語化に

2020年8月18日未分類haruki

Ubuntu16Desktopの英語環境でセットアップした所
Lazarusが英語環境となっていた

Ubuntu16Desktopの環境を
日本語環境に切り替えてた所

Lazarusも日本語環境になった

メニューなどが、日本語となっている

プログラムへの日本語入力はできないので
メモなどで日本語を打ち
コピペする必要がある

Conoha Ubuntu16Desktop日本語化

2020年8月18日未分類haruki

Conoha Ubuntu16Desktop日本語化にしてみました

参考
https://www.server-world.info/query?os=Ubuntu_20.04&p=japanese
https://qiita.com/myalpine/items/fb45b222924b2e61ea9f

右上の歯車の
System Settings..

から
LanguageSupport

「install/Remove Language..」
を選択
Japanes
を選択し
「Apply」

再起動をして有効にする

再起動は

ttps://eng-entrance.com/linux-ubuntu-reboot

を、参考に

右上のShutdownを選択した後に
Rebootを選択する

LazarusからShellを起動

2020年8月17日未分類haruki

LazarusからShellを起動してみました

環境
Ubuntu16
Lazarus 2.0.10

ポイント
TProcessからShellを起動
Shellの完了待ちとする方法と、完了待ちしない方法を選択できます

参考ページ
https://wiki.freepascal.org/Executing_External_Programs
https://stackoverflow.com/questions/26977422/execute-commands-in-the-linux-commandline-lazarus-free-pascal

設定
uses
,Process; //追加

プログラム

procedure TForm1.Button1Click(Sender: TObject);
var
  AProcess: TProcess;
begin
  AProcess := TProcess.Create(nil);
  AProcess.CommandLine:='/bin/bash /home/user/xxx/test02.sh';
  AProcess.Options := AProcess.Options + [poWaitOnExit];
  AProcess.Execute;

  AProcess.Free;
  button1.Caption:='ok';
end;

以下をなくすと、完了を待たずに次のステップに進みます。

  AProcess.Options := AProcess.Options + [poWaitOnExit];

test02.shの例
動作確認用

#!/bin/bash

cd /home/user/xxx/
ls >> /home/user/xxx/log01.txt

Python起動例

#!/bin/bash

source /home/user/env/bin/activate
cd /home/user/xxx/
python test.py
deactivate

Lazarus　のバージョンを上げる

2020年8月17日未分類haruki

環境
Ubuntu16

Lazarus
1.8.2 から　2.0.1へバージョンアップしてみました

sudo dpkg -i fpc-src_3.2.0-1_amd64.deb
sudo dpkg -i fpc-laz_3.2.0-1_amd64.deb
sudo dpkg -i lazarus-project_2.0.10-0_amd64.deb

の順で上書きを試みる

sudo dpkg -i fpc-laz_3.2.0-1_amd64.deb

失敗。fpc の削除を処理できません (–auto-deconfigure を使いましょう):
lazarus-project は fpc (>= 3.0.4) | fp-utils (>= 3.0.4) に依存 (depends) します
fpc は削除されようとしています。
fp-utils はインストールされていません。

とでたので

sudo dpkg -i --auto-deconfigure fpc-laz_3.2.0-1_amd64.deb

startlazarus
で起動する

UPGRADEのメッセージが表示され指示に従うと
2.0.1へバージョンアップできた。

Ubuntu１６でCronを使ってみる

2020年8月17日未分類haruki

Ubuntu１６でCronを使ってみる

定期的にプログラムを実行する仕組みを
Cronで行ってみる

参考

Ubuntuでのcronの使い方

まず、確認用の実行プログラムを作る

ファイル名
test.sh

内容

#!/bin/bash

cd /home/userA/test/
ls >> log01.txt

権限を設定
$ chmod 755 test.sh

動作を確認
/bin/bash test.sh

Cronのファイルを複写する
cron_01というファイル名でコピーしています。

$ sudo cp /etc/crontab /etc/cron.d/cron_01

ファイルを編集する

$ sudo vim /etc/cron.d/cron_01
/

スケジュールを追加する（１分ごとに起動）
*/1 * * * *   ubuntu /bin/bash /home/userA/test/test.sh

cronの再起動を行います。(既に起動済の場合は不要)


sudo service cron restart

ファイル
log01.txt
が、追加されているか確認する

削除する場合は
/etc/cron.d/cron_01
を、編集（コメントアウト、削除）

Pythonプログラムを起動する場合

起動するスクリプトを変更
test.sh

#!/bin/bash

source /home/user/env/bin/activate
cd /home/user/test
python test.py
deactivate

test.pyの例
（フォルダーに時間指定のファイル名を出力する）

import time
import datetime
def main():
    html='logdata'
    now = datetime.datetime.now()
    fname = now.strftime('%Y%m%d%H%M%S' + '_01.txt')  # => '2019-08-02 02:20:43'
    with open("log/" + fname, "w") as f:
        f.write(html)
main()

動作確認を行っておくコマンドラインから

/bin/bash test.sh

動作確認ができたら
/etc/cron.d/cron_01
を、編集し、起動するようにする

LazarusでLineBotを作る

2020年8月15日未分類haruki

LazarusでLineBotを作る

API通信で、LineBotを作ってみます。

環境
Ubuntu16
Lazarus 2.0.10

参考ページ

DelphiでJSON文字列を作成する

http://lazplanet.blogspot.com/2014/09/a-simple-json-parsing-example.html

必要なデータ
LINE_CHANNEL_ACCESS_TOKEN
LINE_SEND_ID　// １対１の送信で、友達になっている送信先のID

事前準備
パッケージ　「indy」を読み込む

ポイント
・JsonのAPI送信のため、Jsonデータを作成し、Strへ変換が必要
・送信データをTStringStreamで作成する必要がある
・HTTPSであるが、LineAPIの場合、idSSLIOHandlerSocketOpenSSL1なしで送れた
・IdHTTPの場合、usesの設定だけではなく、画面に設置しないとエラーになった

宣言部

uses

,IdHTTP
,fpjson,jsonparser

本体

procedure TForm1.FormCreate(Sender: TObject);
begin
  button1.Caption:='Send';
  edit1.Text:='おはよう！！'; //送信メッセージ
  memo1.Text:=''; //Jsonモニタ用
end;

procedure TForm1.Button1Click(Sender: TObject);
var
ss:TStringStream;
st,st1,LINE_CHANNEL_ACCESS_TOKEN,LINE_SEND_ID:string;

strm:TStringStream;
Data1,Data2 : TJSONObject;
JSONArray: TJSONArray;
begin

  LINE_CHANNEL_ACCESS_TOKEN:="YOUR_CHANNEL_ACCESS_TOKEN";
  LINE_SEND_ID:="SEND_ID";
  IdHTTP1:=TIdHTTP.Create(self);
  strm:=TStringStream.Create('',TEncoding.UTF8);

  IdHTTP1.Request.ContentType:='application/json';
  IdHTTP1.Request.Accept     :='application/json';

  IdHTTP1.Request.CustomHeaders.Add('Authorization:Bearer '+LINE_CHANNEL_ACCESS_TOKEN);

// https://www.gesource.jp/weblog/?p=6067
// http://lazplanet.blogspot.com/2014/09/a-simple-json-parsing-example.html
  Data1 := TJSONObject.Create;
  Data1.Add('type', 'text');
  Data1.Add('text', edit1.Text);

  JSONArray := TJSONArray.Create;
  JSONArray.Add(Data1);
  Data2 := TJSONObject.Create;
  Data2.Add('to', LINE_SEND_ID);

  Data2.Add('messages', JSONArray);
  st1:= Data2.AsJSON;
  Memo1.Lines.Text := st1;

  ss := TStringStream.Create(st1);
  ss.Position := 0;
  st:=IdHTTP1.Post('https://api.line.me/v2/bot/message/push',ss);
  showmessage('send!!');

end;

ＬａｚａｒｕｓでMysqlに接続する

2020年8月15日未分類haruki

ＬａｚａｒｕｓでMysqlに接続する

１，接続
２，読み込み（Select)
３，挿入（Insert）
４，アップデート（Update）
５，削除（Delete）

ポイント
　TMySQL55Connection
　TSQLQuery
　TSQLTransaction
を、使用する。

プログラム

設定

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  Grids
  , mysql55conn  // 追加
  , sqldb // 追加
  , db // 追加
  , ComCtrls // 追加

  ;

本体

procedure TForm1.FormCreate(Sender: TObject);
begin
     MySQL55Connection1:= TMySQL55Connection.Create(nil);
     MySQL55Connection1.HostName := 'xxx.xxx.xxx.xxx';
     MySQL55Connection1.CharSet:='utf8mb4';
     MySQL55Connection1.UserName := 'xxxx';
     MySQL55Connection1.Password := 'xxx';
     MySQL55Connection1.DatabaseName:='xxxxx';
     SQLQuery1:= TSQLQuery.Create(nil);
     SQLTransaction1:= TSQLTransaction.Create(nil);
     SQLTransaction1.SQLConnection:=MySQL55Connection1;


     button1.Caption:='search';
     button2.Caption:='select';
     button3.Caption:='insert';
     button4.Caption:='update';
     button5.Caption:='detale';
     button6.Caption:='maketable';


     StringGrid1.RowCount:=1;
     StringGrid1.ColCount:=3;

     StringGrid1.Cells[1,0]:='商品名';
     StringGrid1.Cells[2,0]:='商品コード';


end;
procedure TForm1.Button1Click(Sender: TObject);
var
  StrText:string;
begin
if not MySQL55Connection1.Connected then MySQL55Connection1.Open;
if MySQL55Connection1.Connected then begin
SQLQuery1.DataBase := MySQL55Connection1;
SQLQuery1.SQL.Text := 'select p_name from m_product where p_name="'+edit1.text+'" and p_code = "'+edit2.text+'" ';
         SQLQuery1.Open;
if SQLQuery1.EOF then begin
                   StrText :='商品と商品コードが一致しません';
                   MessageDlg(StrText, mtInformation, [mbYes], 0);
         end
    else  begin
      StrText :='商品と商品コードが一致しました';
      MessageDlg(StrText, mtInformation, [mbYes], 0);
             end;
         SQLQuery1.Close;
end;
MySQL55Connection1.Close();
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i:integer;
  s:string;
begin
if not MySQL55Connection1.Connected then MySQL55Connection1.Open;
if MySQL55Connection1.Connected then begin
SQLQuery1.DataBase := MySQL55Connection1;
SQLQuery1.SQL.Text := 'select p_name,p_code from m_product ';
         SQLQuery1.Open;
               SQLQuery1.Open;
       i:=1;
       while not SQLQuery1.EOF do
        begin
        if i+1>StringGrid1.RowCount then StringGrid1.RowCount:=StringGrid1.RowCount+1;
//        s:= SQLQuery1.Fields[0].AsString;
//        StringGrid1.Cells[i+1,0]:=SQLQuery1.Fields[0].AsString;
        StringGrid1.Cells[1,i]:=SQLQuery1.FieldByName('p_name').AsString;
        StringGrid1.Cells[2,i]:=SQLQuery1.FieldByName('p_code').AsString;
        i:=i+1;
        SQLQuery1.Next;
        end;
        StringGrid1.RowCount:=i;

      SQLQuery1.Close;
      MySQL55Connection1.Close;
end;


end;

procedure TForm1.Button3Click(Sender: TObject);
var
  i:integer;
  s,sql:string;
begin
if not MySQL55Connection1.Connected then MySQL55Connection1.Open;
if MySQL55Connection1.Connected then begin
   SQLQuery1.DataBase := MySQL55Connection1;

   if not SQLTransaction1.Active then SQLTransaction1.StartTransaction;
   sql:='INSERT into m_product (p_name,p_code,update_date,create_date) VALUES';
   sql:=sql+'("'+edit3.Text+'","'+edit4.Text+'",now(),now())';

   MySQL55Connection1.ExecuteDirect(sql);
   SQLTransaction1.Commit;
    end;
    SQLQuery1.Close;
    Button2Click(Sender);
    MySQL55Connection1.Close;
end;

procedure TForm1.Button4Click(Sender: TObject);
var
  i:integer;
  s,sql:string;
begin
if not MySQL55Connection1.Connected then MySQL55Connection1.Open;
if MySQL55Connection1.Connected then begin
   SQLQuery1.DataBase := MySQL55Connection1;
   if not SQLTransaction1.Active then SQLTransaction1.StartTransaction;
   sql:='update  m_product set p_code="'+edit6.Text+'" where p_name = "'+edit5.Text+'"';
   MySQL55Connection1.ExecuteDirect(sql);
   SQLTransaction1.Commit;
    end;
    SQLQuery1.Close;
    Button2Click(Sender);
    MySQL55Connection1.Close;
end;


procedure TForm1.Button5Click(Sender: TObject);
var
  i:integer;
  s,sql:string;
begin
if not MySQL55Connection1.Connected then MySQL55Connection1.Open;
if MySQL55Connection1.Connected then begin
   SQLQuery1.DataBase := MySQL55Connection1;
   if not SQLTransaction1.Active then SQLTransaction1.StartTransaction;
   sql:='delete from  m_product where p_name = "'+edit7.Text+'"';
   MySQL55Connection1.ExecuteDirect(sql);
   SQLTransaction1.Commit;
    end;
    SQLQuery1.Close;
    edit8.Text:=sql;
    Button2Click(Sender);
    MySQL55Connection1.Close;

end;

procedure TForm1.Button6Click(Sender: TObject);
var
  i:integer;
  s,sql:string;
begin
if not MySQL55Connection1.Connected then MySQL55Connection1.Open;
if MySQL55Connection1.Connected then begin
   SQLQuery1.DataBase := MySQL55Connection1;
   if not SQLTransaction1.Active then SQLTransaction1.StartTransaction;
   sql:=' CREATE TABLE IF NOT EXISTS m_product ( ';
   sql:=sql+'product_id INT(11) NOT NULL AUTO_INCREMENT,';
   sql:=sql+'p_name VARCHAR(20) NOT NULL,';
   sql:=sql+'p_code VARCHAR(50) NOT NULL,';
   sql:=sql+'create_date TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP,';
   sql:=sql+'update_date TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,';
   sql:=sql+'PRIMARY KEY ("product_id"))COLLATE="utf8mb4_general_ci" ENGINE=InnoDB ';
   MySQL55Connection1.ExecuteDirect(sql);
   SQLTransaction1.Commit;
    end;
    SQLQuery1.Close;
    edit8.Text:=sql;
    MySQL55Connection1.Close;

end;

サンプルのDB

CREATE TABLE m_product (
	product_id INT(11) NOT NULL AUTO_INCREMENT,
	p_name VARCHAR(20) NOT NULL,
	p_code VARCHAR(50) NOT NULL,
	create_date TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP,
	update_date TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,
	PRIMARY KEY ('product_id')
)
COLLATE='utf8mb4_general_ci'
ENGINE=InnoDB
;

SQLインジェクションは、未対応、修正が必要

参考
//http://www.366service.com/jp/qa/679747ee836bb2082ae2df224d6839ed

ＬａｚａｒｕｓでJsonを扱ってみた

2020年8月15日未分類haruki

ＬａｚａｒｕｓでJsonを扱ってみた

参考ページ
https://wiki.freepascal.org/fcl-json

ポイント
・jData : TJSONData;
jData := GetJSON(Json文字列);
　で取り込み、パースする
　例：jData.findpath(‘data’)
　データの取り込み時には、型変換（キャスト）する
　例：jData.findpath(‘data’).Items[i].FindPath(‘name’).AsString;
　配列は、Items[n]で、取り込む

プログラム
宣言部

uses
  ,fpjson,jsonparser;　//追加

本体

procedure TForm1.FormCreate(Sender: TObject);
begin
  button1.Caption:='分析（エンコード）';
  button1.Width:=150;
  Memo1.Text:='{"data": [{"name":"abc"}, {"name":"def"},{"name":"hijk"}]}';
  StringGrid1.Cells[1,0]:='No';
  StringGrid1.Cells[2,0]:='name';
  StringGrid1.ColCount:=3;
  StringGrid1.ColWidths[0]:=40;
  StringGrid1.ColWidths[1]:=40;
  StringGrid1.RowCount:=2;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
    jData : TJSONData;
   i:integer;
begin
   // https://wiki.freepascal.org/fcl-json
   jData := GetJSON(Memo1.Text);
   StringGrid1.RowCount:=2;
   for i := 0 to jData.findpath('data').Count - 1 do
   begin
    if i+2>StringGrid1.RowCount then StringGrid1.RowCount:=StringGrid1.RowCount+1;
    StringGrid1.Cells[1,i+1]:=IntToStr(i+1);
    StringGrid1.Cells[2,i+1]:=jData.findpath('data').Items[i].FindPath('name').AsString;
   end;
end;

ＬａｚａｒｕｓでStringGridを使ってみた

2020年8月15日未分類haruki

ＬａｚａｒｕｓでStringGridを使ってみた

参考ページ
https://www.petitmonte.com/bbs/answers?question_id=6229
http://delfusa.main.jp/delfusafloor/archive/www.nifty.ne.jp_forum_fdelphi/samples/00488.html

ポイント
行は
　・Row
列は
　・Col
幅を変えるのは
・StringGrid1.ColWidths[行]:=40;
行を追加するのは
　・StringGrid1.RowCount:=・StringGrid1.RowCount+1;
セルは
　・StringGrid1.Cells[列,行]:=’文字列’;
イベントは
　・TForm1.StringGrid1Click(Sender: TObject);
表（StringGrid）を選択（クリックした時）行（Row）と列（Col）を利用できる
　・TForm1.Edit1Change(Sender: TObject);
　　入力欄（Edit1）の内容を変更した時

procedure TForm1.FormCreate(Sender: TObject);
begin
   StringGrid1.ColCount:=5;
   StringGrid1.RowCount:=5;

   StringGrid1.Cells[1,0]:='No';
   StringGrid1.Cells[2,0]:='data1';
   StringGrid1.Cells[3,0]:='data2';
   StringGrid1.Cells[4,0]:='data3';

   StringGrid1.Cells[1,1]:='1';
   StringGrid1.Cells[2,1]:='1-1';
   StringGrid1.Cells[3,1]:='1-2';
   StringGrid1.Cells[4,1]:='1-3';

   StringGrid1.Cells[1,2]:='2';
   StringGrid1.Cells[2,2]:='2-1';
   StringGrid1.Cells[3,2]:='2-2';
   StringGrid1.Cells[4,2]:='2-3';

   StringGrid1.Cells[1,3]:='3';
   StringGrid1.Cells[2,3]:='3-1';
   StringGrid1.Cells[3,3]:='3-2';
   StringGrid1.Cells[4,3]:='3-3';

   StringGrid1.Cells[1,4]:='4';
   StringGrid1.Cells[2,4]:='4-1';
   StringGrid1.Cells[3,4]:='4-2';
   StringGrid1.Cells[4,4]:='4-3';

   StringGrid1.ColWidths[0]:=40;
   StringGrid1.ColWidths[1]:=40;
   StringGrid1.ColWidths[2]:=80;
   StringGrid1.ColWidths[3]:=80;
   StringGrid1.ColWidths[4]:=100;
     with  StringGrid1  do
  begin
    Edit1.Text := Cells[1,Row];
    Edit2.Text := Cells[2,Row];
    Edit3.Text := Cells[3,Row];
  end;
  button1.Caption:='削除';
  button2.Caption:='挿入';
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  with  StringGrid1  do
   Cells[1,Row]:=Edit1.Text;
end;

procedure TForm1.Button1Click(Sender: TObject);
    var
      KeepTopRow, KeepRow: Integer;
      ARow: Integer;
    begin
    with  StringGrid1  do begin
      ARow:=Row;
      KeepRow := Row;
      KeepTopRow := TopRow;

      BeginUpdate;
      try
        DeleteRow(ARow);

        if RowCount > KeepRow then Row := KeepRow
        else Row := KeepRow - 1;
        TopRow := KeepTopRow;

        SetFocus;
      finally
        EndUpdate;
      end;
    end;
end;

procedure TForm1.Button2Click(Sender: TObject);
//var
//        i : Integer;
//        k : Integer;
//begin
// https://www.petitmonte.com/bbs/answers?question_id=6229
// http://delfusa.main.jp/delfusafloor/archive/www.nifty.ne.jp_forum_fdelphi/samples/00488.html
  var
     i,InsCount,InsAt:integer;
  begin
     InsCount:=1;
     InsAt:=StringGrid1.Row;
     with StringGrid1 do
     begin
        RowCount:=RowCount+InsCount;
        For i:=RowCount-1 downTo InsAt+InsCount do
        begin
           Rows[i].assign(Rows[i-InsCount]);
        end;
        For i:=InsAt to InsAt+InsCount-1 do
        begin
           Rows[i].clear;
        end;
     end;

end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
  with  StringGrid1  do
   Cells[2,Row]:=Edit2.Text;
end;

procedure TForm1.Edit3Change(Sender: TObject);
begin
  with  StringGrid1  do
   Cells[3,Row]:=Edit3.Text;
end;

procedure TForm1.StringGrid1Click(Sender: TObject);
begin
  with  StringGrid1  do
  begin
    Edit1.Text := Cells[1,Row];
    Edit2.Text := Cells[2,Row];
    Edit3.Text := Cells[3,Row];
  end;
end;

Ｌａｚａｒｕｓでmemoを使ったファイルのロード、セーブをしてみた

2020年8月15日未分類haruki

Ｌａｚａｒｕｓでmemoを使ったファイルのロード、セーブ

テキストをファイルに格納する場合
memoを使って行うと、内容が見えるのでわかりやすい
文章などを扱う場合には有効である

参考
http://www.osk.3web.ne.jp/~satou/delphi6.htm

ポイント
Memo1.Lines.LoadFromFile( FName );
Memo1.Lines.SaveToFile(FName);
で、Memo1とテキストファイルのロードセーブができる

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Caption:='save';
  Button2.Caption:='load';
end;

procedure TForm1.Button1Click(Sender: TObject);
var FName:string;
begin
  FName:='test.txt';
//  Memo1.Lines.LoadFromFile( FName );
  Memo1.Lines.SaveToFile(FName);
end;

procedure TForm1.Button2Click(Sender: TObject);
var FName:string;
begin
  FName:='test.txt';
  Memo1.Lines.LoadFromFile( FName );
//  Memo1.Lines.SaveToFile(FName);
end;

プログラムを楽しもう

実際にプログラムを作り、スキルを磨いていきましょう。

月別アーカイブ: 2020年8月

Lazarusを日本語化に

Conoha Ubuntu16Desktop日本語化

LazarusからShellを起動

Lazarus　のバージョンを上げる

Ubuntu１６でCronを使ってみる

LazarusでLineBotを作る

ＬａｚａｒｕｓでMysqlに接続する

ＬａｚａｒｕｓでJsonを扱ってみた

ＬａｚａｒｕｓでStringGridを使ってみた

Ｌａｚａｒｕｓでmemoを使ったファイルのロード、セーブをしてみた