I had a previous problem with OnFaxStatus not firing unless I did a FaxMan.AutoDetect each time I opened the program. I also have set up OnConfigurationDone event so I would know when the AutoDetect was completed. Only problem is that even though I am running FaxMan.AutoDetect, it does not always do a OnConfigurationDone event. If it does not do the OnConfigurationDone event the OnFaxStatus does not work either.
The modem I am using(LSI USB 2.0 Soft modem) seems to run fine with the VB6 demo program you have supplied. It detects it just fine.
Any ideas? I am almost giving up on FaxMan. I have to be able to monitor the status. One good thing is that it does do the faxing, just no status updating. Is there another way to monitor the status without the OnFaxStatus event?
Can you send me your code so I can have a look at what you are doing ?
As I mentioned, the faxing always works reliably. It is the status event that does not seem to work. At first doing the AutoDetect every time i started the program made the status message work. Now almost never works.
procedure TMainForm.AutoDetectSpeedButtonClick(Sender: TObject);
This event happens(?) when the AutoDetect is completed. Almost never happens.
procedure TMainForm.FaxManConfigurationDone(Sender: TObject);
ShowMessage('AutoDetect completed. ') ;
Get status messages
procedure TMainForm.FaxManFaxStatus(ASender: TObject; var Device,
var faxstatusdescription : string ;
// read memo to get description
// list of status descriptions load into the memo when the prog starts
faxstatusdescription := FaxStatusEventsMemo.Lines[Status] ;
if Status = 14 then // sending
faxstatusdescription := faxstatusdescription +
'Completed - ' +
IntToStr(FaxMan.StatusPercentage[Device]) + '%';
// add linesto bottom
FaxStatusMemo.Lines.Add('Device = '
+ '. Status: ' + faxstatusdescription ) ; //IntToStr(status)) ;
We're rounding up a copy of Delphi 7 to test with. The ActiveX code is pretty stable when used in VB so perhaps there is some issue with Dlephi but hopefully we will have more info shortly.
Thank you for your participation. If you do not find a copy of Delphi 7 I could loan you one of mine. I have 2 licenses and am only using one of them.
We are actually an Embarcadero Partner and are downloading the giant ISO for Delphi 7 now. We just had older builds on CD for some reason.
Thanks for the offer though, I'll let you know what we find out.
What happens if you modify your code to:
procedure TForm1.FaxMan1ConfigurationDone(Sender: TObject);
OutputDebugString('Configuration Done Event Fired');
Using the OutputDebugString instead of the ShowMessage call.
Let me know if that changes the behavior you are seeing ?
I've put together a simple app using the FaxMan ActiveX in delphi 7, You can download it from: http://www.data-tech.com/beta/faxdelphi.zip.
Its got a button to AutoDetect and a simple option to send a faxfile to a given fax number. The Status and ConfigurationDeone events log their data to a Memo control and in my testing it seems to work just fine.
Can you please try it on your configuration and lets see if it works for you as well.
I'll give it a try. If it doesn'r work for me maybe it is related to my fax modem. I will report back.
Great, Let me know what happens.
I believe I have figured out this problem. Even though I have marked the FaxMan grid as visible, I have the FaxMan grid on a tabbed page that is not being displayed. It appears the FaxMan grid must not only be visible, it must be on the tabbed page that is active. Once I do this it all seems to work. I have a custom grid to display the status so I did not want to display the FaxMan grid on the active tabbed page.
This question is closed to new answers.