e-Posta gönderirken Dosya kullanılıyor hatası..

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
vkamadan
Kıdemli Üye
Mesajlar: 1935
Kayıt: 17 Mar 2004 03:52
Konum: Adapazarı
İletişim:

e-Posta gönderirken Dosya kullanılıyor hatası..

Mesaj gönderen vkamadan »

Merhaba ,
Seçilen dosyayı sıkıştırıp mail atan şu kod bloğunda ,sıkışmış dosyanın adını vererek dosya kullanımda mesajı alıyorum.
Abbrevia ve indy bileşen setini kullanıyorum

Kod: Tümünü seç

        AbZipper1.FileName:=ExtractFilePath(Application.ExeName)+'OtherObjects.zip';
             AbZipper1.AddFiles(OpenDialog1.FileName,0);
             AbZipper1.ClearTags;
             if SendEMail(ExtractFilePath(Application.ExeName)+'OtherObjects.zip') then Application.MessageBox('İleti başarıyla gönderildi.','TAMAM',mb_ok+MB_ICONINFORMATION);     
İyi çalışmalar.
Volkan KAMADAN
www.polisoft.com.tr
Kullanıcı avatarı
mege
Admin
Mesajlar: 2360
Kayıt: 05 Şub 2004 04:32
Konum: Beşiktaş
İletişim:

Mesaj gönderen mege »

Kod: Tümünü seç

zipper.AddFiles(..
zipper.Save;
Sleep(5~10); // dosya boyutu çok büyükse bunu biraz uzat, temp folderdan taşıma süresi,
sendmail..
bu şekilde deneyebilrimisin, kolay gelsin
.-.-.-.-.-.-.-. ^_^
mkysoft
Kıdemli Üye
Mesajlar: 3110
Kayıt: 26 Ağu 2003 12:35
Konum: Berlin
İletişim:

Mesaj gönderen mkysoft »

Birde bu sıkıştırma işlemi için thread açıyor sanırım. Çünkü save komutundan sonraki işleme hemen geçiyor ama dosya oluşmuyor. Hele dosya büyükse bariz şekilde belli oluyor.
Kullanıcı avatarı
vkamadan
Kıdemli Üye
Mesajlar: 1935
Kayıt: 17 Mar 2004 03:52
Konum: Adapazarı
İletişim:

Mesaj gönderen vkamadan »

Merhaba ,
çok küçük bir dosya 2kb kadar, sleep(5000) denememe rağmen halen aynı sorunla karşı karşıyayım, acaba Abbrevia nın işlemin koplmle tamamlanmasında tetiklenen bir olay metodu yokmudur?
İyi çalışmalar.
Volkan KAMADAN
www.polisoft.com.tr
Kullanıcı avatarı
vkamadan
Kıdemli Üye
Mesajlar: 1935
Kayıt: 17 Mar 2004 03:52
Konum: Adapazarı
İletişim:

Mesaj gönderen vkamadan »

Merhaba ,
Sorunu Abbrevia yı Runtime da oluşturup yokederek giderdim.
iyi çalışamalar.
Volkan KAMADAN
www.polisoft.com.tr
Kullanıcı avatarı
sabanakman
Kıdemli Üye
Mesajlar: 3081
Kayıt: 17 Nis 2006 08:11
Konum: Ah bi Antalya olaydı keşke (Ankara)

Geç kaldııııım

Mesaj gönderen sabanakman »

"Zip.Save;" metodundan sonra "Zip.CloseArchive;" metodunu kullanırsan dosyayı kullanımdan kurtarıyor ve istediğin gibi dosya silme taşıma isim değiştirme vs. işlemlerini yapabiliyorsun. :)
Şaban Şahin AKMAN
_________________
Derin olan kuyu değil kısa olan iptir. - .
Kullanıcı avatarı
vkamadan
Kıdemli Üye
Mesajlar: 1935
Kayıt: 17 Mar 2004 03:52
Konum: Adapazarı
İletişim:

Mesaj gönderen vkamadan »

Teşekkürler, iyi çalışmalar.
Volkan KAMADAN
www.polisoft.com.tr
Cevapla