Problem with Winfax SDK / Delphi 4

[Jason Hankin]

Hello All!

Sorry to cross-post .. but, I'n getting desperate, and hoping that someone,
somewhere will have a clue!

I'm using Delphi 4 to access Winfax 9, using the SDK. Technically, it's all
mostly working fine - following hints, and samples on the newsgroups, I've
got some code which does seem to work. It works perfectly on two
development sets here, and largely well on 5 installations at a client's
offices - with one exception.

On some sets the GetMessageDate method is returning an emptry string for
every event in the log. When it works, it works perfectly, but currently it
is working on less machines than it is not working on. There's a code
sample below

I've not done much stuff with OLE objects, but I've done a little, and
followed similar patterns, and got 100% results.

Any clues, knowledge, experience sharing would be greatly appreciated.

Thanks in advance,

Jason Hankin

****************************************************************************
********
*** CODE SNIPPET BELOW
****************************************************************************
********

var
MessageDisplayName,
MessageTo,
MessageNumber,
MessageSubject,
MessageAttachmentCount,
MessageStatus,
MessageHold,
MessageCSID,
MessagePageCount,
MessageDate,
MessageDateShort,
MessageTime,
MessageTimeShort,
MessageCompany,
MessageKeywords,
MessageBillingCode,
MessageBaudRate,
MessageDeviceNameUsed,
MessageDuration,
MessageErrorCode,
MessageResolution,
MessageRetries,
MessageUsedECM:string;

LogObj: OleVariant;

VouchNo,
s,
StatusMsg,
UserCode,
msgID:string;

i,
nMsg:integer;
begin
lblStatus.caption:=formatdatetime('hh:nn:ss',now)+' - Exporting';
StatusMsg:='Complete';

logObj:=CreateOLEObject('WinFax.SDKLog');

try

msgID:= logObj.GetMessageListFirst(STANDARDFOLDER_WINFAX_SENDLOG,
'');

nMSG:=0;

while msgID<>'' do begin
// Read the Object Properties into VARs
nMSG:=nMsg+1;
lblMsg.caption:=inttostr(nMsg);

MessageDisplayName:=logObj.GetMessageDisplayName(msgID);
MessageTo:=logObj.GetMessageTo(msgID);
MessageNumber:=logObj.GetMessageNumber(msgID);
MessageSubject:=logObj.GetMessageSubject(msgID);

MessageAttachmentCount:=inttostr(logObj.GetMessageAttachmentCount(msgID));
MessageStatus:=inttostr(logObj.GetMessageStatus(msgID));
MessageHold:=inttostr(logObj.GetMessageHold(msgID));
MessageCSID:=logObj.GetMessageCSID(msgID);
MessagePageCount:=logObj.GetMessagePageCount(msgID);
MessageDate:=logObj.GetMessageDate(msgID);
MessageDateShort:=logObj.GetMessageDateShort(msgID);
MessageTime:=logObj.GetMessageTime(msgID);
MessageTimeShort:=logObj.GetMessageTimeShort(msgID);
MessageCompany:=logObj.GetMessageCompany(msgID);
MessageKeywords:=logObj.GetMessageKeywords(msgID);
MessageBillingCode:=logObj.GetMessageBillingCode(msgID);
MessageBaudRate:=logObj.GetMessageBaudRate(msgID);

MessageDeviceNameUsed:=logObj.GetMessageDeviceNameUsed(msgID);
MessageDuration:=logObj.GetMessageDuration(msgID);
MessageErrorCode:=logObj.GetMessageErrorCode(msgID);
MessageResolution:=logObj.GetMessageResolution(msgID);
MessageRetries:=logObj.GetMessageRetries(msgID);
MessageUsedECM:=logObj.GetMessageUsedECM(msgID);

[Jason Hankin]

I should have said that all the clients are W95 !! Sorry

Jason Hankin <jasonh@no_spam_please/lightwork-technology.com> wrote in
message news:947101905.20203.0...@news.demon.co.uk...