procedure Thesaplarform.Button1Click(Sender: TObject);
const
 Chars = 'abcd';
var a: string ;
 S: string;
 i, N: integer;
 filename : string ;

begin
 Randomize;
 S := '';
 for i := 1 to 20  do begin
   N := Random(Length(Chars)) + 1;
   S := S + Chars[N];
 end;
 filename := S ;

If Not DirectoryExists(TPath.Combine(TPath.GetSharedPicturesPath ,'QR')) Then
begin
CreateDir(TPath.Combine(TPath.GetSharedPicturesPath  ,'QR'));
QRSS.Bitmap := QRSS2layout.MakeScreenshot;

QRSS.Bitmap.SaveToFile(TPath.Combine(TPath.GetSharedPicturesPath+PathDelim +'QR',''+filename+'.png'));
ShowMessage('Kaydedildi');

end else
begin
QRSS.Bitmap := QRSS2layout.MakeScreenshot;

QRSS.Bitmap.SaveToFile(TPath.Combine(TPath.GetSharedPicturesPath+PathDelim +'QR',''+filename+'.png'));
ShowMessage('Kaydedildi');
end;
end;

(18-01-2019, Saat: 19:55)okoca Adlı Kullanıcıdan Alıntı:

(18-01-2019, Saat: 19:21)Mr.Developer Adlı Kullanıcıdan Alıntı: iyi akşamlar,

Mobil uygulamam da QR oluşturma-okuma ve resim olarak kaydetme özellikleri vardı. delphi 10.2.3 community edition sürümünde derlenip yapılmıştı.
ve ben delphi 10.3'ün community edition sürümünü fark ettiğim de ona geçtim ve beraberinde güzellikle beraber ( uygulama erişim izinleri alma ) bazı kötü sonuçlarda getirdi.
yani düşüncem o yönde çünkü ;

QR kodu resim olarak kaydedebiliyorken 10.3 'de geçersiz yol hatası alıyorum.
sebebi nedir ve çözümü nedir ?

procedure Thesaplarform.Button1Click(Sender: TObject);
const
 Chars = 'abcd';
var a: string ;
 S: string;
 i, N: integer;
 filename : string ;

begin
 Randomize;
 S := '';
 for i := 1 to 20  do begin
   N := Random(Length(Chars)) + 1;
   S := S + Chars[N];
 end;
 filename := S ;

If Not DirectoryExists(TPath.Combine(TPath.GetSharedPicturesPath ,'QR')) Then
begin
CreateDir(TPath.Combine(TPath.GetSharedPicturesPath  ,'QR'));
QRSS.Bitmap := QRSS2layout.MakeScreenshot;

ShowMessage('dizin|'+TPath.Combine(TPath.GetSharedPicturesPath+PathDelim +'QR',''+filename+'.png')+'|');

QRSS.Bitmap.SaveToFile(TPath.Combine(TPath.GetSharedPicturesPath+PathDelim +'QR',''+filename+'.png'));

ShowMessage('Kaydedildi');

end else
begin
QRSS.Bitmap := QRSS2layout.MakeScreenshot;

ShowMessage('save|'+TPath.Combine(TPath.GetSharedPicturesPath+PathDelim +'QR',''+filename+'.png')+'|');

QRSS.Bitmap.SaveToFile(TPath.Combine(TPath.GetSharedPicturesPath+PathDelim +'QR',''+filename+'.png'));


ShowMessage('Kaydedildi');
end;
end;

kaydetmek istediğim de aldığım hata ise ;

"invalid characters in path"

şu 2 showmessage yi koyup çıktıyı paylaşırsan bu hatalı karakterlerin ne olduğunu anlarız.

  N := Random(Length(Chars)) + 1; --> random 0 gelirse ? +1 yapıyorsun 1. karakter a peki random 4 gelirse ? +1 yapıyorsun 5 karakter ? abcd?

ek olarak low high kullansan daha iyi olur platfroma göre string in 1 karakteri 0. konumda olabiliyor şundan ötürü;

Default
{$ZEROBASEDSTRINGS ON} for Delphi mobile compilers
{$ZEROBASEDSTRINGS OFF} for Delphi desktop compilers

(19-01-2019, Saat: 01:11)nguzeller Adlı Kullanıcıdan Alıntı: DoCopyBits benim de çok kafamı ağrıttı bir çözüm bulamadım, yeni güncellemeyi bekliyorum şuan
buraya abone olup takip edebilirsiniz
https://quality.embarcadero.com/browse/RSP-21828?jql=text%20~%20%22DoCopyBits%22

(19-01-2019, Saat: 19:16)nguzeller Adlı Kullanıcıdan Alıntı: Rio versiyonu hala Tokya ya yaklaşamadı, DoCopyBits olayını beta aşamasında bildirmiştim, hala bir gelişme yok aslında fotoyu yüklerkende bu hatayı verebiliyor ama fotoyu gösteriyor ama kayıt ederken işlem tamamlanmıyor, hiç resim kaydetmiyor değil ama benim kullandığım sistemde olmadı, bende şimdilik erteledim.

(20-01-2019, Saat: 18:19)nguzeller Adlı Kullanıcıdan Alıntı: yeni güncellemeleri https://cc.embarcadero.com/myreg buradan takip edebilirsin, DoCopyBits konusunda bir çalışma yok şuan.

(20-01-2019, Saat: 23:01)nguzeller Adlı Kullanıcıdan Alıntı: text metinde ne yapacağın yazıyor, en son yamada SDK işlemi nasıl yapacaksınız onu anlatıyor.