Progressbar yada Gauge kullanımı

[serbek_tr]

Bu konularla ilgili sorular var ancak bunlardan farklı olarak şunu sormak isterim bir olay için bu barların position veya progress değerini manuel 3-5 arttırmak yerine gerçek zamanlı ve tüm olaylarda kullanılabilecek örneğin richedit e dosya yüklerken

Kod: Tümünü seç

Richedit1.LoadFromFle('C:\x.txt')

, 10000 kayıtlık bir veri tabanında arama yapıp sonucu giride yansırken,

Kod: Tümünü seç

Table1.Filter:=.............
Table1.Filtered:=True;

, bir sayfayı print ederken vs durumlarında gerçek zamanlı bir gösterge nasıl yapılabilir hadi burdaki aramalar sonucu progresbar ile kopyalama arasında bir ilişki kurdum gerçek zamanlı zaten oda buffer alınma ve yazılması ile ilgili dosya boyutuna göre ilişkilendirilmiş.

Birde şöyle bir kopyalam yöntemi var ben genelde bunu kullanırım

Kod: Tümünü seç

CopyFile(pchar(aldosya),pchar(kopdosya),true)

işte sadece bu komut için bir bar uygulaması yapılabilirmi yada bunu gibi 20 tane dosya kopyalayacaksın örnegin bir klasörde boş veri tabnlarım var mesela yeni bir şirket açacağım o şirket klasörüne burdaki dosyaları aktarmak için bu yöntemi kullanırım 40 tane dosya için tahmini değerlerle toplam 100 e ulaşacak şekilde progress veya position özelliğini arttırıyorum. ama böyle değilde bahsettiğim gibi gerçek zamanlı birşey mümkünmü.
Saygılar , Selamlar Herkese[/code]

[mepc]

Bu konu forumda ayrıntılı olarak geçmişti. Aramayı kullanırsanız sanırım sonuca ulaşırsınız.

Kolay gelsin

[gkimirti]

arayınca cıkıyor
: progressbar copyfile
butun terimler icin ara
butona bas
gelen sonucları oku degerlendir.

[serbek_tr]

peki teşekkür ederim tekrar bir değerlendirme yapalım sağol,Saygılar

[serbek_tr]

Gkimirti hocam tavsiyen üzerine yine aradım ama yine aynı sonuç değiniz bilgilere ulaştım ama ben zaten onları görmüştüm yani farklı bir şeye ulaşamadım yine kopyalama ve progressbar üzerine bir tane konu var.

Ben anlatamıyor olabilirim kusura bakmayın konuşmak ve yazmak aynı şey değil

Neyse Teşekkür ederim biraz daha dolaşalım bakalım nette

[mepc]

Eğer eş zamanlı olarak kopyalanan dosyaları görmek istiyorsan windows apileri ile kopyalama yap.

gerekli kodlar aşağıda

Kod: Tümünü seç

Klasörleri Kopyalamak/Taşımak/Silmek 

uses shellapi 
... 
function copydir(von,zieldir: string): boolean; //kopyalama
var fos: TSHFileOpStruct; 
begin 
ZeroMemory(@fos, SizeOf(fos)); 
with fos do begin 
wFunc := FO_COPY; 
fFlags := FOF_FILESONLY; 
pFrom := PChar(von+#0); 
pTo := PChar(zieldir) 
end; 
Result:=(0=ShFileOperation(fos)); 
end; 

function movedir(von,zieldir: string): boolean; //taşıma
var fos: TSHFileOpStruct; 
begin 
ZeroMemory(@fos, SizeOf(fos)); 
with fos do begin 
wFunc := FO_MOVE; 
fFlags := FOF_FILESONLY; 
pFrom := PChar(von+#0); 
pTo := PChar(zieldir) 
end; 
Result:=(0=ShFileOperation(fos)); 
end; 

function deldir(dir: string): boolean; //silme
var fos: TSHFileOpStruct; 
begin 
 ZeroMemory(@fos, SizeOf(fos)); 
 with fos do begin 
  wFunc := FO_DELETE; 
  fFlags := FOF_SILENT or FOF_NOCONFIRMATION; 
  pFrom := PChar(dir+#0); 
 end; 
 Result:=(0=ShFileOperation(fos)); 
end; 

// Kullanimi:
procedure TForm1.Button1Click(Sender: TObject); 
begin 
{'D:\download' -> 'E:\'}
if copydir('d:\download','e:\') then 
begin 
  ShowMessage('Kopyalama basarili'); 
end; 

[serbek_tr]

teşekkür ederim

[mepc]

rica ederim