delphi7 ve faxcom (fxscom.dll)

[radiochaos]

Selam herkese,
Çalışma ortamı Delphi7. Daha önceden <import type library> deyip delphiye alıp çalıştırdığım bir TFaxServer objesi vardı. Sorunsuz da çalışıyordu. Faxcom 1.0, windowsun fax servisine bağlanıp fax gönderen bir tlb sağlıyor. Nedense windows sp2 yüklendikten sonra çalışmaz oldu. Bu type library'yi (ya da com object de diyebiliriz) sağlayan fxscom.dll in versiyonu da değişmiş. Delphi ile tekrar import yapılmasına rağmen, kodda da herhangi bir değişiklik olmamasına rağmen faxserver'a bağlandığını zannediyor ama fax gönderemiyorum. Herhangi bir hata kodu dönmüyor ama kod çalıştıktan sonra fax servisi "durduruluyor" konumuna geçiyor ve reboot a kadar düzelmiyor. Birkaç xp de aynı sonuç var. Benzeri bir tecrübe yaşayan oldumu?

[myrealite]

Merhaba,

Sizin yaptıklarınızı uyguladığımda sorunsuz Windows XP SP3 de çalıştı. Hatta kullanmak isteyen arkadaşlara da bilhassa tavsiye ederim. Zira fax araç olarak kullanılacaksa tüm yükü windowsa veriyorsunuz, fax client tarzında da çalışıyor. Olurda bu çözümü kullanmak isteyenler olursa da type library i ekledikten sonra çok uğraşmayasınız şu şekilde doğrudan uygulamaya geçebilirsiniz;

Procedure olarak aşağıda ihtiyaç sahiplerinin hizmetindedir;


Procedure SendThisFax(PhoneNumber: String;FilePath:String);
var fd: OleVariant;
fs: TFaxServer;
begin
try
begin
try
begin
fs := tfaxserver.Create(Application);
fs.Connect1('');
fd := fs.CreateDocument(FilePath);
fd.FaxNumber := PhoneNumber;
fd.Send;
end;

finally
fs.Disconnect;
end;
end;

except
end;

end;

[tugsat]

Merhaba,

Sizin yaptıklarınızı uyguladığımda sorunsuz Windows XP SP3 de çalıştı. Hatta kullanmak isteyen arkadaşlara da bilhassa tavsiye ederim. Zira fax araç olarak kullanılacaksa tüm yükü windowsa veriyorsunuz, fax client tarzında da çalışıyor. Olurda bu çözümü kullanmak isteyenler olursa da type library i ekledikten sonra çok uğraşmayasınız şu şekilde doğrudan uygulamaya geçebilirsiniz;

Procedure olarak aşağıda ihtiyaç sahiplerinin hizmetindedir;


Procedure SendThisFax(PhoneNumber: String;FilePath:String);
var fd: OleVariant;
fs: TFaxServer;
begin
try
begin
try
begin
fs := tfaxserver.Create(Application);
fs.Connect1('');
fd := fs.CreateDocument(FilePath);
fd.FaxNumber := PhoneNumber;
fd.Send;
end;

finally
fs.Disconnect;
end;
end;

except
end;

end;

Kod için teşekkürler @myrealite