Merhaba,
Video bilgilerini almak için OpenDialog.Create ediyorum butona tıkladığımda yaklaşık buton 3 saniye yok olup tekrar geliyor. Bu sorunu nasıl çözerim?
procedure TMainForm.BtnVideoAddClick(Sender: TObject);
begin
With TOpenDialog.Create(Nil) do
try
InitialDir := ExtractFilePath(Application.ExeName);
Filter := 'Video|*.avi;*.mp4;*.mkv;*.mpg';
FilterIndex := 1;
if Execute then
begin
ClipOpenSave := '';
EditVideoName.Text := TumuBuyuk(ChangeFileExt(ExtractFileName(FileName), ''));
ClipOpenSave := FileName;
EditVideoTotal.Text := VideoSuresi(FileName);
end;
finally
Free;
end;
end;
Merhaba
VideoSuresi,TumuBuyuk fonksiyonları olmadıgı için örneğinizi
if Execute then
blogunu iptal ederek test ettim. Soyledıgınız gibi bir şey olmadı. Sizde bir denermisiniz.
benzer bir sorunu 10.3.2 sürümü kullanırken yasamıstım. 10.3.3 ile derlediğimde düzelmişti.
Nedenini tam olarak tespit edemedim
with blogundan sonra BtnVideoAdd.Repaint belki işe yarayabılır
(29-01-2020, Saat: 16:47)serdar Adlı Kullanıcıdan Alıntı: [ -> ]Merhaba
VideoSuresi,TumuBuyuk fonksiyonları olmadıgı için örneğinizi if Execute then
blogunu iptal ederek test ettim. Soyledıgınız gibi bir şey olmadı. Sizde bir denermisiniz.
benzer bir sorunu 10.3.2 sürümü kullanırken yasamıstım. 10.3.3 ile derlediğimde düzelmişti.
Nedenini tam olarak tespit edemedim
with blogundan sonra BtnVideoAdd.Repaint belki işe yarayabılır
if Execute then ve
Repaint denedim olmadı. Bende 10.2 kullanıyorum sanırım sorun versiyondan olabilir
Sorun çok büyük olasılıkla sizin VideoSuresi isimli metodunuzda. Muhtemelen bahsettiğiniz beklemenin nedeni o. Öncelikle onu bir test edin, sonra üzerinde çözüm önerileri sunarız.
Adım adım giderek baksanız oluri intialdirdeki alan ağda bir klasör ise oda olabilir.
Kodun içini boşaltım değişen bir şey olmadı.
TOpenDialog.Create etmek yerine direk TOpenDialog bileşeni kullandım yine aynı buton 2 saniye yok olup tekrar geliyor.
var
Open: TOpenDialog;
FDQ: TFDQuery;
begin
Open := TOpenDialog.Create(Nil);
FDQ := TFDQuery.Create(Nil);
try
Open.InitialDir := ExtractFilePath(Application.ExeName);
Open.Filter := 'Video|*.avi;*.mp4;*.mkv;*.mpg';
Open.FilterIndex := 1;
if Open.Execute then
begin
end;
finally
Open.Free;
FDQ.Free;
end;
end;
@
Kerembacioglu Çalıştığınız dosyanın boyutu çok mu büyük. Eğer öyleyse küçük bir dosya ile de denermisiniz
Yeni boş projede buton kaybolmadı. Dosya boyutu 24 MB çok mu? sizce
Merhaba,
Buradaki işleri bir thread içerisine aldığınızda, sorun düzelir diye düşünüyorum.
Sorunu şimdilik Buttonvid.Enabled := False / True ile şimdilik maskeledim.
