Kategori: IT

IT

Trådanvändning i Delphi

Så här använder du enkelt trådar i Delphi. synchronize fungerar bra om det används rätt 🙂 Funktionsinnehåll 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…

Läs mer — Trådanvändning i Delphi
IT

Hämtning av aktuell position (PHP)

Hämta positionen med geolocation-funktionen och, om användaren inte ger behörighet eller webbläsaren saknar stöd, hämta positionen via IP-adressen med Naver-API:t. Hämta först en API-nyckel från Naver via adressen nedan.(https://www.ncloud.com/product/applicationService/geoLocation) <? function makeSignature($secretKey, $method, $baseString, $timestamp, $accessKey) { $space = ’…

Läs mer — Hämtning av aktuell position (PHP)
IT

Hämta anslutnings-IP från AWS (PHP)

När man använder en Amazon-server visas den privata IP-adressen när man hämtar serverns IP-adress. Därför skapade jag detta för att hämta den offentliga IP-adressen. <? 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’]; ?>

Läs mer — Hämta anslutnings-IP från AWS (PHP)
IT

Registerövervakning (Delphi)

Användning 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 then begin…

Läs mer — Registerövervakning (Delphi)
IT

Morfologisk analys installation och användning (PHP)

Installationsmiljö: CentOS 7 standard, 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 mecab-0.996-ko-0.9.2.tar.gz…

Läs mer — Morfologisk analys installation och användning (PHP)