Sayfayı Yazdır | Pencereyi Kapat

TclWebBrowser entegre

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=1160
Tarih: 04 Ağustos 2025 Saat 19:51
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com


Konu: TclWebBrowser entegre
Mesajı Yazan: Aysu Sena Demirel
Konu: TclWebBrowser entegre
Mesaj Tarihi: 04 Ağustos 2025 Saat 13:36
var
aForm : TclStyleForm; 
javaNedirBtn,javaKullanimBtn,javaOzellikBtn,javaKurulumBtn,close1,close2,close3,close4 : TClProButton; 
test1,test2,test3,test4 : TclProPanel; 
lbl1,lbl2,lbl3,lbl4 : TClLabel; 
scroll1,scroll2,scroll3,scroll4 : TclVertScrollBox;
jImage : TClProImage;
jWeb: TclWebBrowser;
jWebBtn : TClProButton;


void ClosePanel1
  test1.Visible = False; 

void ClosePanel2
  test2.Visible = False; 

void ClosePanel3
  test3.Visible = False; 

void ClosePanel4
  test4.Visible = False; 

void JavaWebClick
{
  jWeb.Visible = False;
}

void OnClick1
  test1 = aForm.AddNewProPanel(aForm,'test1'); 
  test1.Align = alCenter;
  test1.Width = 400;
  test1.Height = 800;
  test1.Margins.Bottom = 120;
  test1.Margins.Top = 100;
  test1.clProSettings.RoundHeight = 10;
  test1.clProSettings.RoundWidth = 10;
  test1.clProSettings.BorderWidth = 2;
  test1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#1976d2');
  test1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');
  test1.SetclProSettings(test1.clProSettings);

  scroll1 = aForm.AddNewVertScrollBox(test1,'scroll1');
  scroll1.Align = alClient;
  scroll1.Margins.Left = 10;
  scroll1.Margins.Right = 10;
  scroll1.Margins.Top = 10;
  scroll1.Margins.Bottom = 70;

  lbl1= aForm.AddNewLabel(scroll1,'lbl1',
    'JAVA NEDIR?

TEMEL TANIM:
• 1995 yılında Sun Microsystems tarafından geliştirilmiş
• Şu anda Oracle tarafından sürdürülmektedir
• Nesne yönelimli programlama dili
• Platform bağımsız çalışır

DÜNYA ÇAPINDAKİ KULLANIM:
• 60 milyardan fazla Java Virtual Machine çalışmaktadır
• Milyonlarca geliştirici tarafından kullanılır
• Kurumlar için tercih edilen geliştirme platformu
• Dünyanın en popüler modern geliştirme platformu

TEMEL İLKELER:
• "Write Once, Run Anywhere" prensibi
• Yüksek güvenlik ve kararlılık
• Sürekli güncellenen teknoloji
• Güçlü topluluk desteği 

'
  ); 

  lbl1.Margins.Left= 15; 
  lbl1.Margins.Right= 15;  
  lbl1.Margins.Top= 15; 
  lbl1.Margins.Bottom= 15; 
  lbl1.align = alTop; 
  lbl1.AutoSize = true; 
  lbl1.WordWrap = True; 
  lbl1.StyledSettings = ssFamily; 
  lbl1.textSettings.Font.Size = 12; 
  
  close1 = aForm.AddNewProButton(test1, 'close1', 'Kapat'); 
  close1.Align = alBottom;
  close1.Width = 120;
  close1.Height = 50;
  close1.Margins.Bottom = 15;
  close1.Margins.Left = 25;
  close1.Margins.Right = 25;
  close1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1976d2');
  close1.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');
  close1.clProSettings.FontHorzAlign = palCenter;
  close1.clProSettings.FontVertAlign = palCenter;
  close1.clProSettings.TextSettings.Font.Style = [fsBold];
  close1.clProSettings.RoundHeight = 15;
  close1.clProSettings.RoundWidth = 15;
  close1.SetclProSettings(close1.clProSettings);

  aForm.AddNewEvent(close1, tbeOnClick, 'ClosePanel1'); 

void OnClick2
  test2 = aForm.AddNewProPanel(aForm,'test2'); 
  test2.Align = alCenter;
  test2.Width = 400;
  test2.Height = 800;
  test2.Margins.Bottom = 120;
  test2.Margins.Top = 100;
  test2.clProSettings.RoundHeight = 10;
  test2.clProSettings.RoundWidth = 10;
  test2.clProSettings.BorderWidth = 2;
  test2.clProSettings.BorderColor = clAlphaColor.clHexToColor('#1565c0');
  test2.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');
  test2.SetclProSettings(test2.clProSettings);

  scroll2 = aForm.AddNewVertScrollBox(test2,'scroll2');
  scroll2.Align = alClient;
  scroll2.Margins.Left = 10;
  scroll2.Margins.Right = 10;
  scroll2.Margins.Top = 10;
  scroll2.Margins.Bottom = 70;

  lbl2= aForm.AddNewLabel(scroll2, 'lbl2',
    'JAVA KULLANIM ALANLARI

Java farklı sektörlerde yaygın olarak kullanılmaktadır.

BAŞLICA UYGULAMA ALANLARI:
• Masaüstü Uygulamaları
  - Masaüstü ve sunucu uygulamaları
  - Zengin kullanıcı arayüzü uygulamaları
  
• Web Geliştirme
  - Kurumsal web uygulamaları
  - Backend servisler
  - API geliştirme
  
• Mobil Uygulamalar
  - Android uygulama geliştirme
  - Mobil oyun geliştirme
  
• Kurumsal Sistemler
  - Büyük ölçekli kurumsal çözümler
  - Bankacılık sistemleri
  - E-ticaret platformları
  
• Bulut Uygulamaları
  - Cloud-native aplikasyonlar
  - Mikroservis mimarileri
  - Oracle Cloud Infrastructure

SEKTÖRLER:
• Finansal hizmetler
• Telekomünikasyon
• E-ticaret
• Sağlık teknolojileri
• Eğitim sistemleri 

Kaynak: Oracle Java Resmi Sayfası
'); 

  lbl2.Margins.Left= 15; 
  lbl2.Margins.Right= 15;  
  lbl2.Margins.Top= 15; 
  lbl2.Margins.Bottom= 15; 
  lbl2.align = alTop; 
  lbl2.AutoSize = true; 
  lbl2.WordWrap = True; 
  lbl2.StyledSettings = ssFamily; 
  lbl2.textSettings.Font.Size = 12; 
  
  close2 = aForm.AddNewProButton(test2, 'close2', 'Kapat'); 
  close2.Align = alBottom;
  close2.Width = 120;
  close2.Height = 50;
  close2.Margins.Bottom = 15;
  close2.Margins.Left = 25;
  close2.Margins.Right = 25;
  close2.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1565c0');
  close2.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');
  close2.clProSettings.FontHorzAlign = palCenter;
  close2.clProSettings.FontVertAlign = palCenter;
  close2.clProSettings.TextSettings.Font.Style = [fsBold];
  close2.clProSettings.RoundHeight = 15;
  close2.clProSettings.RoundWidth = 15;
  close2.SetclProSettings(close2.clProSettings);

  aForm.AddNewEvent(close2, tbeOnClick, 'ClosePanel2');

void OnClick3
  test3 = aForm.AddNewProPanel(aForm,'test3'); 
  test3.Align = alCenter;
  test3.Width = 400;
  test3.Height = 800;
  test3.Margins.Bottom = 120;
  test3.Margins.Top = 100;
  test3.clProSettings.RoundHeight = 10;
  test3.clProSettings.RoundWidth = 10;
  test3.clProSettings.BorderWidth = 2;
  test3.clProSettings.BorderColor = clAlphaColor.clHexToColor('#42a5f5');
  test3.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');
  test3.SetclProSettings(test3.clProSettings);

  scroll3 = aForm.AddNewVertScrollBox(test3,'scroll3');
  scroll3.Align = alClient;
  scroll3.Margins.Left = 10;
  scroll3.Margins.Right = 10;
  scroll3.Margins.Top = 10;
  scroll3.Margins.Bottom = 70;

  lbl3=aForm.AddNewLabel(scroll3, 'lbl3',
    'JAVA ÖZELLİKLERİ VE AVANTAJLARI

Java nın sahip olduğu güçlü özellikler:

TEMEL ÖZELLİKLER:
• Platform Bağımsızlığı
  - Farklı işletim sistemlerinde sorunsuz çalışır
  - Java Virtual Machine (JVM) desteği
  - Taşınabilirlik
  
• Nesne Yönelimli Programlama
  - Modern programlama paradigmaları
  - Kod tekrarının azalması
  - Modüler yapı
  
• Güvenlik
  - Çok katmanlı güvenlik mimarisi
  - Güvenli çalışma ortamı
  - Bytecode doğrulama
  
• Performans
  - Yüksek performans
  - Oracle GraalVM ile gelişmiş optimizasyon
  - Hızlı başlatma ve az bellek kullanımı
  
• Zengin Kütüphane
  - Kapsamlı API desteği
  - Hazır kütüphaneler
  - Geniş framework desteği

AVANTAJLARI:
• Maliyet azaltma
• Geliştirme sürelerini kısaltma
• Yeniliği teşvik etme
• Uygulama servislerini geliştirme
• Sürekli güncellenen teknoloji

Kaynak: Oracle Java Resmi Sayfası
'); 

  lbl3.Margins.Left= 15; 
  lbl3.Margins.Right= 15;  
  lbl3.Margins.Top= 15; 
  lbl3.Margins.Bottom= 15; 
  lbl3.align = alTop; 
  lbl3.AutoSize = true; 
  lbl3.WordWrap = True; 
  lbl3.StyledSettings = ssFamily; 
  lbl3.textSettings.Font.Size = 12; 
 
  close3 = aForm.AddNewProButton(test3, 'close3', 'Kapat'); 
  close3.Align = alBottom;
  close3.Width = 120;
  close3.Height = 50;
  close3.Margins.Bottom = 15;
  close3.Margins.Left = 25;
  close3.Margins.Right = 25;
  close3.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#42a5f5');
  close3.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');
  close3.clProSettings.FontHorzAlign = palCenter;
  close3.clProSettings.FontVertAlign = palCenter;
  close3.clProSettings.TextSettings.Font.Style = [fsBold];
  close3.clProSettings.RoundHeight = 15;
  close3.clProSettings.RoundWidth = 15;
  close3.SetclProSettings(close3.clProSettings);

  aForm.AddNewEvent(close3, tbeOnClick, 'ClosePanel3'); 

void OnClick4
  test4 = aForm.AddNewProPanel(aForm,'test4'); 
  test4.Align = alCenter;
  test4.Width = 400;
  test4.Height = 800;
  test4.Margins.Bottom = 120;
  test4.Margins.Top = 100;
  test4.clProSettings.RoundHeight = 10;
  test4.clProSettings.RoundWidth = 10;
  test4.clProSettings.BorderWidth = 2;
  test4.clProSettings.BorderColor = clAlphaColor.clHexToColor('#0d47a1');
  test4.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');
  test4.SetclProSettings(test4.clProSettings);

  scroll4 = aForm.AddNewVertScrollBox(test4,'scroll4');
  scroll4.Align = alClient;
  scroll4.Margins.Left = 10;
  scroll4.Margins.Right = 10;
  scroll4.Margins.Top = 10;
  scroll4.Margins.Bottom = 70;

  lbl4= aForm.AddNewLabel(scroll4, 'lbl4',
    'JAVA KURULUM VE TEMEL KOD BİLGİSİ

Javayı kurma ve ilk adımlar:

KURULUM ADIMLARI:
• Java İndirme
  - Oracle.com/java adresinden JDK indirin
  - İşletim sisteminize uygun sürümü seçin
  - Oracle JDK veya OpenJDK seçenekleri
  
• Kurulum Süreci
  - İndirilen dosyayı çalıştırın
  - Kurulum sihirbazını takip edin
  - PATH değişkenini ayarlayın
  
• Doğrulama
  - Komut satırında: java -version
  - Komut satırında: javac -version
  - Versiyon bilgilerini kontrol edin

İLK JAVA PROGRAMI:
public class HelloWorld {
    public static void main(String[] args) {
        System.out.println("Hello, World!");
    }
}

PROGRAM ÇALIŞTIRMA:
• Kodu HelloWorld.java olarak kaydedin
• Komut satırında: javac HelloWorld.java
• Çalıştırma: java HelloWorld
• Sonuç: Hello, World!

GELİŞTİRME ORTAMLARI:
• IntelliJ IDEA (Oracle önerisi)
• Eclipse IDE
• NetBeans
• Visual Studio Code

ORACLE KAYNAKLARI:
• Oracle University eğitimleri
• Java sertifikasyon programları
• Ücretsiz öğrenim kaynakları
• Oracle Teknik Desteği (7/24)

Kaynak: Oracle Java Resmi Sayfası
'); 

  lbl4.Margins.Left= 15; 
  lbl4.Margins.Right= 15;  
  lbl4.Margins.Top= 15; 
  lbl4.Margins.Bottom= 15; 
  lbl4.align = alTop; 
  lbl4.AutoSize = true; 
  lbl4.WordWrap = True; 
  lbl4.StyledSettings = ssFamily; 
  lbl4.textSettings.Font.Size = 12; 
 
  close4 = aForm.AddNewProButton(test4, 'close4', 'Kapat'); 
  close4.Align = alBottom;
  close4.Width = 120;
  close4.Height = 50;
  close4.Margins.Bottom = 15;
  close4.Margins.Left = 25;
  close4.Margins.Right = 25;
  close4.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#0d47a1');
  close4.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');
  close4.clProSettings.FontHorzAlign = palCenter;
  close4.clProSettings.FontVertAlign = palCenter;
  close4.clProSettings.TextSettings.Font.Style = [fsBold];
  close4.clProSettings.RoundHeight = 15;
  close4.clProSettings.RoundWidth = 15;
  close4.SetclProSettings(close4.clProSettings);

  aForm.AddNewEvent(close4, tbeOnClick, 'ClosePanel4'); 

{
   aForm = TclStyleForm.Create(Self); 
   aForm.SetFormColor('#a0d3fa','', clGNone); 
   
   aForm.AddAssetFromUrl(' https://upload.wikimedia.org/wikipedia/tr/thumb/2/2e/Java_Logo.svg/280px-Java_Logo.svg.png" rel="nofollow - https://upload.wikimedia.org/wikipedia/tr/thumb/2/2e/Java_Logo.svg/280px-Java_Logo.svg.png ');
   
   jImage = aForm.AddNewProImage(aForm, 'csImage');
   jImage.Align = alTop;
   jImage.Width = 180;
   jImage.Height = 300;
   jImage.Margins.Top = 45;
   jImage.Margins.Bottom = 28;
   jImage.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#e3f2fd');
   jImage.clProSettings.RoundHeight = 18;
   jImage.clProSettings.RoundWidth = 18;
   jImage.clProSettings.BorderWidth = 2;
   jImage.clProSettings.BorderColor = clAlphaColor.clHexToColor('#1976d2');
   jImage.SetclProSettings(jImage.clProSettings);
   aForm.SetImage(jImage, ' https://upload.wikimedia.org/wikipedia/tr/thumb/2/2e/Java_Logo.svg/280px-Java_Logo.svg.png" rel="nofollow - https://upload.wikimedia.org/wikipedia/tr/thumb/2/2e/Java_Logo.svg/280px-Java_Logo.svg.png ');


   javaNedirBtn=aForm.AddNewProButton(aForm,'javaNedirBtn','Java Nedir?'); 
   javaNedirBtn.Align = alBottom;
   javaNedirBtn.Width = 120;
   javaNedirBtn.Height = 60;
   javaNedirBtn.Margins.Bottom = 25;
   javaNedirBtn.Margins.Left = 25;
   javaNedirBtn.Margins.Right = 25;
   javaNedirBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1976d2');
   javaNedirBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');
   javaNedirBtn.clProSettings.FontHorzAlign = palCenter;
   javaNedirBtn.clProSettings.FontVertAlign = palCenter;
   javaNedirBtn.clProSettings.TextSettings.Font.Style = [fsBold];
   javaNedirBtn.clProSettings.RoundHeight = 15;
   javaNedirBtn.clProSettings.RoundWidth = 15;
   javaNedirBtn.SetclProSettings(javaNedirBtn.clProSettings);

   javaKullanimBtn=aForm.AddNewProButton(aForm,'javaKullanimBtn', 'Java Kullanım Alanları'); 
   javaKullanimBtn.Align = alBottom;
   javaKullanimBtn.Width = 120;
   javaKullanimBtn.Height = 60;
   javaKullanimBtn.Margins.Bottom = 25;
   javaKullanimBtn.Margins.Left = 25;
   javaKullanimBtn.Margins.Right = 25;
   javaKullanimBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1565c0');
   javaKullanimBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');
   javaKullanimBtn.clProSettings.FontHorzAlign = palCenter;
   javaKullanimBtn.clProSettings.FontVertAlign = palCenter;
   javaKullanimBtn.clProSettings.TextSettings.Font.Style = [fsBold];
   javaKullanimBtn.clProSettings.RoundHeight = 15;
   javaKullanimBtn.clProSettings.RoundWidth = 15;
   javaKullanimBtn.SetclProSettings(javaKullanimBtn.clProSettings);

   javaOzellikBtn=aForm.AddNewProButton(aForm,'javaOzellikBtn', 'Java Özellikleri'); 
   javaOzellikBtn.Align = alBottom;
   javaOzellikBtn.Width = 120;
   javaOzellikBtn.Height = 60;
   javaOzellikBtn.Margins.Bottom = 25;
   javaOzellikBtn.Margins.Left = 25;
   javaOzellikBtn.Margins.Right = 25;
   javaOzellikBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#42a5f5');
   javaOzellikBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');
   javaOzellikBtn.clProSettings.FontHorzAlign = palCenter;
   javaOzellikBtn.clProSettings.FontVertAlign = palCenter;
   javaOzellikBtn.clProSettings.TextSettings.Font.Style = [fsBold];
   javaOzellikBtn.clProSettings.RoundHeight = 15;
   javaOzellikBtn.clProSettings.RoundWidth = 15;
   javaOzellikBtn.SetclProSettings(javaOzellikBtn.clProSettings);

   javaKurulumBtn=aForm.AddNewProButton(aForm,'javaKurulumBtn', 'Java Kurulum ve Örnek Kod'); 
   javaKurulumBtn.Align = alBottom;
   javaKurulumBtn.Width = 120;
   javaKurulumBtn.Height = 60;
   javaKurulumBtn.Margins.Bottom = 25;
   javaKurulumBtn.Margins.Left = 25;
   javaKurulumBtn.Margins.Right = 25;
   javaKurulumBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#0d47a1');
   javaKurulumBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');
   javaKurulumBtn.clProSettings.FontHorzAlign = palCenter;
   javaKurulumBtn.clProSettings.FontVertAlign = palCenter;
   javaKurulumBtn.clProSettings.TextSettings.Font.Style = [fsBold];
   javaKurulumBtn.clProSettings.RoundHeight = 15;
   javaKurulumBtn.clProSettings.RoundWidth = 15;
   javaKurulumBtn.SetclProSettings(javaKurulumBtn.clProSettings);
   
   jWeb = aForm.AddNewWebBrowser(aForm, 'jWeb');
   jWeb.Align = alClient;
   jWeb.Navigate(' https://www.w3schools.com/java/default.asp" rel="nofollow - https://www.w3schools.com/java/default.asp ');
   

   jWebBtn = aForm.AddNewProButton(aForm, 'jWebBtn', 'Daha Detaylı Öğrenmek İçin!');
   jWebBtn.Align = alBottom;
   jWebBtn.Width = 120;
   jWebBtn.Height = 60;
   jWebBtn.Margins.Bottom = 25;
   jWebBtn.Margins.Left = 25;
   jWebBtn.Margins.Right = 25;
   jWebBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1e88e5');
   jWebBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');
   jWebBtn.clProSettings.FontHorzAlign = palCenter;
   jWebBtn.clProSettings.FontVertAlign = palCenter;
   jWebBtn.clProSettings.TextSettings.Font.Style = [fsBold];
   jWebBtn.clProSettings.RoundHeight = 15;
   jWebBtn.clProSettings.RoundWidth = 15;
   jWebBtn.SetclProSettings(jWebBtn.clProSettings);


   
   
   aForm.AddNewEvent(javaNedirBtn,tbeOnClick,'OnClick1'); 
   aForm.AddNewEvent(javaKullanimBtn,tbeOnClick,'OnClick2'); 
   aForm.AddNewEvent(javaOzellikBtn,tbeOnClick,'OnClick3'); 
   aForm.AddNewEvent(javaKurulumBtn,tbeOnClick,'OnClick4'); 
   aForm.AddNewEvent(jWebBtn, tbeOnClick, 'JavaWebClick');

   aForm.Run; 
}  butona tıkladığımda istediğim web sayfası açılmıyor sorun nedir yardımcı olur musunuz?



Cevaplar:
Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 04 Ağustos 2025 Saat 16:16
Merhaba Aysu Sena, 
Aslında çalışıyor ama diğer bileşenlerin arkasında kaldığı için gözükmüyor. 
Diğer kodları yorum satırına alıp çalıştırdığım da herhangi bir hata almadım


Mesajı Yazan: kübra
Mesaj Tarihi: 04 Ağustos 2025 Saat 16:42
Merhaba, dış tarayıcıda açmayı denedin mi? Bazı siteler uygulama içine gömmeye izin vermiyor.
void JavaWebClick
{
  // jWeb.Visible = False; -> bu kısmı sil burda gizliyosun hata bundan da kaynaklanabilir
  clOpenUrl(' https://www.w3schools.com/java/default.asp" rel="nofollow - https://www.w3schools.com/java/default.asp '); 
}
bu dış tarayıcıya yönlendiriyor. Deneyebilir misin?




-------------
kkk



Sayfayı Yazdır | Pencereyi Kapat

Forum Software by Web Wiz Forums® version 12.07 - https://www.webwizforums.com
Copyright ©2001-2024 Web Wiz Ltd. - https://www.webwiz.net