Forum: Netzwerke
Delphi
by shmia,
5. Aug 2005
Ups, hatte ich vergessen.
VariantIsObject ist eine kleine, nützliche Hilfsfunktion, die prüft, ob in einem OleVariant ein Dispatch-Interface steckt.
function VariantIsObject(const value:OleVariant):boolean;
begin
result := (VarType(value) = varDispatch);
end;
Forum: Netzwerke
Delphi
by shmia,
4. Aug 2005
Folgender Code benötigt noch ein Treeview auf dem Formular:
procedure TFrmHTMLUpload.FillTreeView(WebBrowser: TWebBrowser);
var
i,j, k :Integer;
FormItem, Element, SubElement: OleVariant;
root : TTreeNodes;
child, child2, child3 : TTreeNode;
s_type : string;
begin