Kilho.net

Рубрика: IT

IT

Using Threads in Delphi

Here’s an easy way to use threads in Delphi. Just use synchronize properly 🙂 Function [code lang=»delphi»] uses System.Classes, System.SysUtils, Vcl.Forms; procedure Wait(Proc: TProc); var Thread: TThread; begin Thread := TThread.CreateAnonymousThread(procedure() begin Proc; end); Thread.FreeOnTerminate := True; Thread.Start; while not…

Читать далее — Using Threads in Delphi
IT

Getting the Access IP in AWS (PHP)

When using an Amazon server, retrieving the server IP returns the private IP address. So I made this to get the public IP address. <? if(in_array(substr($_SERVER[‘SERVER_ADDR’], 0, 3), array(‘172’))) if(strrpos(gethostname(), ‘.compute.internal’)!==false) $_SERVER[‘SERVER_ADDR’] = file_get_contents(‘http://169.254.169.254/latest/meta-data/public-ipv4’); echo $_SERVER[‘SERVER_ADDR’]; ?>

Читать далее — Getting the Access IP in AWS (PHP)
IT

Registry Monitoring (Delphi)

How to Use procedure RegistryMonitor(RootKey: HKEY; Key: string; Proc: TProc; WatchSub: boolean); begin TThread.CreateAnonymousThread(procedure var Reg: TRegistry; Event: cardinal; begin Reg := TRegistry.Create; Reg.RootKey := RootKey; if Reg.OpenKeyReadOnly(Key) then begin Event := CreateEvent(nil, False, False, nil); if Event > 0…

Читать далее — Registry Monitoring (Delphi)
IT

Morpheme Analysis Installation and Use (PHP)

Installation environment: CentOS 7 default, PHP 7 yum install gcc-c++ java-1.7.0-openjdk-devel python-devel zlib-devel openssl openssl-devel git -y wget https://www.python.org/ftp/python/3.6.1/Python-3.6.1.tgz tar xf Python-3.* cd Python-3.* ./configure make make altinstall pip3.6 install JPype1-py3 pip3.6 install konlpy cd .. wget https://bitbucket.org/eunjeon/mecab-ko/downloads/mecab-0.996-ko-0.9.2.tar.gz tar zxfv…

Читать далее — Morpheme Analysis Installation and Use (PHP)