Архив форумов ЦИТФорума

[denizzz]

почему то не прет такой код:
uses SysUtils,Windows,tapi;

type PFAX_COVERPAGE_INFO=^FAX_COVERPAGE_INFO;
type PFAX_job_param=^FAX_job_param;
//типы FAX_COVERPAGE_INFO и FAX_job_param описал как надо. тут все ок.

function FaxConnectFaxServerA(name:pchar;var faxhandle:PHANDLE):BOOL;stdcall;external 'winfax.dll';
function FaxClose(faxhandle:THANDLE):BOOL;stdcall;external 'winfax.dll';
function FaxCompleteJobParamsA(var JobParams:pfax_job_param;var CoverPageInfo:PFAX_COVERPAGE_INFO):BOOL;stdcall;external 'winfax.dll';
function FaxSendDocumentA faxhandle:Thandle;filename:pchar;jobparams:pfax_job_param;co verpageinfo:pfax_coverpage_info;var jid:LPDWORD):BOOL;stdcall;external 'winfax.dll';
var hfax:PHANDLE;
jp:Pfax_job_param;
ci:Pfax_coverpage_info;
jid:LPDWORD;
begin

if not FaxConnectFaxServerA(nil,hfax)then begin writeln('Failed FaxConnectFaxServerA');
halt(2);
end;
FaxCompleteJobParamsA(jp,ci);
jp^.RecipientNumber:=pc har(paramstr(2));
if jp=nil then halt;
if FaxSendDocumentA(hfax^,pchar(paramstr(1)),jp,nil,jid)then writeln('OK')
else writeln('Shit!!');
writeln(getlasterror);
FaxClose(hfax^);
end.
вобщем FaxSendDocumentA выдает ошибку 6 - неправильный хандлер в чем тут дело?