Delphi Forum

Hocam Cevap için teşekkürler.
EdgeOnly seçimi yaptığımda "raised exception class EBrowserEngineException with message 'Edge browser engine is unavailable'."
hatası alıyordum. WebView2Loader.dll dosyasını Exe yanına koyduktan sonra sorun düzeldi.

Merhaba

Daha önce buradaki konu üzerinden faydalandığım E-Fatura görüntüleme işlemini FMX tarafına uyarladım. Fakat bazı faturalarda QR kod olan JS kodlarından kaynaklı sanırım bu alanı ekranda göstermiyor.

Delphi Sürümü : Delphi 11.0 Version 28.0.42600.6491
İşletim Sistemi :Win11

WebBrowser1 ...

Merhaba,
Bu işlemi Veritabanında SP ile yapabilirsiniz aslında. Gelen input değerlerini kontrol ederek hangisi uygunsuz ise o alanla ilgili işlem yapmadan Output değerinden geri dönüş yaptırabilirsiniz.

Örnek SP aşağıdaki gibidir. (Firebird)


create or alter procedure KISI_KAYIT (
I_AD varchar ...

Merhaba,
Fmx tarafında kullanan oldu mu yada nasıl bir yol izliyorsunuz parasal işlerler için?

Konuyla ilgili kullandığım yöntem hazırladığım bir Function ile çözüm üretiyorum.
S/İ/U/D yapmadan önce Funtion içinde farklı bir ADOConnection nesnesi ile bağlantı kurmaya çalışıyorum bağlantı kuramazsam False değeri döner ise işleme devam etmiyor, kullanıcıya uyarı verdiriyorum. Bir sorun olduğunu ...

Ses için aklıma 5+1 ses sistemleri geldi. Ses kartı ayarlarında Ses sistemi seçildiğinde herbir hoparlörü test etme imkanı veriyordu bize. Hangi hoparlörü seçersek test için o hoparlörsen ses çıkarıyor. Buna benzer bir yapı inşa edilebilir.

Merhaba,
@freeman35 hocamın dediği gibi Tek server, Tek DB ile bu işi rahatlıkla halledebilirsin aslında ve 10 farklı pc yerine yine 1 Client pc ile USB 3.0 HUB.
Gereksinimler,
1- 1 Ad. Server
2- 1 Ad. yedek sunucu(Nas olabilir)
3- 1 Ad. Client Makine
4- USB 3.0 HUB(Yol Sayısı kadar port)
5- USB TO ...

zengin yazdı: 22 Mar 2021 01:49 s.a

ustacığım excel içinde F5+E6'; hesaplama işlemini

Kod: Tümünü seç

sayfa.cells[5 + satir, sutun + 5] :='=F'+inttoStr(x)+'+'+'E'+inttoStr(x+1);

bu şekilde işlem oldu cok teşekkür ederim

Ustacığım sen bu işi biliyorsun

Ustacığım kod bloğunu görmeden seni anlamamızı istemen bilemiyorum..

sayfa.cells[6, 6 ] :='=F 5 +E 6 ';
Eğer bu alanların gelen kayıtlar doğrultusunda artmasını istiyorsan;
Bir döngü ile kayıtları çekiyorsundur ve bir artan değerin vardır mutlaka(pratik olması açısından).

ozaman şöyle yapman ...

Merhaba,
Sorunuz pek açıklayıcı değil biraz daha detay iyi olur.
Yukarıdaki şekilde F5 ile E9 arasını toplamış olursunuz.

Procedure Ayikla(Kaynak:String; Const Ayrac:Char; Hedef:TListBox);
Var
i,a:integer;
Begin
a:=1;
for I := 1 to Length(Kaynak) do
if Kaynak[i]=Ayrac then
Begin
if a=1 Then Hedef.items.Add(Copy(Kaynak,a,i-1))
Else Hedef.Items.Add(Copy(Kaynak,a,i-a));
a:=i+1;
End;
Hedef.Items.Add(Copy(Kaynak ...

kısmını olarak değiştirip deneyebilir misiniz.

var
i:integer;
Begin
for i := frmMain.ComponentCount - 1 downto 0 do
begin
if (Components[i] is TButton) AND (TButton(Components[i]).Tag=10) Then
Begin
TButton( Components[i]).Caption :='BtnNamexx';
TButton( Components[i]).Color :=clGreen;
TButton( Components[i]).Free; // Silmek için ...

var
i:integer;
Begin
for i := 0 to ComponentCount-1 do
begin
if (Components[i] is TButton) AND (TButton(Components[i]).Tag=10) Then
Begin
TButton( Components[i]).Caption :='BtnNamexx';
TButton( Components[i]).Color :=clGreen;
TButton( Components[i]).Free; // Silmek için..
End;
end;
End;