Delphi Web Browser Yazdırma İşlemleri

procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.Navigate(‘https://ahmetaydinlik.com/‘);
end;

// Yazdır Dialog Penceresi Açmadan Yazdırma

procedure TForm1.Button2Click(Sender: TObject);
var
  vaIn, vaOut: OleVariant;
begin
  WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER,
    vaIn, vaOut);
end;

// Yazdırma Dialog Penceres Açarak Yazdırma

procedure TForm1.Button3Click(Sender: TObject);
var
  vaIn, vaOut: OleVariant;
begin
  WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER,
    vaIn, vaOut);
end;

// Önizleme

procedure TForm1.Button4Click(Sender: TObject);
var
  vaIn, vaOut: OleVariant;
begin
  WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINTPREVIEW,
    OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
end;

// Sayfa ayarları dialogu açarak

procedure TForm1.Button5Click(Sender: TObject);
var
  vaIn, vaOut: OleVariant;
begin
  WebBrowser1.ControlInterface.ExecWB(OLECMDID_PAGESETUP, OLECMDEXECOPT_PROMPTUSER,
    vaIn, vaOut);
end;

Oracle Bağlantı Ayarları

Oracle Bağlantısını yapmak için Oracle Client Uygulamasını versiyona göre indiriyoruz

benim Kullanacağım Client 11g için dir

win64_11gR2_client

Client Uygulaması İndirdikten sonra içersindeki setup çalıştırıp

administrator seçip kuruluma devam edin

Kurulum bittikten sonra

Net Configrasyon Asistanı Çalıştıştırıp aşağıdaki adımlara göre devam ediyoruz

Aşağıdaki alan da Servis Adımızı giriyoruz

Standart post kullanıyorsanız portu değiştirmenize gerek yok farklı bir port kullanıyorsanız alttaki seçeneği seçerek manuel port girişi yapabilirsiniz

bu alana geldikten sonra bağlantı testi yapmak istediğimiz soruyor

change login diyerek kullanıcı bilgilerimiz giriyoruz

testiniz başarılı olduktan sonra client uygulamamız kuruldu

Başlat menüsünden sistem ortam değişkenleri açarak

Ortam Değişkenlerine giriyoruz

ORACLE_HOME değişkenini ekliyoruz değer olarak client uygulamasının yolunu gösteriyoruz

tnsname.ora dosyamızı düzenledikten sonra bağlantı sağlayabiliyoruz