19-04-2023, Saat: 18:12
@yhackup
Sizin için bir deneme yaptım, uzantıyı MP3 yapınca hata veriyor WAV yapınca vermiyor.
Buradan şu çıkarımı yapıyorum, "dosya okuma sırasında sistem dosya format belirleme işlemini uzantıya göre yapıyor".
Hatta emin olmak için uzantıyı kendi filtresinden alsın diye test için aşağıdaki gibi kara düzen bir deneme yaptım.
Bir şeyi atlıyor olabilir misiniz ?
Sizin için bir deneme yaptım, uzantıyı MP3 yapınca hata veriyor WAV yapınca vermiyor.
Buradan şu çıkarımı yapıyorum, "dosya okuma sırasında sistem dosya format belirleme işlemini uzantıya göre yapıyor".
Hatta emin olmak için uzantıyı kendi filtresinden alsın diye test için aşağıdaki gibi kara düzen bir deneme yaptım.
Kod: (Select All)
LDosyaUz := Mikrofon.FilterString;
System.Delete(LDosyaUz, 1, Pos('|*', LDosyaUz)+1);
LDosyaAdi := ChangeFileExt('Gorusme', LDosyaUz);
function TForm1.GetArsHedef(): String;
var
LDosyaAdi: String;
LDosyaUz : String;
begin
// WAV Files(*.wav)|*.wav
LDosyaUz := Mikrofon.FilterString;
System.Delete(LDosyaUz, 1, Pos('|*', LDosyaUz)+1);
LDosyaAdi := ChangeFileExt('Gorusme', LDosyaUz);
{$IFDEF ANDROID} // Dahili Document klasörü
Result := TPath.Combine(TPath.GetSharedDocumentsPath, DosyaAdi);
{$ELSE}
{$IFDEF IOS}
Result := TPath.GetHomePath + '/Documents/' + DosyaAdi;
{$ELSE}
Result := TPath.Combine(TPath.GetTempPath, LDosyaAdi);
{$ENDIF}
{$ENDIF}
end;
Bir şeyi atlıyor olabilir misiniz ?
Saygılarımla
Muharrem ARMAN

Muharrem ARMAN


