Ｌａｚａｒｕｓでタイマーを使ってみた

一定時間ごとに起動する仕組みを作ってみる

参考
http://www.w-frontier.com/delphi/2_timer.html

ポイント
Timer1.Enabled := True ;
　とすると、タイマーが起動される
timer1.Interval:=2000;　//２秒間隔
　インターバル（間隔）の設定ができる　　
時間になると
　TForm1.Timer1Timer
　が起動する

プログラム

変数設定

 private
    cu:integer;

プログラム本体

procedure TForm1.Button1Click(Sender: TObject);
begin
  cu:=0;
   if Button1.Caption = 'Start' then
begin
 Button1.Caption := 'Stop' ;
 Timer1.Enabled := True ;
end else
begin
 Button1.Caption := 'Start' ;
 Timer1.Enabled := False ;
 end ;
end ;

procedure TForm1.FormCreate(Sender: TObject);
begin
  button1.caption:='Start';
  timer1.Enabled:=False;
  timer1.Interval:=2000;
  edit1.Text:='0';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 cu:=cu+1;
 edit1.Text:=IntToStr(cu);
end;
             

Ｌａｚａｒｕｓでftp接続してみた

環境
Ubuntu 16.04 LT (VirtalBoxにて）
Lazarus 2.0.10

必要な情報
ｆｔｐサーバのアカウントとパスワード（x-sreverなどにて取得）

idFTP1.Host
idFTP1.Username
idFTP1.Password

実施した内容
１，ｆｔｐサーバへの接続
２，フォルダーリストの収集
３，ファイルのアップロード
４、ファイルのダウンロード
５、ファイルの削除
６、ファイル名の変更
７、ファイルの移動

手順
パッケージ「indy」を読み込む
パッケージ>OnlinePackageManager
IdFTP
を、設置

参考ページ
https://www.getlazarus.org/forums/viewtopic.php?t=51
http://mrxray.on.coocan.jp/Delphi/plSamples/773_Indy_FTPGetPut.htm

ポイント
１，ｆｔｐサーバへの接続
　・パッケージindyのTIdFTPを利用
２，フォルダーリストの収集
　・接続後 FTP.List、FTP.DirectoryListing.Items[i].FileName
　　　で、ファイル名を取得
３，ファイルのアップロード　
　・ファイルパスを指定して FTP.Put(SourceFile, UpLoadFile)で実施
４、ファイルのダウンロード
　・FTP.Getただし、ストリームで来るため、文字列変換などが必要
　　 FTP.Get(srcFile, Stream)
５、ファイルの削除
　・ FTP.Delete(deldFile)で行う、
　　ファイルがないときはexceptが発生してくれる
６、ファイル名の変更
　・ FTP.Rename(LOldName,LName)で行う、
　　ファイルがないときはexceptが発生してくれる
７、ファイルの移動
　・ファイル名変更と同じ手順、変更先をパス指定で移動ができる

プログラム

procedure TForm1.Button1Click(Sender: TObject);
var
FTP:         TIdFTP;
begin
  FTP := TIdFTP.Create( nil );
  FTP.Host     := 'xxxx.xserver.jp';
  FTP.Username := 'xxxx@xxxx.xsrv.jp';
  FTP.Password := 'xxxx';
  try
    FTP.Connect;
  except
    FTP.Disconnect;
    MessageDlg('サーバの接続に失敗しました．', mtInformation, [mbOK], 0);
    exit;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
FTP:         TIdFTP;
i: integer;
LFileName:string;
begin
     FTP := TIdFTP.Create( nil );
     FTP.Host     := 'xxxx.xserver.jp';
     FTP.Username := 'xxxx@xxxx.xsrv.jp';
     FTP.Password := 'xxxx';
  try
    FTP.Connect;
    FTP.ChangeDir( '/' );
    FTP.List;
    for i := 0 to FTP.DirectoryListing.Count - 1 do begin
         LFileName := FTP.DirectoryListing.Items[i].FileName;
        //ファイル名が'.'または'..'の時は除外
        if (LFileName = '.') or (LFileName = '..') then Continue;
         Memo1.Append(LFileName)
         end;
  except
    Screen.Cursor := crDefault;
    FTP.Disconnect;
    MessageDlg('サーバの接続に失敗しました．', mtInformation, [mbOK], 0);
    exit;
  end;
end;

function StreamToString(Stream: TStream): string;
var
  ms: TMemoryStream;
begin
  Result := '';
  ms := TMemoryStream.Create;
  try
    ms.LoadFromStream(Stream);
    SetString(Result, PChar(ms.memory), ms.Size);
  finally
    ms.Free;
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
FTP:         TIdFTP;
i: integer;
ss,LFileName,SourceFile,UpLoadFile:string;
Stream : TMemoryStream;
begin
     FTP := TIdFTP.Create( nil );
     FTP.Host     := 'xxxx.xserver.jp';
     FTP.Username := 'xxxx@xxxx.xsrv.jp';
     FTP.Password := 'xxxx';
     SourceFile := '/home/kon009/lazarus/blog/ftp/test01.txt';  // アップロードするファイル名(クライアント：ローカル)
     UpLoadFile := '/test01.txt';    // アップロードするファイル名(サーバー上)
  try
    FTP.Connect;
    FTP.ChangeDir( '/' );
  except
    FTP.Disconnect;
    ShowMessage('FTP接続に失敗しました。');
    Exit;
  end;
    try
      FTP.Put(SourceFile, UpLoadFile);
      ShowMessage('アップロードしました')
    except
      ShowMessage('アップロードに失敗しました')
    end;
    FTP.Disconnect;
end;

procedure TForm1.Button4Click(Sender: TObject);
var
FTP:         TIdFTP;
i: integer;
ss,LFileName,srcFile,dstFile:string;
Stream : TMemoryStream;
begin
     FTP := TIdFTP.Create( nil );
     FTP.Host     := 'xxxx.xserver.jp';
     FTP.Username := 'xxxx@xxxx.xsrv.jp';
     FTP.Password := 'xxxx';
     srcFile := '/abc.json';    // 読み込むファイル名(サーバー上)
     dstFile := '/home/kon009/lazarus/blog/ftp/abc.json';  // 書き込むファイル名(クライアント：ローカル)
  try
    FTP.Connect;
    FTP.ChangeDir( '/' );
  except
    FTP.Disconnect;
    ShowMessage('FTP接続に失敗しました。');
    Exit;
  end;
  Stream := TMemoryStream.Create;
    try
        FTP.Get(srcFile, Stream);
      if (Stream.Size<>0) then
          begin
        Stream.SavetoFile(dstFile);
        ss:=StreamToString(Stream);
        memo1.Text:=ss;
          end
      else
        ShowMessage('ファイルが見つかりませんでした。');
    except
      ShowMessage('FTP接続に失敗しました。')
    end;
    Stream.free;
    FTP.Disconnect;
end;

procedure TForm1.Button5Click(Sender: TObject);
var
FTP:         TIdFTP;
ss,LFileName,srcFile,deldFile:string;
Stream : TMemoryStream;
begin
     FTP := TIdFTP.Create( nil );
     FTP.Host     := 'xxxx.xserver.jp';
     FTP.Username := 'xxxx@xxxx.xsrv.jp';
     FTP.Password := 'xxxx';
     deldFile := '/test01.txt';    // 削除するファイル名(サーバー上)
  try
    FTP.Connect;
    FTP.ChangeDir( '/' );
  except
    FTP.Disconnect;
    ShowMessage('FTP接続に失敗しました。');
    Exit;
  end;
  try
        FTP.Delete(deldFile);
        ShowMessage('ファイルを削除しました');
   except
      ShowMessage('削除に失敗しました。')
   end;
   FTP.Disconnect;
end;

procedure TForm1.Button6Click(Sender: TObject);
var
FTP:         TIdFTP;
ss,LFileName,LOldName,LName:string;
Stream : TMemoryStream;
begin
     FTP := TIdFTP.Create( nil );
     FTP.Host     := 'xxxx.xserver.jp';
     FTP.Username := 'xxxx@xxxx.xsrv.jp';
     FTP.Password := 'xxxx';
     LOldName := '/test01.txt';    // 変更前ファイル名(サーバー上)
     LName    := '/test02.txt';    // 変更後ファイル名(サーバー上)
  try
    FTP.Connect;
    FTP.ChangeDir( '/' );
  except
    FTP.Disconnect;
    ShowMessage('FTP接続に失敗しました。');
    Exit;
  end;
  try
        FTP.Rename(LOldName, LName);
        ShowMessage('ファイルを変更しました');
   except
      ShowMessage('変更に失敗しました。')
   end;
   FTP.Disconnect;
end;

procedure TForm1.Button7Click(Sender: TObject);
var
FTP:         TIdFTP;
ss,LFileName,LOldName,LName:string;
Stream : TMemoryStream;
begin
     FTP := TIdFTP.Create( nil );
     FTP.Host     := 'xxxx.xserver.jp';
     FTP.Username := 'xxxx@xxxx.xsrv.jp';
     FTP.Password := 'xxxx';
     LOldName := '/test01.txt';    // 移動前ファイル名(サーバー上)
     LName    := '/dja/test01.txt';    // 移動後ファイル名(サーバー上)
  try
    FTP.Connect;
    FTP.ChangeDir( '/' );
  except
    FTP.Disconnect;
    ShowMessage('FTP接続に失敗しました。');
    Exit;
  end;
  try
        FTP.Rename(LOldName, LName);
        ShowMessage('ファイルを移動しました');
   except
      ShowMessage('移動に失敗しました。')
   end;
   FTP.Disconnect;
end;         

Ｌａｚａｒｕｓでメール送信してみた

環境
Ubuntu 16.04 LT (VirtalBoxにて）
Lazarus 2.0.10

手順
パッケージ「indy」を読み込む
パッケージ>OnlinePackageManager

検索
indy
Indy10にチェック
install
From repository

参考
http://oto.chu.jp/a.oto.chu.jp/kujira/text/delphi/mail/sendmail.htm
https://www.migaro.co.jp/contents/support/technical_report_search/no06/tech/06_01_04.pdf
https://www.petitmonte.com/bbs/answers?question_id=29625

必要な情報
メールサーバのアカウントとパスワード（x-sreverなどにて取得）

smtp.HOST:=’svxxxx.xserver.jp’;
smtp.PORT:=587;
smtp.Username:=’xxx@xxx.jp’;
smtp.Password:=’xxxxx’;

IdIMAP4,IdSMTP, IdSSLOpenSSL, IdMessage
を、設置

プログラム

var
smtp: TIdSMTP;
msg : TIdMessage;

begin
//*** 変数を初期化する ***/
smtp := nil;
msg := nil;
try
try
smtp := TIdSMTP.Create(nil);
smtp.HOST:=’xxxx.xserver.jp’;
smtp.PORT:=587;
smtp.Username:=’xxxx@xxxxx.com’;
smtp.Password:=’xxxx’;
smtp.Connect;
//*=== メッセージオブジェクトの作成 ===*/
msg := TIdMessage.Create(smtp);
msg.Subject := ‘Subject’;
msg.From.Name := ‘Name’;
msg.From.Address := ‘xxxxxx@gmail.com’;
msg.Recipients.EMailAddresses := ‘xxxxxx@gmail.com’;
msg.Body.Text := ‘Text’;

//*=== メール送信 ===*/
smtp.Send(msg);
except
// Result := False; // 異常終了
end;
finally
//*=== メッセージオブジェクトの破棄 ===*/
if msg <> nil then msg.Free;

//*=== SMTPサーバの切断 ===*/
if smtp <> nil then
begin
smtp.Disconnect;
smtp.Free;
end;

end;
end;

無事送信できました

Conoha VPS Ubuntu16 GUI環境を構築

環境の選択

東京
2GB
Ubuntu 16.04 (64bit)

パスワード
ネームタグ変更

rootのパスワードを設定し

オプション　ssh key

起動したら、IPを調べ

ssh -i /home/xxx/key-xxx-xx-xx-xx-xx.pem root@xx.xx.xx

で、端末に入る

root
XXXXパスワードでログイン

apt-get update
apt-get upgrade

Could not get lock /var/lib/dpkg/lock-frontend

のエラーがでたら

sudo rm /var/lib/apt/lists/lock
sudo rm /var/cache/apt/archives/lock
sudo rm /var/lib/dpkg/lock-frontend
sudo rm /var/lib/dpkg/lock

などで回避(一度に行わず、１行づつ確認)

たまに、問い合わせがあるが（y）で、回答

ポップアップ画面で問い合わせがでるが
そのまま「TAB」でOK

apt-get upgrade
の途中で、一度画面が切れたら
再度、ログインしなおし

アカウント作成

adduser xxx

Enter password
Retype password

sudoを使えるようにする

usermod -G sudo xxxxxx

ユーザに切り替える

su - xxx

sudoが使えるか調べる

sudo ls /

sudo tasksel

Ubuntu Desktop
をスペースで選択しTABでOKをリターン
(Ubuntu Cloud Image (instance) に入っているチェックはそのまま)

設定がはじまる

設定が完了したら

sudo sh -c 'echo 127.0.1.1 $(hostname) >> /etc/hosts'

sudo reboot

画面がリセットされた場合は
再度ログイン

データのやり取り
端末は

ssh -i /home/xxx/key-2015-xx-xx-xx-xx.pem root@150.xx.xx.xx
sftp -i /home/xxx/key-2015-xx-xx-xx-xx.pem root@150.xx.xx.xx

cd /home/xxx

Python環境を構築

$ python -V
Python 2.7.12

$ python3 -V
Python 3.5.2

python3 -m venv env

エラーにが出た場合は、メッセージに従い

apt-get install python3-venv

仮想環境構築の有効化

python3 -m venv env
source env/bin/activate

seleniumを組み込んでみる

pip install selenium

サンプルを起動

from selenium import webdriver
from selenium.webdriver.common.action_chains import ActionChains
import time

def main():
    print ('start_main')
    browser = webdriver.Chrome('/usr/lib/chromium-browser/chromedriver')
    time.sleep(5)
    browser.get('https://google.co.jp')
    time.sleep(4)
    print ('end_main')

main()
print ('end')

chromedriver エラーになる

chromedriverの場所を探す

 sudo find ./ -name chromedriver

#   browser = webdriver.Chrome('/usr/lib/chromium-browser/chromedriver')
   browser = webdriver.Chrome('/home/kon/env/lib/python3.5/site-packages/chromedriver')

Message 'chromedriver' executable may have wrong permissions. Please see https://sites.google.com/a/chromium.org/chromedriver/home

https://sites.google.com/a/chromium.org/chromedriver/home

から、ドライバーをダウンロード

chromedriver_linux64.zip

解凍し、フォルダーをドライバーとして指定

unzip chromedriver_linux64.zip

# browser = webdriver.Chrome(‘/usr/lib/chromium-browser/chromedriver’)
# browser = webdriver.Chrome(‘/home/kon/env/lib/python3.5/site-packages/chromedriver’)

browser = webdriver.Chrome(‘/home/kon/Downloads/chromedriver’)

に、変更、でうまく行った。
設置場所は後で、変更しておこう

参考
Chromeのバージンと合わせる方法として

pip install chromedriver-binary==xx.x.xxx.xx

にて、インストールする方法がある

https://qiita.com/hanzawak/items/2ab4d2a333d6be6ac760

各種バージョンのドライバは

https://sites.google.com/a/chromium.org/chromedriver/home
https://chromedriver.storage.googleapis.com/index.html

Chromeをヴァージョンアップする方法は

sudo apt-get --only-upgrade install google-chrome-stable

参考
https://qastack.jp/superuser/130260/how-to-update-google-chrome-in-ubuntu

問題がなければ、
最新のChromeにバージョンアップしてそれにあった
Driverを入れるといい

ubuntu14 にlazarusをインストールしてみました。

http://je7tsc.blogspot.com/2019/01/ubuntu17lazarusinstall.html
を、参考にしましたが

https://www.lazarus-ide.org/
からのDownloadNowより

lazarus-project
fpc-src
fpc-laz
を、ダウンロード
lazarus-project_2.0.10-0_amd64.deb
fpc-src_3.2.0-1_amd64.deb
fpc-laz_3.2.0-1_amd64.deb

となっていました。

フォルダーを作り、ダウンロードしたものを移動

cd
mkdir lazarus
cd lazarus

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

にて、インストール

sudo apt-get install build-essential
sudo apt-get install libgtk2.0-dev
を、しておいたが、不要だったかもしてません。

startlazarus
で、起動

ボタンを配置して
ダブルクリックをして

begin
Button1.caption := ‘lazarus’;
end;

として、実行してみましょう（beginとend;は、記述済）

参考の

sudo apt install ./lazarus-project_2.0.10-0_amd64.deb
sudo apt install ./fpc-src_3.2.0-1_amd64.deb
sudo apt install ./fpc-laz_3.2.0-1_amd64.deb

が、うまくいきませんでした。

再度
sudo apt-get install build-essential
なしで行った時

linker: /usr/bin/ld: -lcairo が見つかりません
などのエラーがでた

sudo apt-get install build-essential
をしたら、エラーが出て、メッセージに従い
sudo apt-get -f install
をおこなったらインストールできた

再起動したら、コンパイルができた
sudo apt-get install build-essential
は、必要のようだ。

DjangoのDBをSqligthからMysqlへ切り替える

ローカルではうまくいくのに、サーバで切り替えがうまく行かない

migrateを実施してみたら
Mysqlが入っているのに

django.core.exceptions.ImproperlyConfigured: Error loading MySQLdb module
と、エラーが出る

Django: 解決法 Error loading MySQLdb module.

を、参考にして
対策したらうまくいった

切り替えの流れ

■Settingを変更
https://docs.djangoproject.com/en/1.11/ref/settings/#databases
を、参考にDBを追加

DATABASES = {
‘default’: {
‘ENGINE’: ‘django.db.backends.postgresql’,
‘NAME’: ‘mydatabase’,
‘USER’: ‘mydatabaseuser’,
‘PASSWORD’: ‘mypassword’,
‘HOST’: ‘xxx.xxx.xxx.xxx’,
‘PORT’: ‘3306’,
}
}

WSGI_APPLICATIONの設定をDATABASESの前に追加
WSGI_APPLICATION = ‘[app_name].wsgi.application’

■Mysqlライブラリーを追加
pip install pymysql

■migrateを実施
python manage.py makemigrations
python manage.py migrate

ローカルでできたが、サーバ端末でエラー
django.core.exceptions.ImproperlyConfigured: Error loading MySQLdb module.
Did you install mysqlclient?

Django: 解決法 Error loading MySQLdb module.

を、参考にして
app_root_folder/app_name/__init__.py
へ、
import pymysql
pymysql.install_as_MySQLdb()
を、追加

無事切り替え完了

conoha に外部からアクセスできるMysqlを設置してみました。

■Conohaへの接続

キー接続で設定し、sshで接続

ssh -i /home/xxxx/key-20xx-0x-xx-0x-xx.pem root@xxx.xxx.xxx.xxx

■バージョン
# cat /etc/os-release
NAME=”Ubuntu”
VERSION=”18.04.4 LTS (Bionic Beaver)”

■参考
https://qiita.com/houtarou/items/a44ce783d09201fc28f5

■インストール
# apt install mysql-server mysql-client

■インストールされたMysqlのバージン
# mysql –version
mysql Ver 14.14 Distrib 5.7.31, for Linux (x86_64) using EditLine wrapper

■サーバ状態確認
# service mysql status

■サーバ起動
# service mysql start

■サーバ停止
# service mysql stop

■rootユーザーの設定
# mysql_secure_installation

■DB作成

# mysql -u root
パスワード入力

show databases;

CREATE DATABASE [データベース名] CHARACTER SET utf8mb4;

show databases;

■ユーザと権限設定
grant all privileges on [データーベース名].* to ‘[ユーザ名]’@’%’ identified by ‘[password]’ with grant option;

すでに、ユーザがある場合は、権限付与
GRANT all ON [データーベース名].* TO　'[ユーザ名]’@’%’;

全てのデータベースに権限付与する場合は
GRANT all ON *.* TO　'[ユーザ名]’@’%’;
（一度行っておくと、DBを追加した時は、設定は不要となるがセキュリティーが緩くなる）

select user,host from mysql.user;

■ユーザで確認(ローカル)

exit

# mysql -u [新しいユーザ名] -p

show databases;

exit

■ユーザで確認(外部から確認)
同じ端末で

# mysql -h [ip] -u [新しいユーザ名] -p

(111)のエラー

exit

vim /etc/mysql/mysql.conf.d/mysqld.cnf

bind-address = 127.0.0.1
これを
#bind-address = 127.0.0.1
に変更

iで、編集モードに入り、カーソルで移動#を追加し
し[esc]:wqで、保存終了

# service mysql stop
# service mysql start

で、
# mysql -h [ip] -u [新しいユーザ名] -p
にて確認

サーバIP確認は
# ifconfig
eth0: flags=4163 mtu 1500
inet xxx.xxx.xxx.xxx netmask 255.255.254.0 broadcast xxx.xxx.xxx.xxx

確認ができたら
外部ツールから接続確認を行う