function VarType

[JoachimQ]

Zitat von hoika:

Hallo,
wenn WBFuncs deine Unit ist, zeig doch mal etwas Code.

Viell. fehlt nur das
uses
Variants

?

Danke für den Hinweis, jetzt gibt es ein paar Fehlermeldungen weniger.
Ich habe noch eine andere Frage zu folgendem Problem:

Ich habe folgenden Quellcode:

Code:

procedure WB_ShowPrintDialog(WB: TWebbrowser);
var
  OleCommandTarget: IOleCommandTarget;
  Command: TOleCmd;
  Success: HResult;
begin
  if WB_DocumentAssigned(WB) then
  begin
    WB.Document.QueryInterface(IOleCommandTarget, OleCommandTarget);
    Command.cmdID := OLECMDID_PRINT;
    if OleCommandTarget.QueryStatus(nil, 1, @Command, nil) <> S_OK then
    begin
      // ShowMessage('Nothing to print');
      Exit;
    end;
    if (Command.cmdf and OLECMDF_ENABLED) <> 0 then
    begin
      Success := OleCommandTarget.Exec(nil, OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER, EmptyParam, EmptyParam);
      case Success of
        S_OK: ;
        OLECMDERR_E_CANCELED: ShowMessage('Canceled by User');
      else ShowMessage('Error While Printing');
      end;
    end
    else
   // ShowMessage('Printing not possible');
  end;
end;

Jetzt erscheint folgende Fehlermeldung:

Code:

[dcc32 Fehler] WBFuncs.pas(492): E2033 Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen