dosya meşgul hatası
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Re: dosya meşgul hatası
evet otomatik olarak kayıt yapıyor. timer tarafından tetikleniyor timer 2100 ayarlı
Re: dosya meşgul hatası
Dosya yazma işlemi bitmeden ikinci dosya yazma işlemini tetikliyor olma ihtimaliniz çok yüksek. Dosya yazma kodunu aşağıdaki şekilde düzenleyip yeniden deneyebilir misiniz?
Kod: Tümünü seç
// implementation kısmının altına tanımlanacak form içinde kullanılabilir değişken
var
GlobalIslemYapiliyorDurumu: Boolean = False;
procedure TForm2.Button1Click(Sender: TObject);
var
bmp: TBitMap;
r: Trect;
begin
// işlem yapılıyor ise kilitlenmeye sebeo olmamak için çık
if GlobalIslemYapiliyorDurumu then Exit();
// üst üste işlem yapılmaması için değişkeni düzenle
GlobalIslemYapiliyorDurumu := True;
bmp := nil;
try
bmp := TBitMap.Create;
bmp.Width := 1000;
bmp.Height := 210;
bmp.PixelFormat := pf24bit;
if WaitForFileReady('C:\silim_setup\resim13.bmp', 1000) then
begin
r := Rect(0, 0, bmp.Width, bmp.Height);
bmp.Canvas.StretchDraw(r, Image1.Picture.Graphic);
bmp.SaveToFile('C:\silim_setup\resim13.bmp');
image2.Picture.LoadFromFile('C:\silim_setup\resim13.bmp');
end
else
begin
ShowMessage('Dosya okuma hatası !!!');
end;
finally
bmp.Free;
// işlem yapılmadığını belirtmek için değişkeni düzenle
GlobalIslemYapiliyorDurumu := False;
end;
end;