unit Main;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, NetOpenX50_TLB, Vcl.StdCtrls;

type
 TForm1 = class(TForm)
 Button1: TButton;
 Memo1: TMemo;
 procedure Button1Click(Sender: TObject);
 private
 { Private declarations }
 Kernel : IKernel;
 Sirket : ISirket;
 Stok : IStok;
 StokEk : IStokEkBilgi;
 StokTemel : IStokTemelBilgi;
 public
 { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 RC: Boolean;
begin
 Kernel := CoKernel.Create;
 try
 try
 Sirket := Kernel.yeniSirket(vtMSSQL, Pchar('ENPAY'), Pchar('TEMELSET'), PChar(''), PChar('?kullanıcı'), PChar('?şifre'), 0);
 except on E:Exception do begin
 showmessage(e.Message);
 exit;
 end;
 end;

 Stok := Kernel.yeniStok(Sirket);
 StokEk := Stok.EkBilgi;
 StokTemel := Stok.TemelBilgi;

 try
 Rc := Stok.kayitOku(otAc,'');
 if RC then
 Rc := Stok.kayitOku(otIlk,'');
 except on E:Exception do begin
 Rc := False;
 showmessage(e.message);
 end;
 end;

 while Rc do begin
 Memo1.Lines.Add(StokTemel.STOK_KODU+' - '+stokTemel.Stok_Adi);
 RC := Stok.kayitOku(otSonraki,'');
 end;
 finally
 Stok := Nil;
 StokEk := Nil;
 StokTemel := Nil;
 Kernel.FreeNetsisLibrary;
 Kernel := nil;

 showmessage('Stok okuma bitti.');
 end;
end;

end.