Delphi XE6'daki WSDL ile ilgili örnek uygulamayı XE'e taşıyıp deniyorum.
XE6 user ve password değişkenlerine xmlns=”” parametresi eklerken, XE eklemiyor. Ve bundan dolayı hata alıyorum.
WSDL ile giden pakete bu parametreyi nasıl ekleyebilirim ?
Fiyat belirtilmemis, muhtemelen güne duruma göre farkli fiyat uygulamasi var.
Inginctir guncelleme fiyatlari ile ilgili embarcaderonun da kendi online alisveris sayfasinda da bir fiyat yok.
Freelance program yaziyorum, elimdeki lisans 2 sene once alinmis 10.2 enterprise named user. Gecenlerde BT grubu ile konustuk yeni 10.3 e terfi icin sifirdan aliyormus gibi bedeli odememi istediler.
Bu yaklasimla kimsenin elindeki surumu guncellemesini beklemek bana göre mümkun degil. Diyeceksiniz ki zamaninda "bakim anlasmani yenileseydin". Iyi de karsiliginda ne alacagim belli degil ki. Nitekim 2 senedir elle tutulut bir sey cikarmadilar. Sonucta 10.2 ile 10.3 arasinda da iş yapma aliskanliklarimizi degistirecek bir fark da yok.
Yil 1985, Turbo pascal 7.0 dan beri bu urunu kullaniyorum. Kayitlarina bakarsaniz sadik musteriyim ama durum bir garip, bu strateji ile bu sadakati nasil surdurecegimi bilemiyorum... Belki kaçirdigimi görmedigim bir sey vardir onun icin sizler ne yapiyorsunuz ögrenmek istedim.MVP olup bedava almaya mi calisalim, Darknet'e mi girelim, ne yapalim...
EDM ile e-fatura gönderme işlemine uğraşıyorum. Firmanın Login olma prosedürünü deniyorum. Kendi örnekleri ile XE6'da ve sorunsuz login olabiliyorum ama aynı kodu XE'de çalıştırdığım zaman kullanıcı adı şifre boş hatası alıyorum. Gönderilen zarfları karşılaştırmak adına kullanabileceğim bir site - araç vs. var mıdır ?
Çok işime yarayan bir kod bloğumu sizlerle paylaşmak istedim.
Yapılmak istenilen şey: Yazıcı listesini Combobox'a alıp, seçilen yazıcıya FrX'imizi yazdırmak.
Adım 1: Combobox'a Printer listesini yüklemek (Uses'a Printers eklemeniz gerekiyor)
(20-02-2019, Saat: 21:34)Mr.Developer Adlı Kullanıcıdan Alıntı:
(20-02-2019, Saat: 20:59)hakanharbeli Adlı Kullanıcıdan Alıntı: ben den 10.3 kullanıyorum bir uygulamamın güncellemesini bu sürümle yapacağım bakalım sorun olursa buraya yazarım
Hadi hayırlısı diyelim o zaman
Evet şunu farkettim. Push notification için version info'daki package kısmını bile imzalamıyor token alamıyorum cihazlarda bu sebeple... yani berline tekrar dönmek durumundayım çok üzüldüm rio iyiydi bu sorunlar olamsa
- Windows'ta projenizin olduğu veya System Path içerisinde bir yere OpenSSL kütüphaneleri olan iki adet DLL dosyasını kopyalamak ile IdHttp ve TIdSSLIOHandlerSocketOpenSSL ikilisini sorunsuz kullanabiliyorduk. Bunu bir çoğumuz deneyimlemişizdir.
- Geçtiğimiz gün kurumda SSL erişimi için ANDROID projemde kullandığım HTTPS linklerine mobil platformdan erişirken lazım olduğunda kullandığım kütüphaneleri projemizde nasıl yapılandıracağımızı bir SSL erişim örneği ile özetleyeyim.
EKLEME: 64bit android platform için bu GitHub linkindeki kütüphaneleri kullanabilirsiniz.
Bu dosyayı bir klasöre açıyoruz içinde iki alt klasör göreceksiniz.
Bu alt klasörlerde ARM olanını açınca da
çıkan iki dosyayı projemiz ile deploy yani proje kurulumu yapılan mobil cihazın, projenize özel bir klasörüne koymasını sağlayacağız.
Bunun için PROJECT menüsünden alt kısımlar yakın olan DEPLOYMENT başlığını seçmeliyiz.
Burası çok önemli. Kırmızı ile daire içerisine aldığım Remote Path mutlaka .\assests\internal (yazım hatasını düzeltiyorum .\assets\internal ) şeklinde bize ait ulaşabileceğimiz bir klasör olsun ki aşağıda vereceğim örnekteki gibi TPath ile hazır erişim klasörlerinden erişebilelim.
Proje örneği... :idea:
Örnek Android projenizdeki forma bir TImageViewer yerleştirin ve aşağıdaki kodu yazın.
Buradaki kilit satır, SSL kütüphanenizin yerini bildiren şu satırdır.
IdOpenSSLSetLibPath(TPath.GetDocumentsPath);
Uses Idhttp, IdSSLOpenSSL, IdSSLOpenSSLHeaders, System.IOUtils;
// Project / Deployment altında ".\assets\internal\" klasörü altına SSL .so dosyaları eklenir.
// IdOpenSSLSetLibPath(TPath.GetDocumentsPath) şeklinde bu klasör SSL path erişimine alınır
procedure TForm1.Button1Click(Sender: TObject);
Const
CaptchaURL = 'https://optik.sgk.gov.tr/Optik_Firma_Web/CaptchaServlet';
var
IdHttp : TIdHttp;
IdSSLIOHandlerSocket : TIdSSLIOHandlerSocketOpenSSL;
MS : TMemoryStream;
CaptchaImage : TBitmap;
begin
IdHttp := TIdHttp.Create(nil);
CaptchaImage := TBitmap.Create; // Android'de PNG kabul ediyor...
IdSSLIOHandlerSocket := TIdSSLIOHandlerSocketOpenSSL.create(nil);
MS := TMemoryStream.Create;
try
IdOpenSSLSetLibPath(TPath.GetDocumentsPath);
IdSSLIOHandlerSocket.PassThrough := True;
IdSSLIOHandlerSocket.SSLOptions.Method := TIdSSLVersion.sslvTLSv1_2;
IdHttp.IOHandler := IdSSLIOHandlerSocket;
IdHttp.Request.UserAgent := 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/71.0.3578.98 Safari/537.36'; // 'Dalvik/2.1.0 (Linux; U; Android 8.0.0; SM-N950F Build/R16NW)';
IdHttp.Get( CaptchaURL, MS );
MS.Position := 0;
CaptchaImage.LoadFromStream( MS );
// Web'den Captcha Image geldi..
ImageViewer1.Bitmap := TBitmap.Create( Trunc(ImageViewer1.Width), Trunc(ImageViewer1.Height) );
ImageViewer1.Bitmap.Assign( CaptchaImage ); // Görelim...
finally
CaptchaImage.Free;
IdHttp.Free;
IdSSLIOHandlerSocket.Free;
MS.Free;
end;
end;
iyi günler cxgrid de tutar kolonunun toplamını almak istiyorum ama resimdeki hatayı veriyor.
yaptığın araştırmada string alan toplamaya çalıştığım için aldığım bilgisi var.
aşağıdaki kodda görüldüğü üzere tutar alanını real tanımladın grid de ilgili kolonda değer görünüyor
kendim toplam aldığımda alıyor ama footer toplamında hata veriyor.
Kod :
var
satirno : integer;
tutar:real;
//////////////////////////////////////
while not (sarf_toplam_sorgu.Eof) do
begin
sarf_top_view.datacontroller.AppendRecord;
satirno := sarf_top_view.datacontroller.RecordCount - 1;
sarf_top_view.datacontroller.values[satirno,0] := inttostr(satirno + 1);
sarf_top_view.datacontroller.values[satirno,1] := trim(sarf_toplam_sorgu.FieldByName('S_BAYI_ADI').AsString);
sarf_top_view.datacontroller.values[satirno,2] := trim(sarf_toplam_sorgu.FieldByName('SU_ACIKLAMA').AsString);
sarf_top_view.datacontroller.values[satirno,3] := sarf_toplam_sorgu.FieldByName('toplam').AsFloat;
sarf_top_view.datacontroller.values[satirno,4] := trim(sarf_toplam_sorgu.FieldByName('SU_BIRIM').AsString);
sarf_top_view.datacontroller.values[satirno,5] := sarf_toplam_sorgu.FieldByName('SU_FIYAT').AsFloat;
tutar:= sarf_top_view.datacontroller.values[satirno,3]*sarf_top_view.datacontroller.values[satirno,5];
sarf_top_view.datacontroller.values[satirno,6] := tutar;
edit_kdvsiz.AsFloat:=edit_kdvsiz.AsFloat+sarf_top_view.datacontroller.values[satirno,6];
sarf_toplam_sorgu.Next;
end;
Grid Customize ayarlarında field secili iken properties ayarlarında CurrencyEdit secili olması sorunu düzeltmedi.
Grid Customize ayarlarında field secili iken databindig ayarlarında string tanımlı burayı float veya CurrencyEdit seçilince sorun düzeldi.
Merhaba,
Kitap satın alan DelphiCan'lara örnek uygulamalar bölümüne giriş yetkisi verilmiştir.
Bu bölüme giriş yapamayan arkadaşlar öm ile durumu bildirmelerini rica ediyorum.
Fmx ile İmage slider kullanarak resimler ekletmeye çalıştım ama beklemediğim bir hatayla karşılaştım. Bir çok çözümler denedim resim klasörünü başka yerlere taşıdım yine de bir çözüme ulaşamadım.
Kodum şu şekilde
procedure Tfrm_anasayfa.AddBitmap(const FileName: string);
var
Bmp: TBitmap;
p: string;
begin
Bmp := TBitmap.Create;
try
{$IFDEF ANDROID}
p := TPath.Combine(System.IOUtils.TPath.GetDocumentsPath, FileName);
{$ELSE}
p := FileName;
{$ENDIF}
Bmp.LoadFromFile(p);
FMXImageSlider1.Add((FMXImageSlider1.PageCount + 1).ToString, Bmp);
finally
Bmp.Free;
end;
end;
resim dosya yolunu uzun halini de yazdım ama aynı hatayı alıyorum;