我自定义一个事件处理函数:
procedure docreadystatechange; doc := coHTMLDocument.Create as IHTMLDocument2;
if doc=nil then begin showmessage('IHTMLDocument2 create error');exit;end;
doc.onreadystatechange := docreadystatechange;这里编译不通过
[Error] upload.pas(122): Incompatible types: 'OleVariant' and 'procedure, untyped pointer or untyped parameter'
procedure docreadystatechange; doc := coHTMLDocument.Create as IHTMLDocument2;
if doc=nil then begin showmessage('IHTMLDocument2 create error');exit;end;
doc.onreadystatechange := docreadystatechange;这里编译不通过
[Error] upload.pas(122): Incompatible types: 'OleVariant' and 'procedure, untyped pointer or untyped parameter'
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货