Adımlar :
https://github.com/integrated-applicatio...s-msvc.zip
https://github.com/integrated-applicatio...master.zip

- Yukarıdaki 2 dosyayı indirin ve dosyaların yerinin değişmeyeceği bir alana kaydedin.

   

- Delphi IDE'yi başlatın ve pasfmt-rad-master klasörü içindeki Pasfmt.dproj dosyasını açın. Pasfmt.bpl dosyasına sağ tıklayın ve Install seçin.

               

- IDE'nin araç çubuğundaki Tools sekmesinde görünür olacaktır.

   

- Settings alanından At specific path alanına Browse diyerek pasfmt-0.7.0-x86_64-pc-windows-msvc klasörü içinde yer alan pasfmt.exe yolunu belirtin. Format Hotkey alanından istediğiniz kısayolu belirtin.

   

- Yeni bir proje oluşturun. kod sayfasında atadığınız kısayollara basın. kodlar formatlanacaktır.

         

- Eğer projenize özel format ayarları belirlemek isterseniz proje klasörünüzün içinde pasfmt.toml dosyası oluştabilir ve not defteri ile açarak belirlenen parametreleri kendinize göre özelleştirebilirsiniz.

         

wrap_column = 200
begin_style = "always_wrap"
format_multiline_strings = true
encoding = "native"
use_tabs = false
tab_width = 2
continuation_indents = 2
line_ending = "native"

Selamlar

FDStoredProc1 ile SQL uzerinde Table-Type parametresi olan bir Procedure nasıl parametre gecilir.

unit Unit1;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Error,
 FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Stan.Async,
 FireDAC.Phys, FireDAC.Phys.MSSQL, FireDAC.Phys.MSSQLDef, FireDAC.VCLUI.Wait, FireDAC.Stan.Param,
 FireDAC.DatS, FireDAC.DApt.Intf, FireDAC.DApt,
 Data.DB, Vcl.StdCtrls, Vcl.Grids, Vcl.DBGrids, FireDAC.Comp.DataSet, FireDAC.Comp.Client;

type
 TForm1 = class(TForm)
   FDConn: TFDConnection;
   FDSP: TFDStoredProc;
   DSSP: TDataSource;
   DBGrid1: TDBGrid;
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 LTable: TFDMemTable;
begin
 LTable := TFDMemTable.Create(nil);
 try
   // TVP yapısını Delphi tarafında oluştur
   LTable.FieldDefs.Clear;
   LTable.FieldDefs.Add('SiraNo', ftInteger);
   LTable.CreateDataSet;
   LTable.Open;

   // Test verileri
   LTable.Append;
   LTable.FieldByName('SiraNo').AsInteger := 1;
   LTable.Post;

   LTable.Append;
   LTable.FieldByName('SiraNo').AsInteger := 2;
   LTable.Post;

   // Stored Procedure ayarı
   FDSP.Close;
   FDSP.Unprepare;
   FDSP.StoredProcName := 'dbo.UTP_Test;1';

   // Parametreleri otomatik türetmek yerine elle tanımla
   FDSP.FetchOptions.Items := FDSP.FetchOptions.Items - [fiMeta];
   FDSP.Params.Clear;

   with FDSP.Params.Add do
   begin
     Name := '@Liste';
     ParamType := ptInput;
     ArrayType := atTable;
     DataType := ftDataSet;
     DataTypeName := 'dbo.UDTT_Test';  // SQL Server TYPE adı
   end;

   FDSP.ParamByName('@Liste').AsDataSet := LTable;

   FDSP.Open;

 finally
   LTable.Free;
 end;
end;
end.

object Form1: TForm1
 Left = 0
 Top = 0
 Caption = 'Form1'
 ClientHeight = 563
 ClientWidth = 840
 Color = clBtnFace
 Font.Charset = DEFAULT_CHARSET
 Font.Color = clWindowText
 Font.Height = -12
 Font.Name = 'Segoe UI'
 Font.Style = []
 TextHeight = 15
 object DBGrid1: TDBGrid
   Left = 47
   Top = 88
   Width = 545
   Height = 153
   DataSource = DSSP
   TabOrder = 0
   TitleFont.Charset = DEFAULT_CHARSET
   TitleFont.Color = clWindowText
   TitleFont.Height = -12
   TitleFont.Name = 'Segoe UI'
   TitleFont.Style = []
 end
 object Button1: TButton
   Left = 120
   Top = 272
   Width = 105
   Height = 25
   Caption = 'Button1'
   TabOrder = 1
   OnClick = Button1Click
 end
 object FDConn: TFDConnection
   LoginPrompt = False
   Left = 192
   Top = 24
 end
 object FDSP: TFDStoredProc
   Connection = FDConn
   Left = 285
   Top = 25
 end
 object DSSP: TDataSource
   DataSet = FDSP
   Left = 381
   Top = 25
 end
end

Merhaba,

Delphi 13.1'in ilk belirgin hatasını deneyimlemiş bulundum.

Hata tekrarını teyit ;
- Delphi 13.1 IDE'yi açın.
- FMX projesi oluşturun.
- Kaydedin.
- Form üzerine örnek 1  tane bileşen ekleyin. (Button)
- Ctrl-c ile kopyalayıp form üzerine yapıştırın. İşlem sorunsuz gerçekleşecektir.
- IDE'yi tamamen kapatın.
- FMX projesinin proje dosyasına çift tıklayın ve IDE'yi o şekilde başlatın.
- Butonlardan birini Ctrl+c ile kopyalamaya çalışın. 

Eğer hata veriyor ise aynı durumdayız. Eğer hata vermiyor ise bendeki sorunu nasıl çözeriz? 

Selam Arkadaşlar. Projemi Delphi 12 den 13 e geçirdim.. Android de bir problem yok. Fakat IOS da ister Development ister APPStore olarak target yaptığımda aşağıdaki hatayı alıyorum:

[PAClient Error] Error: E0264 /Users/cio/PAServer/scratch-dir/Cio-mcu/BargoX.app/Info.plist: Property List error: Found non-key inside <dict> at line 1 / JSON error: JSON text did not start with array or object and option to allow fragments not set. around line 1, column 3.


Gemini Abi nin cevabı: 




Gemini şunu dedi:
Gönderdiğin dosya içeriği teknik olarak (XML yapısı bakımından) tamamen doğru görünüyor. Ancak aldığın "Found non-key inside

• Notepad++ kullanıyorsan: Üst menüden Encoding > UTF-8 (BOM'suz olan) seçeneğini seç ve kaydet.
  
• VS Code kullanıyorsan: Sağ altta "UTF-8" yazan yere tıkla, "Save with Encoding" seç ve sadece "UTF-8"i seç.
  

Herkese merhaba.

D 12.1 CE kullanıyorum. Getit Package Manager'den daha önce ComPort Driver kurmuştum. Ancak bu komponent'e güncelleme gelmiş. Bende güncelledim. Ancak daha önce düzgün çalışan komponent porttan aldığı verileri Çince alfabesi şeklinde göstermeye başladı. Aynı programı D7 ile çalıştırdığımda sorunsuz ve doğru şekilde veri geliyor. 

Sonrasında D12.1 CE'den bu komponenti kaldırdım. Github'dan bir önceki versiyonu indirip yükledim. Ancak install edemedim. Bunun üzerine yine Getit Package Manager'den doğru çalışmayan versiyonu kurmak istedim ama olmadı aşağıdaki hataları verdi.
  
Loading EULAS...
Installing Library "TComPortDrv"...
Downloading Library "TComPortDrv"...
Extracting Library "TComPortDrv" to "C:\Users\hasan\OneDrive\Belgeler\Embarcadero\Studio\23.0\CatalogRepository\TComPortDrv-12\". This could take a while...
Adding environment path "Source\" for all platforms and personality "Delphi.Personality"...
Entry already exists on platform "Win32".
Entry already exists on platform "Android64".
Entry already exists on platform "Android".
Compiling project "ComPortDrv.dproj"...
Compiling project "ComPortDrvD.dproj"...
Installing package "ComPortDrvD290.bpl"...
Cannot load package 'ComPortDrv290.'  It contains unit 'CPDrv', which is also contained in package 'ComPortDrv'
Error when executing an action of "TComPortDrv" catalog. The action is "InstallPackage" (ID 7).
A problem occurred during the process.

Şu an 2 problemim var. 
  1. Bu komponenti install edemiyorum.
  2. Çince yazılar neden geliyor ?

Yardımınız için teşekkür ederim.

Merhaba,
3 gün sonra tanıtılacak olan Delphi 13.1 için beklentileriniz neler?

Geliştirdiğiniz uygulamanın log kaydını almak için;
- C:\LOG isimli bir klasör oluşturun.
- Cihazı kablo ile PC ye bağlayın. "Ayarlar/Geliştirici seçenekleri/USB hata ayıklaması" nı aktif hale getirin.
- CMD yi açın.
- adb.exe nin çalıştığı dizine giriş yapın 
cd C:\Users\Public\Documents\Embarcadero\Studio\37.0\CatalogRepository\AndroidSDK-37.0.57242.3601\platform-tools
- Şu komutu çalıştırın.
adb logcat -c && adb logcat -v threadtime > C:\LOG\AppFullLog.txt
- Şimdi cihaz üzerinden uygulamanızı çalıştırın ve menülere giriş yaparak kullanın.
- uygulamayı kapatın.
- CMD alanına gelin ve Ctrl + C tuşlarına basarak log yazma işlemini sonlandırın.
C:\LOG dizini içerisinde AppFullLog.txt dosyasının oluştuğunu göreceksiniz.

Ne işe yarayacak:
- Bu işlem sonrası uygulamanın röntgenini çekmiş olacaksınız.
- Klavye, dokunma hissi, geçiş animasyonları, izin yönetimi ile performans sorunlarını görmenizi sağlar.
- AppFullLog.txt dosyasını YZ ya yükleyip değerlendirme yapmasını isteyin

Delphi FMX ile geliştirilen projenin yedeğini alma işlemi.
Projeyi derleme sonrası (Debug, Release) proje klasör boyutunu ölçtüğünüzde 800 mb üzerinde bir yer kapladığı bilinmektedir.
Sizde benim gibi hadrici hdd ye yedek alıyorsanız klasör boyutunu kısaltabilirsiniz. 
Bunun için resimde görülen işlemi Debug ve Release için ayrı ayrı yaparsanız, 800 mb nin 20 mb ye düştüğünü göreceksiniz. 
Bu şekilde yedeklemek, paketlemek daha kolay ve hızlı.
Projeyi yeniden derlediğinizde klasör boyutu önceki uzunluğunda olacaktır.
Proje üzerinde yaptığım köklü değişiklikler öncesi Project / Debug / Clean işlemini yapıyorum.

Ek Dosyalar

Ekran Görüntüleri
   

Selam arkadaşlar,

Form üzerinde 4 farklı image var, canvas aracılığı ile çizimler yapılıyor, bunları her biri ayrı sayfalara gelecek şekilde fastreport ta 4 ayrı sayfa da nasıl görüntületebilirim ?.