Merhaba,
Daha önce de bir çok mesajımda belirttiğim gibi mobil platform, VCL uygulamalar gibi dayanıklı değil.
En ufak bir hatada kırılıyor.
FMX gelişim sürecinde Embarcadero'nun en taktir ettiği yönü; yüzlerce SDK sürümü ve On Binlerce cihaz çözünürlüğü ve hassasiyetlerine rağmen bu mimarinin doğru olduğunu ve geleceği olduğunu vermiş olduğu çok hızlı desteklerle ispatlamış olmasıdır.
FMX mesajlar değişen SDK'lar karşısında bir çok değişim geçirdi. Bazı mesaj servisleri kullanılmamaya ve bazı yeni mesaj sınıfları da bu ihtiyaçlar doğrultusunda kullanılmamaya başlandı.
Gelmiş olduğu son sancılı dönemleri de atlattığını ve çok stabil bir yapıya kavuştuğunu; sık gözlemleyen tüm özelliklerini bire bir her patformda test eden biri olarak, içtenlik ve samimiyetimle söyleyebilirim.
FMX mimarisi çok hızlı değişiyor çok hızlı gelişiyor.
Anlatmak istediğim (yine o an geliyor reklam
her lafı Kitaba bağlıyorum ya.) doğru ve güncel bir bilgi kaynağına ihtiyaç var.
Neyse lafı çok uzatmayayım.
Bu aralar çok zamanım olmadığından paylaşmış olduğunuz kodlara da geç göz gezdirmiş oldum.
InputBox fonksiyonunu aşağıdaki şekilde kullanırsanız, bir sorun olmayacaktır.
Uses kısmını aşağıdaki referansı ekleyin.
uses
FMX.DialogService;
Kod kısmı:
procedure Tdrawmaindemo1frm.SpeedButton1Click(Sender: TObject);
var
sfile: string;
fs: TFileStream;
begin
TDialogService.InputQuery('Dosya Kaydetme İşlemi', ['Dosya Adı'],
['Deneme.jpg'],
procedure(const AResult: TModalResult; const AValues: array of string)
begin
case AResult of
mrOK:
begin
if (AValues[0].Trim <> '') then
begin
sfile := System.IOUtils.TPath.Combine
(System.IOUtils.TPath.GetDocumentsPath(), AValues[0]);
fs := TFileStream.Create(sfile, fmCreate);
try
fdrawbox.SaveToJPEGStream(fs);
finally
fs.DisposeOf;
end;
end;
end;
end;
end);
end;