23 Ekim 2012 Salı

C# ile OPC Bağlantısı ve Uygulama Geliştirmek

Bir önceki yazıda Opc Server kurulumu ve test için birkaç değişken eklemeyi gördük.
Şimdi bir C# projesi oluşturup bu değişkenleri okuyup yazma işlemi yapacağız.

İlk önce OPC apilierini referanlara ekleyelim.


Aşağıdaki kodu adm adım inceleyelim.


  Opc.Da.Server server = null;

        OpcCom.Factory fact = new OpcCom.Factory();

        Opc.Da.Item[] items;

        Opc.Da.Subscription group;

        Opc.IRequest req;

        Opc.Da.WriteCompleteEventHandler WriteEventHandler;

        Opc.Da.ReadCompleteEventHandler ReadEventHandler;


//Networkteki OPC serverların listesin getiren fonksiyon



private void GetOpcServers()

        {

            try

            {

                OpcCom.ServerEnumerator se = new OpcCom.ServerEnumerator();



                Opc.Server[] servers = se.GetAvailableServers(Opc.Specification.COM_DA_20);



                ListServers(servers);

            }

            catch (Exception)

            {

                throw;

            }

        }



//OPC Server connection stringlerini hazırlayan fonksiyon



private void ListServers(Opc.Server[] OpsServerList)

        {

            trwServers.Nodes.Clear();

            lstUrlList.Items.Clear();

            foreach (Opc.Server serv in OpsServerList)

            {

                TreeNode trn = new TreeNode(serv.Name);

                trn.Nodes.Add(serv.Url.HostName + " : " + serv.Url.Path + " : " + serv.Url.Port);

                trn.Nodes.Add(serv.Url.ToString());

                trn.Nodes.Add(serv.IsConnected.ToString());

                trwServers.Nodes.Add(trn);

                lstUrlList.Items.Add(serv.Url.ToString());

            }

        }


Aşağıda bağlanabileceğimiz OPC server listeleri ve bağlantı stringleri gözükmektedir.



        private bool ConnectOPCServer(string OpcUrl)

        {

            // Create a server object and connect to the TwinCATOpcServer

            Opc.URL url = new Opc.URL(OpcUrl);

          

            server = new Opc.Da.Server(fact, null);



            try

            {

                server.Connect(url, new Opc.ConnectData(new System.Net.NetworkCredential()));

            }

            catch (Exception Ex)

            {

                MessageBox.Show(Ex.Message);

                return false;

            }



            // Okuma Grubu

            Opc.Da.SubscriptionState groupState = new Opc.Da.SubscriptionState();

            groupState.Name = "Group1";

            groupState.Active = true;





            group = (Opc.Da.Subscription)server.CreateSubscription(groupState);

            group.DataChanged += new Opc.Da.DataChangedEventHandler(group_DataChanged);





            // Gruba 3 adet OPC değişkeni ekle

            items = new Opc.Da.Item[3];

            items[0] = new Opc.Da.Item();

            items[0].ItemName = "Bucket Brigade.Int1";

            items[1] = new Opc.Da.Item();

            items[1].ItemName = "Bucket Brigade.Int2";

            items[2] = new Opc.Da.Item();

            items[2].ItemName = "Bucket Brigade.Int3";

            items = group.AddItems(items);



            //Write Callback fonksiyonumuzu tutacak handler

            WriteEventHandler = new Opc.Da.WriteCompleteEventHandler(WriteCompleteCallback);

             //Read Callback fonksiyonumuzu tutacak handler

            ReadEventHandler = new Opc.Da.ReadCompleteEventHandler(ReadCompleteCallback);



            return true;

        }



        void group_DataChanged(object subscriptionHandle, object requestHandle, Opc.Da.ItemValueResult[] values)

        {

            foreach (Opc.Da.ItemValueResult chitem in values)

            {

                WriteLogList(chitem.ItemName + " : " +

                                chitem.ItemPath + " : " +

                                chitem.Key + " : " +

                                chitem.Value);

            }

        }





        void WriteLogList(string item)

        {

            lstLog.BeginInvoke((MethodInvoker)delegate

            {

                lstLog.Items.Insert(0, item);

            });

        }



        void WriteCompleteCallback(object clientHandle, Opc.IdentifiedResult[] results)

        {



            WriteLogList("Write completed");

            foreach (Opc.IdentifiedResult writeResult in results)

            {

                WriteLogList(writeResult.ItemName + " : " + writeResult.ResultID);

            }



        }



        void ReadCompleteCallback(object clientHandle, Opc.Da.ItemValueResult[] results)

        {

            WriteLogList("Read completed");

            foreach (Opc.Da.ItemValueResult readResult in results)

            {

                WriteLogList(readResult.ItemName + " : " + readResult.Value);

            }

            Console.WriteLine();

        }



        private void Form1_Load(object sender, EventArgs e)

        {

            GetOpcServers(); 

        }



      



        private void button4_Click(object sender, EventArgs e)

        {

            if (server.IsConnected)

            {

                MessageBox.Show("connected");

            }

        }



        private void btnConnect_Click(object sender, EventArgs e)

        {

            if ((server != null) && (server.IsConnected))

                server.Disconnect();



            if (lstUrlList.SelectedItems.Count != 0)

                ConnectOPCServer(lstUrlList.SelectedItem.ToString());

        }



        private void btnWrite_Click(object sender, EventArgs e)

        {

            Opc.Da.ItemValue[] iv = new Opc.Da.ItemValue[group.Items.Count()];

            Random rnd = new Random();





            for (int i = 0; i < group.Items.Count(); i++)

            {

                Opc.Da.ItemValue iiv = new Opc.Da.ItemValue(group.Items[i].ItemName);

                iiv.ItemPath = group.Items[i].ItemPath;

                iiv.ServerHandle = group.Items[i].ServerHandle;

                iiv.Value = rnd.Next(1,1000);

                iv[i] = iiv;

            }



            //group.Write(iv);

            //Asenkron

            group.Write(iv, 1234, WriteCompleteCallback, out req);

        }



        private void btnRead_Click(object sender, EventArgs e)

        {

            //group.Read(group.Items);

            //and now read the items again

            group.Read(group.Items, 123, ReadCompleteCallback, out req);

        }



Örnek programı indirmek için

21 Ekim 2012 Pazar

OPC (OLE for process control) Nedir 2 ?



Opc haberleşmesi kaynak cihazın Opc Servera bağlanması ile başlamaktadır.
Bu bağlantı farklı Modbus, PLC-5, Melsec-Q, ProfiBus ..vb gibi protokollerle gerçekleştirilir.
Opc Serverlar üreticinin geliştirdiği yazılımlar olabileceği gibi üçüncü parti bir yazılımda olabilir. Opc Servera bağlanıp hizmet alan her noktaya Opc client adı verilir.

Opc server ile denemeler yapmak için bir plc ye ihtiyacınız yok. Bu iş için denemelerinizi yapabileceğiniz Opc Server Simulatörler mevcut.

Benim örneklerimde kullandığımı indirmek için tıklayınız.

OPC.NET20 Api
OPC Client Program

İlk adım olarak OPC Simulatör kurulumunu gerçekleştirmelisiniz. Kurulum gerçekleştikten sonra opc server exploreri açıp aşağıdaki tanımlamaları yapmalısınız.




Çalışan Opc Serverların sol menüde gözükmesi gerekli. Bağlanmak istediğimizi seçiyoruz.
Connect düğmesine tıklıyoruz.



Opc Server üzerinde değişkenler Gruplanarak tutulurlar.
Bu yüzden bir adet grup ekleyip altına değişkenler tanımlamanız gerekli.



Grubun altına add items şeçeneğini seçerek istediğimiz test değişkenlerini ekleyebiliriz.
Simulation items altından sabit ve random değişkenler ekleyebilirsiniz.



Eklediğiniz sabit değişkenlere istediğiniz değerleri yazabilirsiniz.



Eklediğiniz sabit değerlere belirli zaman aralıklarında sürekli artan değerler atabilirsiniz.



Herhangi bir Opc Client ile bağlanmak istediğimiz opc serveri seçmelisiniz.



Az önce eklediğiniz grup adının aynısını buraya eklemelisiniz.



Grubun okunma zamanı ... gibi ayarlar seçilir.



Yine ilk server ekranından eklediğimiz tipte ve aynı isimde değişkenleri ekliyoruz. Değişkenlerin ekranda son değerleri ile gözükmesi gerekli.


Şimdilik bu kadar bir sonraki yazımız uygulama geliştirme ile ilgili olacak..

18 Ekim 2012 Perşembe

OPC (OLE for process control) Nedir 1 ?

OPC günün birinde endüstriyel otomasyonların birbirleriyle veya dış dünyayla haberleşmesi ihtiyacı doğrultusunda doğmuş bir standarttır.

Cihaz üreticilerinin desteğiyle ilk sürümü 1996 yılında yayınlanmıştır. Takibinde OPC Foundation adında başı çeken üreticiler tarafından endüstriyel bir topluluk kurulmuş ve standartlar ve çalışmalar artık bu konsorsiyum tarafından yürütülmektedir.

OPC endüstriyel cihazlara ortak bir platformda haberleşme imkanı sunmaktadır. OPC Farklı marka PLClerin( Programlanabilir Mantıksal Denetleyici - Programmable Logic Controller) birbirleriyle veya dış ortamdaki tüm uygulamalarla haberleşmesini sağlayabilir.

Cümleyi örneklemek gerekirse bir fabrikadaki Siemens kontrol sistemiyle gerçekleştirilmiş bir gıda üretim bandının Panasonic kontrol sistemiyle geliştirilmiş bir soğutma sistemiyle paralel ve gerçek zamanlı haberleşip çalışmasını gösterebiliriz. Keza yine bu sistemin alarmlarının, olaylarının, ölçümlerinin, kontrollerinin yapıldığı uygulamalardan tutunda anlık veya saatlik üretim miktarlarının ERP veritabanlarına aktarımı gibi çözümler OPC yardımıyla çözülmektedir.

Bundan sonraki yazımızda OPC ile uygulama geliştirmek için simulatorden bahsedip örnekler yapacağım...
Devam....

19 Eylül 2012 Çarşamba

Cross Platform Bazen Hayat Kurtarır

Lazarustan daha önceki yazılarımda biraz bahsetmiştim. Hatta WinCE üzerinde çalışan bir klavye tuş yakalama örneği eklemiştim. Geçen süre içerisinde aynı çözümü Win32 sistemlerde ihtiyacım oldu. Lazarusla kısa bir çalışma sonunda hem CE için hemde Win32 sistemler için uygulamayı bitirdim.





unit Unit1; 
{$mode objfpc}{$H+}
interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
ComCtrls, ExtCtrls, Sockets,Windows,IniFiles, types;
type
{ TFrmMain }
TFrmMain = class(TForm)
btnClose: TButton;
btnClear: TButton;
btnMin: TButton;
btnOpen: TButton;
btnSaveIni: TButton;
btnWriteDefault: TButton;
edtPort: TEdit;
edtMacID: TEdit;
lblIp: TEdit;
edtIP: TEdit;
lblIp1: TEdit;
lblIp2: TEdit;
lblIp3: TEdit;
edtBarcodeStart: TEdit;
memData: TMemo;
memKey: TMemo;
memError: TMemo;
pageMain: TPageControl;
Panel1: TPanel;
Panel2: TPanel;
tbSettings: TTabSheet;
tbDebug: TTabSheet;
tmrHide: TTimer;

procedure btnClearClick(Sender: TObject);
procedure btnOpenClick(Sender: TObject);
procedure btnCloseClick(Sender: TObject);
procedure btnMinClick(Sender: TObject);
procedure btnSaveIniClick(Sender: TObject);
procedure btnWriteDefaultClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure lblIp3DblClick(Sender: TObject);
procedure tmrHideTimer(Sender: TObject);

private
{ private declarations }
function SendData(Data:String):Boolean;
function LoadIniFiles():Boolean;
function WriteIniFile():Boolean;
procedure LogYaz(Data:String);

public
{ public declarations }
end;

type
PKBDLLHOOKSTRUC = ^KBDLLHOOKSTRUCT;
KBDLLHOOKSTRUCT = packed record
vkCode: DWORD;
scanCode: DWORD;
flags: DWORD;
time: DWORD;
dwExtraInfo: Pointer;
end;

type
HOOKPROC = function (_para1:longint; _para2:PtrInt; _para3:PtrInt):PtrInt;
//{$IFDEF winCE}
//{$ENDIF}
//{$IFDEF win32}
//{$ENDIF}

var
FrmMain: TFrmMain;
KBHook: Cardinal = 0;
srvip: String;
srvport: String;
startchr: String;
machid: String;

Barcode_Islem: Integer;
Barcode_Start_i: Integer;
Barcode_Data: String;
Barcode_Detect: Boolean;
ChrKeyPress: DWORD;
ChrKeyUp: DWORD;

const
{$IFDEF winCE}
//inifile = '\flash\Settings.ini';
inifile = '\Windows\Settings.ini';
WH_KEYBOARD_LL = 20;
{$ENDIF}
{$IFDEF win32}
inifile = 'C:\Settings.ini';
WH_KEYBOARD_LL = 13;
{$ENDIF}
HC_ACTION = 0;
GWL_EXSTYLE = -20;
WS_EX_TOOLWINDOW = $80;
{ ShowWindow }
SW_HIDE = 0;
SW_MAXIMIZE = 3;
SW_MINIMIZE = 6;
SW_NORMAL = 1;
SW_RESTORE = 9;
SW_SHOW = 5;
SW_SHOWDEFAULT = 10;
SW_SHOWMAXIMIZED = 3;
SW_SHOWMINIMIZED = 2;
SW_SHOWMINNOACTIVE = 7;
SW_SHOWNA = 8;
SW_SHOWNOACTIVATE = 4;
SW_SHOWNORMAL = 1;
WPF_RESTORETOMAXIMIZED = 2;
WPF_SETMINPOSITION = 1;

implementation

procedure ParseKeyboard(Key: DWORD);
begin
if FrmMain.tbDebug.TabVisible then
FrmMain.memKey.Lines.Insert(0,chr(Key));
case Barcode_Islem of
0: begin
Barcode_Start_i:= 1;
if chr(Key) = startchr[1] then begin
Barcode_Start_i:= 2;
Barcode_Islem:= 1;
Barcode_Data:= chr(Key);
Barcode_Detect:= True;
end;
end;
1: begin
if (Barcode_Start_i <= Length(startchr)) then begin
if chr(Key) = startchr[Barcode_Start_i] then begin
Barcode_Start_i:= Barcode_Start_i + 1;
Barcode_Data:= Barcode_Data + chr(Key);
Barcode_Islem:= 1;
end else begin
Barcode_Detect:= False;
Barcode_Islem:= 0;
end;
end else begin
Barcode_Data:= Barcode_Data + chr(Key);
Barcode_Islem:= 2;
end;
end;
2:begin
if Key = 13 then begin//enter
Barcode_Detect:= False;
Barcode_Islem:= 0;
if FrmMain.tbDebug.TabVisible then
FrmMain.memKey.Lines.Insert(0,Barcode_Data);
FrmMain.SendData('MACHID:' + machid + 'BRCD:'+ Barcode_Data+ '@');
end else begin
Barcode_Data:= Barcode_Data + chr(Key);
end;
end;
end;
////
end;

procedure MemWrite(Data:String);
begin
FrmMain.memData.Lines.Insert(0,Data);
end;

procedure ParseCode(pkh: KBDLLHOOKSTRUCT);
begin
if FrmMain.tbDebug.TabVisible then
MemWrite(chr(pkh.vkCode)+':'+IntToStr(pkh.vkCode)+'-'+inttostr(pkh.scanCode)+'-'+inttostr(pkh.flags)+'-'+inttostr(pkh.time));

if pkh.vkCode = 36 then
ShowWindow(FrmMain.Handle,SW_NORMAL);

//harf aralarında "?" geliyor ne alaka
if (((pkh.vkCode > 31)and(pkh.vkCode<127))or(pkh.vkCode = 13)) then begin
//Tuş Yakalama
if ChrKeyPress = 0 then
ChrKeyPress:= pkh.vkCode
else if ((ChrKeyPress <> 0) and (ChrKeyUp = 0)) then
ChrKeyUp:=pkh.vkCode;

//Tuş Kontrol
if ((ChrKeyPress <> 0) and (ChrKeyUp <> 0)) then begin
if ChrKeyPress = ChrKeyUp then
ParseKeyboard(ChrKeyUp);
ChrKeyPress:= 0;
ChrKeyUp:= 0;
end;
end;
end;

{$IFDEF winCE}
function TaskKeyHookLL(nCode: LongInt;
wp: LongWord; lp:LongInt): LongInt; cdecl;
var
ppkh: KBDLLHOOKSTRUCT;
key: WORD;
begin
ppkh:= PKBDLLHOOKSTRUC(lp)^;
if nCode = HC_ACTION then
ParseCode(ppkh);
Result:= CallNextHookEx(KBHook, nCode, wp, lp);
end;
{$ENDIF}


{$IFDEF win32}
function TaskKeyHookLL(nCode: LongInt;
wp: LongInt; lp:LongInt): LongInt; stdcall;
var
ppkh: KBDLLHOOKSTRUCT;
key: WORD;
begin
ppkh:= PKBDLLHOOKSTRUC(lp)^;
if nCode = HC_ACTION then
ParseCode(ppkh);
Result:= CallNextHookEx(KBHook, nCode, wp, lp);
end;
{$ENDIF}

function KeyboardHook(ADisable: Boolean): Boolean;
begin
if ADisable then
begin
if KBHook = 0 then
KBHook:= SetWindowsHookEx(WH_KEYBOARD_LL,
@TaskKeyHookLL, HInstance, 0);
end else
if KBHook <> 0 then
begin
UnhookWindowsHookEx(KBHook);
KBHook:= 0;
end;
Result:= KBHook <> 0;
end;


{ TFrmMain }
procedure TFrmMain.btnOpenClick(Sender: TObject);
begin
if KeyboardHook(True) then
LogYaz('System Hooked')
else
LogYaz('System Not Hooked');
end;

procedure TFrmMain.btnClearClick(Sender: TObject);
begin
memData.Clear;
memKey.Clear;
end;

procedure TFrmMain.btnCloseClick(Sender: TObject);
begin
KeyboardHook(False);
end;

procedure TFrmMain.btnMinClick(Sender: TObject);
begin
//FrmMain.WindowState:= wsMinimized;
ShowWindow(FrmMain.Handle,SW_HIDE);
end;

procedure TFrmMain.btnSaveIniClick(Sender: TObject);
begin
WriteIniFile();
end;

procedure TFrmMain.btnWriteDefaultClick(Sender: TObject);
var
MyFile: TIniFile;
begin
MyFile := TIniFile.Create(inifile);
try
MyFile.WriteString('Program', 'IP','192.168.100.1');
MyFile.WriteString('Program', 'PORT','509');
MyFile.WriteString('Program', 'MACID','XXX');
MyFile.WriteString('Program', 'BARCODESTART','K1');
finally
MyFile.Free;
end;
end;

procedure TFrmMain.FormCreate(Sender: TObject);
begin
pageMain.ActivePage:= tbSettings;
pageMain.Pages[1].TabVisible:= false;
LoadIniFiles();
if not KeyboardHook(True) then
LogYaz('Err: System Not Hooked');
Barcode_Islem := 0;
Barcode_Data:= '';
Barcode_Detect:= False;
ChrKeyPress:= 0;
ChrKeyUp:= 0;
end;

procedure TFrmMain.FormShow(Sender: TObject);
begin
tmrHide.Enabled:= True;
end;

procedure TFrmMain.lblIp3DblClick(Sender: TObject);
begin
pageMain.Pages[1].TabVisible:= not pageMain.Pages[1].TabVisible;
end;

procedure TFrmMain.tmrHideTimer(Sender: TObject);
begin
ShowWindow(FrmMain.Handle,SW_HIDE);
tmrHide.Enabled:= false;
end;

function TFrmMain.SendData(Data: String): Boolean;
var
adr : TInetSockAddr;
soc : Tsocket;
buf : String[255];
Sin,Sout : Text;
begin

soc := fpsocket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
if soc=-1 then begin
LogYaz('Socket hatası');
exit;
end;

adr.sin_family := AF_INET;
adr.sin_port := htons(StrToInt(srvport));
if srvip='' then
adr.sin_addr := StrToNetAddr('127.0.0.1')
else
adr.sin_addr := StrToNetAddr(srvip);

if not Connect (soc,adr,Sin,Sout) then
begin
LogYaz('Bağlantı hatası : '+NetAddrToStr(adr.sin_addr));
exit;
end;

buf := Data;

fpsend(soc,@buf,length(buf)+1,0);//gönderim

fpshutdown(soc,0); // kapat
CloseSocket(soc);
end;


function TFrmMain.LoadIniFiles(): Boolean;
var
MyFile: TIniFile;
begin
MyFile := TIniFile.Create(inifile);
try
srvip:= MyFile.ReadString('Program', 'IP','127.0.0.1');
edtIp.Text:= srvip;
srvport:= MyFile.ReadString('Program', 'PORT','509');
edtPort.Text:= srvport;
machid:= MyFile.ReadString('Program', 'MACID','xxxx');
edtMacID.Text:= machid;
startchr:= MyFile.ReadString('Program', 'BARCODESTART','K1');
edtBarcodeStart.Text:= startchr;
finally
MyFile.Free;
end;
end;


function TFrmMain.WriteIniFile(): Boolean;
var
MyFile: TIniFile;
begin
MyFile := TIniFile.Create(inifile);
try
MyFile.WriteString('Program', 'IP',edtIp.Text);
MyFile.WriteString('Program', 'PORT',edtPort.Text);
MyFile.WriteString('Program', 'MACID',edtMacID.Text);
MyFile.WriteString('Program', 'BARCODESTART',edtBarcodeStart.Text);
finally
MyFile.Free;
end;
end;


procedure TFrmMain.LogYaz(Data: String);
begin
memError.Lines.Insert(0,Data);
end;

{$R *.lfm}

end.



17 Ağustos 2012 Cuma

Windows CE Keyboard Hook (Win Ce Tuş Yakalama)



WinCe kullanan bir sistemde basılan tuşları yakalayıp belli bir formatta olanları soket üzerinden  gönderen bir uygulamaya ihtiyacım oldu. Kullanılan pc endüstriyel bir bilgisayardı ve oldukça kısıtılı ayarları olan bir bilgisayardı. İlk önce .ne compact framework ile bir uygulama geliştirmek istedim. Geliştirdiğim uygulama klavye hareketlerini yakaladı. Fakat seçim formdan ayrıldıktan sonra tuş yakala duruyor ve daha sonra çalışmıyordu. Bunun üzerine benzer bir örneği LAZARUS ile geliştirdim. 



unit Unit1; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ComCtrls, ExtCtrls, Sockets, IniFiles, types;

type

  { TFrmMain }

  TFrmMain = class(TForm)
    btnClose: TButton;
    btnMin: TButton;
    btnOpen: TButton;
    btnSaveIni: TButton;
    btnWriteDefault: TButton;
    edtPort: TEdit;
    edtMacID: TEdit;
    lblIp: TEdit;
    edtIP: TEdit;
    lblIp1: TEdit;
    lblIp2: TEdit;
    lblIp3: TEdit;
    edtBarcodeStart: TEdit;
    memData: TMemo;
    memKey: TMemo;
    memError: TMemo;
    pageMain: TPageControl;
    Panel1: TPanel;
    Panel2: TPanel;
    tbSettings: TTabSheet;
    tbDebug: TTabSheet;
    tmrHide: TTimer;
    procedure btnOpenClick(Sender: TObject);
    procedure btnCloseClick(Sender: TObject);
    procedure btnMinClick(Sender: TObject);
    procedure btnSaveIniClick(Sender: TObject);
    procedure btnWriteDefaultClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure lblIp3DblClick(Sender: TObject);
    procedure tmrHideTimer(Sender: TObject);
  private
    { private declarations }
    function SendData(Data:String):Boolean;
    function LoadIniFiles():Boolean;
    function WriteIniFile():Boolean;
    procedure LogYaz(Data:String);
  public
    { public declarations }
  end;

  type
  PKBDLLHOOKSTRUC = ^KBDLLHOOKSTRUCT;
  KBDLLHOOKSTRUCT = packed record
    vkCode: DWORD;
    scanCode: DWORD;
    flags: DWORD;
    time: DWORD;
    dwExtraInfo: Pointer;
  end;

  type
  HOOKPROC = function (_para1:longint; _para2:PtrInt; _para3:PtrInt):PtrInt;

  {$include F:\lazarus\fpc\2.6.0\source\rtl\wince\wininc\coredll.inc}
  {$include F:\lazarus\fpc\2.6.0\source\rtl\wince\wininc\base.inc}
  {$include F:\lazarus\fpc\2.6.0\source\rtl\wince\wininc\defines.inc}
  function CallNextHookEx(hhk:THandle; nCode:longint; wParam:PtrInt; lParam:PtrInt):PtrInt;  external 'coredll.dll' name 'CallNextHookEx';
  //function CallNextHookEx(hhk:HHOOK; nCode:longint; wParam:WPARAM; lParam:LPARAM):LRESULT; external KernelDLL name 'CallNextHookEx';
  function SetWindowsHookEx(idHook:longint; lpfn:HOOKPROC; hmod:THandle; dwThreadId:DWORD):THandle; external 'coredll.dll'  name 'SetWindowsHookExW';
  //function SetWindowsHookEx(idHook:longint; lpfn:HOOKPROC; hmod:HINST; dwThreadId:DWORD):HHOOK; external KernelDLL name 'SetWindowsHookExW';
  function UnhookWindowsHookEx(hhk:THandle):LongBool; external 'coredll.dll' name 'UnhookWindowsHookEx';
  //function UnhookWindowsHookEx(hhk:HHOOK):WINBOOL; external 'user32' name 'UnhookWindowsHookEx';
  function SetWindowLong(hWnd:THandle; nIndex:longint; dwNewLong:longint):longint;  external 'coredll.dll' name 'SetWindowLongW';
  //function SetWindowLong(hWnd:HWND; nIndex:longint; dwNewLong:LONG):LONG; external KernelDLL name 'SetWindowLongW';
  function ShowWindow(hWnd:THandle; nCmdShow:longint):Boolean; external KernelDLL name 'ShowWindow';
  //function ShowWindow(hWnd:HWND; nCmdShow:longint):WINBOOL; external KernelDLL name 'ShowWindow';
var
  FrmMain: TFrmMain;
  KBHook: Cardinal = 0;
  srvip: String;
  srvport: String;
  startchr: String;
  machid: String;

  Barcode_Islem: Integer;
  Barcode_Start_i: Integer;
  Barcode_Data: String;
  Barcode_Detect: Boolean;
  ChrKeyPress: DWORD;
  ChrKeyUp: DWORD;

const
  inifile = '\flash\Settings.ini';
  WH_KEYBOARD_LL = 20;
  HC_ACTION = 0;
  GWL_EXSTYLE = -20;
  WS_EX_TOOLWINDOW = $80;
  { ShowWindow  }
     SW_HIDE = 0;
     SW_MAXIMIZE = 3;
     SW_MINIMIZE = 6;
     SW_NORMAL = 1;
     SW_RESTORE = 9;
     SW_SHOW = 5;
     SW_SHOWDEFAULT = 10;
     SW_SHOWMAXIMIZED = 3;
     SW_SHOWMINIMIZED = 2;
     SW_SHOWMINNOACTIVE = 7;
     SW_SHOWNA = 8;
     SW_SHOWNOACTIVATE = 4;
     SW_SHOWNORMAL = 1;
     WPF_RESTORETOMAXIMIZED = 2;
     WPF_SETMINPOSITION = 1;

implementation

procedure ParseKeyboard(Key: DWORD);
begin
     if FrmMain.tbDebug.TabVisible then
        FrmMain.memKey.Lines.Insert(0,chr(Key));

     case Barcode_Islem of
       0: begin
          Barcode_Start_i:= 1;
          if chr(Key) = startchr[1] then begin
             Barcode_Start_i:= 2;
             Barcode_Islem:= 1;
             Barcode_Data:= chr(Key);
             Barcode_Detect:= True;
          end;
       end;
       1: begin
          if (Barcode_Start_i <= Length(startchr)) then begin
             if chr(Key) = startchr[Barcode_Start_i] then begin
                 Barcode_Start_i:= Barcode_Start_i + 1;
                 Barcode_Data:= Barcode_Data + chr(Key);
                 Barcode_Islem:= 1;
             end else begin
                 Barcode_Detect:= False;
                 Barcode_Islem:= 0;
             end;
          end else begin
              Barcode_Data:= Barcode_Data + chr(Key);
              Barcode_Islem:= 2;
          end;
       end;
       2:begin
              if Key = 13 then begin//enter
                 Barcode_Detect:= False;
                 Barcode_Islem:= 0;
                 if FrmMain.tbDebug.TabVisible then
                    FrmMain.memKey.Lines.Insert(0,Barcode_Data);
                 FrmMain.SendData('MACHID:' + machid + 'BRCD:'+ Barcode_Data+ '@');
              end else begin
                  Barcode_Data:= Barcode_Data + chr(Key);
              end;
       end;
     end;
  ////
end;


procedure MemWrite(Data:String);
begin
  FrmMain.memData.Lines.Insert(0,Data);
end;

function TaskKeyHookLL(nCode: Integer;
  wp: PtrInt; lp:PtrInt): PtrInt; stdcall;
var
  pkh: KBDLLHOOKSTRUCT;
  key: WORD;
begin
  pkh:= PKBDLLHOOKSTRUC(lp)^;
  if nCode = HC_ACTION then
  begin
       if FrmMain.tbDebug.TabVisible then
          MemWrite(chr(pkh.vkCode)+':'+IntToStr(pkh.vkCode)+'-'+inttostr(pkh.scanCode)+'-'+inttostr(pkh.flags)+'-'+inttostr(pkh.time));
       if pkh.vkCode = 36 then
           ShowWindow(FrmMain.Handle,SW_NORMAL);

       if ((pkh.vkCode > 31)or(pkh.vkCode = 13)) then begin

          //Tuş Yakalama
          if  ChrKeyPress = 0 then
              ChrKeyPress:= pkh.vkCode
          else if  ((ChrKeyPress <> 0) and (ChrKeyUp = 0)) then
               ChrKeyUp:=pkh.vkCode;

          //Tuş Kontrol
          if  ((ChrKeyPress <> 0) and (ChrKeyUp <> 0)) then begin
            if   ChrKeyPress = ChrKeyUp then
                 ParseKeyboard(ChrKeyUp);
            ChrKeyPress:= 0;
            ChrKeyUp:= 0;
          end;

       end;
  end;
  Result:= CallNextHookEx(KBHook, nCode, wp, lp);
end;

function KeyboardHook(ADisable: Boolean): Boolean;
begin
  if ADisable then
  begin
    if KBHook = 0 then
      KBHook:= SetWindowsHookEx(WH_KEYBOARD_LL,
            @TaskKeyHookLL, HInstance, 0);
  end else
    if KBHook <> 0 then
    begin
      UnhookWindowsHookEx(KBHook);
         KBHook:= 0;
    end;
  Result:= KBHook <> 0;
end;

{ TFrmMain }

procedure TFrmMain.btnOpenClick(Sender: TObject);
begin
 if KeyboardHook(True) then
    LogYaz('System Hooked')
 else
     LogYaz('System Not Hooked');
end;


procedure TFrmMain.btnCloseClick(Sender: TObject);
begin
  KeyboardHook(False);
end;

procedure TFrmMain.btnMinClick(Sender: TObject);
begin
  //FrmMain.WindowState:= wsMinimized;
 ShowWindow(FrmMain.Handle,SW_HIDE);
end;

procedure TFrmMain.btnSaveIniClick(Sender: TObject);
begin
  WriteIniFile();
end;

procedure TFrmMain.btnWriteDefaultClick(Sender: TObject);
var
  MyFile: TIniFile;
begin
  MyFile := TIniFile.Create(inifile);
  try
    MyFile.WriteString('Program', 'IP','192.168.100.1');
    MyFile.WriteString('Program', 'PORT','509');
    MyFile.WriteString('Program', 'MACID','');
    MyFile.WriteString('Program', 'BARCODESTART','K1');
  finally
    MyFile.Free;
  end;
end;


procedure TFrmMain.FormCreate(Sender: TObject);
begin
 pageMain.ActivePage:= tbSettings;
 pageMain.Pages[1].TabVisible:= false;
 LoadIniFiles();
   if not KeyboardHook(True) then
     LogYaz('Err: System Not Hooked');
  Barcode_Islem := 0;
  Barcode_Data:= '';
  Barcode_Detect:= False;
  ChrKeyPress:= 0;
  ChrKeyUp:= 0;
end;

procedure TFrmMain.FormShow(Sender: TObject);
begin
     tmrHide.Enabled:= True;
end;

procedure TFrmMain.lblIp3DblClick(Sender: TObject);
begin
  pageMain.Pages[1].TabVisible:= not pageMain.Pages[1].TabVisible;
end;


procedure TFrmMain.tmrHideTimer(Sender: TObject);
begin
     ShowWindow(FrmMain.Handle,SW_HIDE);
     tmrHide.Enabled:= false;
end;


function TFrmMain.SendData(Data: String): Boolean;
var
 adr : TInetSockAddr;
 soc : Tsocket;
 buf : String[255];
 Sin,Sout : Text;
begin

 soc := fpsocket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
 if soc=-1 then begin
      LogYaz('Socket hatası');
      exit;
 end;

 adr.sin_family := AF_INET;
 adr.sin_port := htons(StrToInt(srvport));
 if srvip='' then
    adr.sin_addr := StrToNetAddr('127.0.0.1')
 else
     adr.sin_addr := StrToNetAddr(srvip);

 if not  Connect (soc,adr,Sin,Sout) then
 begin
   LogYaz('Bağlantı hatası : '+NetAddrToStr(adr.sin_addr));   //ip canlı değilse
   exit;
 end;

 buf := Data;

 fpsend(soc,@buf,length(buf)+1,0);//gönderim adımı

 fpshutdown(soc,0);                                 //bağlantıyı kapat
 CloseSocket(soc);
end;

function TFrmMain.LoadIniFiles(): Boolean;
var
  MyFile: TIniFile;
begin
  MyFile := TIniFile.Create(inifile);
  try
    srvip:= MyFile.ReadString('Program', 'IP','127.0.0.1');
    edtIp.Text:= srvip;
    srvport:= MyFile.ReadString('Program', 'PORT','509');
    edtPort.Text:= srvport;
    machid:= MyFile.ReadString('Program', 'MACID','');
    edtMacID.Text:= machid;
    startchr:= MyFile.ReadString('Program', 'BARCODESTART','K1');
    edtBarcodeStart.Text:= startchr;
  finally
    MyFile.Free;
  end;
end;

function TFrmMain.WriteIniFile(): Boolean;
var
  MyFile: TIniFile;
begin
  MyFile := TIniFile.Create(inifile);
  try
    MyFile.WriteString('Program', 'IP',edtIp.Text);
    MyFile.WriteString('Program', 'PORT',edtPort.Text);
    MyFile.WriteString('Program', 'MACID',edtMacID.Text);
    MyFile.WriteString('Program', 'BARCODESTART',edtBarcodeStart.Text);
  finally
    MyFile.Free;
  end;
end;

procedure TFrmMain.LogYaz(Data: String);
begin
  memError.Lines.Insert(0,Data);
end;



{$R *.lfm}

end.
                                                            

30 Temmuz 2012 Pazartesi

Lazarus WinCE Compiler Ayarları

Lazarusla WinCe işletim sistemi için hiçbir değişiklik yapmadan aşağıdaki gibi derleyici ayarlarını değiştirerek derlediğinizde uygulamanız hazır. Fakat uygulama boyutu 13 MB civarı. Wince uygulama geliştirmek için daha compact KOLCE komponenti bulunmakta isterseniz bunu da kullanabilirsiniz. 
Benim test ettiğim son uyumlu release aşağıda









28 Temmuz 2012 Cumartesi

Lazarus Üzerine


Programlamaya benim gibi pascal ile başlayıp daha sonra döneminin en kuvvetli idesi borland delphi ile ilgilendiyseniz Lazarusu çok seveceksiniz. Borland satıldıktan ve etkinliğini azalmaya başladıktan sonra çoğu yazılımcı    gibi bende java - .net ayrımında kaldım ve tercihimi .netten yana kullandım. Fakat Lazarusu görünce bu syntaxın daha uzun yıllar kullanılacağına emin oldum.

Şimdi Lazarus pascal sysntaxını kullanan neredeyse ide görünümü Delphi 7 ye benzeyen bir ide. Tam bilmemekle beraber şahsi fikrim; sanki bu organizasyon borlandın satılması ve gidişatı ile bu yola baş koymuş. Şöyle ki içerisinde bir delphi project convertor dahi var. Biraz baktığımda delphi dpk dosyalarının kullanıma dair örneklerde buldum. Peki lazarus sadece borland-delphi muadili bir idemi diye sorarsanız cevab hayır. Lazarus aynı anda bir cross platform geliştirme aracı; aynı anda birden fazla işletim sistemi ve micro işlemciye kod üretebiliyor. 

.netin Monosu veya compact frameworkü ile karşılaştırma yapmak gerekirse .net gibi ara kod üretmek yerine direk doğal kod üretiyor.Yani programınızın çalışması için bir kütüphaneye gerek duymuyorsunuz.  Bu yüzden .netin bir yerde derle her yerde çalıştır aksine lazarusun splah  screeninde yazan Write Once. Compile Anywhere (Bir kere yaz her yerde derle)  mantığına dayalı. Size her desteklediği platformlar için framework sunan Microsoftun aksine lazarus size compilerlar sunuyor.

http://wiki.freepascal.org/Main_Page/tr

10 Temmuz 2012 Salı

AMI Queue (Kuyruk İşlemleri)


Ami ile kuyruk işlemleri asterisk ile otomatik arayıcı veya ivr uygulamaları geliştirdiğimizde oldukça işimize yarayacak işlevler üstlenirler. Bir çağrı merkezinde genelde operatörlerin belirli gruplara üye olup günün belirli saatlerinde sisteme giriş, çıkış, mola gibi işlemleri yapması istenir. İşte bu anlarda biz daha önceki yazılarımızda bahsettiğimiz çağrı bağlama işlemlerini operatörlere değil kuyruklara yaparız. Böylece Asteriskin ACD (Automatic Call Distrubutor) akıllı çağrı dağıtım nimetlerinden faydalanabiliriz.

Kuyruğa Operatör Eklemek


public void AgentAddQueue(String Exten)
        {
            try
            {
                Asterisk.NET.Manager.Action.QueueAddAction action = new QueueAddAction();
                action.ActionId = "14";
                action.Queue = mQueue;
                action.Interface = "SIP/" + Exten;
                action.MemberName = Exten;
                action.Penalty = 0;
                action.Paused = true;

                Asterisk.NET.Manager.Response.ManagerResponse mr =
                    manager.SendAction(action);
            }
            catch
            {
                //err
            }
        }


Kuyruktan Operatörü Çıkarmak


public void AgentRemoveQueue(String Exten)
        {
            try
            {
                Asterisk.NET.Manager.Action.QueueRemoveAction action = new QueueRemoveAction();
                action.ActionId = "13";
                action.Queue = mQueue;
                action.Interface = "SIP/" + Exten;

                Asterisk.NET.Manager.Response.ManagerResponse mr =
                    manager.SendAction(action);
            }
            catch
            {
               //err
            }
        }


Operatörü Kuyrukta Bekletme


public bool AgentLock(String Queue, string Exten, bool Lock)
        {
            try
            {
                Asterisk.NET.Manager.Action.QueuePauseAction action = new QueuePauseAction();
                action.ActionId = "11";
                action.Queue = Queue;
                action.Interface = "SIP/" + Exten;
                action.Paused = Lock;

                Asterisk.NET.Manager.Response.ManagerResponse mr =
                   manager.SendAction(action);
                if (mr != null)
                    return true;
                else
                    return false;
            }
            catch
            {
                return false;
            }
        }



Operatörün Kuyruktaki Durumu



protected void AgentQueueStatus(string Exten)
        {
            try
            {
                Asterisk.NET.Manager.Action.QueueStatusAction action = new QueueStatusAction();
                action.ActionId = "12";
                action.Member = Exten;
                action.Queue = mQueue;

                Asterisk.NET.Manager.Response.ManagerResponse mr =
                    manager.SendAction(action);
            }
            finally
            {
            }
        }
gibi.....





24 Haziran 2012 Pazar

Asterisk Agent Arayıcı


Windows işletim sisteminde çalışan uygulama aranacak kaydı veri tabanından getirip Asterisk üzerinden arama gerçekleştiriyor. Yazılım taslak durumdadır.

https://docs.google.com/open?id=0B9hOQDVlCkb1WHdfWC1mcklzanc



Ami Diğer Olaylar



Ami Diğer  Bazı Olayların Kullanılması

manager = new ManagerConnection(Properties.Settings.Default.astserver, 5038, 
                    Properties.Settings.Default.astuser,Properties.Settings.Default.astpass);

                manager.OriginateResponse += new OriginateResponseEventHandler(manager_OriginateResponse);
                manager.Dial += new DialEventHandler(manager_Dial);
                manager.NewState += new NewStateEventHandler(manager_NewState);
                manager.Hangup += new HangupEventHandler(manager_Hangup);
                manager.NewCallerId += new NewCallerIdEventHandler(manager_NewCallerId);
                manager.Login();




Yeni Çağrı Başlama Olayı


void manager_NewCallerId(object sender, Asterisk.NET.Manager.Event.NewCallerIdEvent e)
        {
            try
            {
              if (e.CallerIdNum != null)
                  if ((e.CallerIdNum == txtPhone.Text) || (e.CallerIdNum == txtCountry.Text))
                  {
                      updateTelBagText("Aranıyor....", Color.Lime);
                      updateAgentCommentText("",Color.Red);
                      lblHangup.Text = "";
                  }
                       
            }
            catch
            {
                
                throw;
            }
        }


Çağrı Sonlanması

void manager_Hangup(object sender, Asterisk.NET.Manager.Event.HangupEvent e)
        {
            try
            {
                if (e.CallerIdNum != null)
                    if ((e.CallerIdNum == txtPhone.Text)||(e.CallerIdNum == txtCountry.Text))
                    {
                        updateTelBagText(" Görüşme Bitti.", Color.Red);

            
                        if (e.Cause == 16)
                        {
                            lblHangup.Text = "Normal Kapanma...";
                            lblHangup.BackColor = Color.LightBlue;
                        }
                        else if (e.Cause == 17)
                        {
                            lblHangup.Text = "Meşgul Verdi...";
                            lblHangup.BackColor = Color.Magenta;
                        }
                        else if (e.Cause == 19)
                        {
                            lblHangup.Text = "Cevap Yok...";
                            lblHangup.BackColor = Color.Fuchsia;
                        }
                        else if (e.Cause == 1)
                        {
                            lblHangup.Text = "Numara Yok...";
                            lblHangup.BackColor = Color.Fuchsia;

                        }
                        
                        updateAgentCommentText("Çağrı Sonlandı...",
                        Color.LightGreen);
                    }
            }
            catch
            {
                
            
            }
        }


Çağrı Durumu Olayı

void manager_NewState(object sender, Asterisk.NET.Manager.Event.NewStateEvent e)
        {
            bool callidok = false;
            bool agentidok = false;

            try
            {
                if (e.CallerId != null)
                    if (e.CallerId == cCallerID)
                        callidok = true;
                    else if (e.CallerId == Extension)
                        agentidok = true;


                if ((!callidok) && (e.CallerIdNum == cCallerID))
                    callidok = true;
                else if ((!agentidok) && (e.CallerIdNum == Extension))
                    agentidok = true;

                if (agentidok)
                {
                    if (e.ChannelState == "5")
                    {
                        updateAgentCommentText("Çağrıyı Kabul Edin...",
                        Color.Red);
                    }
                    else if (e.ChannelState == "6")
                    {
                        updateTelBagText("Açtınız...", Color.Lime); ;
                    }
                    else if (e.ChannelState == "7")
                    {
                        updateTelBagText("Meşgul verdiniz..",Color.Red);
                    }
                }

                if (callidok)
                {
                    if (e.ChannelState == "5")
                    {
                        updateTelBagText(cCallerID + " Çalıyor...",
                        Color.Yellow);
                    }
                    else if (e.ChannelState == "6")
                    {
                        updateAgentCommentText("Çağrı Bağlandı...",
                        Color.LimeGreen);
                        updateTelBagText(cCallerID + " Açıldı...",
                        Color.LimeGreen);
                    }
                    else if (e.ChannelState == "7")
                    {
                        updateAgentCommentText("",Color.Red);
                        updateTelBagText(cCallerID + " Meşgul...",
                        Color.Pink);
                    }
                }


            }
            catch
            {
               
            }  
        }

Bağlatı Durumu Olayı


void manager_OriginateResponse(object sender, Asterisk.NET.Manager.Event.OriginateResponseEvent e)
        {
            bool orgCall = false;
            string orgExten = "";

            try
            {
                if (e.Channel != null)
                {
                    string tmpch = e.Channel.Substring(e.Channel.IndexOf("SIP/") + 4, 3);
                    if (tmpch == Extension)
                    {
                        if (e.Response == "Failure")
                        {
                            updateTelBagText( orgExten + "Hata Bağlantı Yapılamadı...",Color.Red);       
                            cCallerID = "";
                        }
                        else if (e.Response == "Success")
                        {
                            if (e.Exten != null)
                            {
                                orgExten = e.Exten;
                                cCallerID = orgExten;
                            }
                            updateTelBagText(orgExten + " bağlanıyor...", Color.Orange);
                            updateAgentCommentText("Kabul Ettiniz...",
                            Color.Lime);
                        }

                    }
                }
            }
            catch
            {
                updateTelBagText("Originate Eroor...",Color.Red);
            }

        }