---

Hallo, wir versuchen mit Delphi auf Inventor zu zugreifen und suchen Informationen über die Methode PropertySet.add(...). Bei uns tritt der Fehler "Falscher Parameter" auf. In der API von Inventor lässt sich nichts dazu finden.
Hat überhaupt schon jemand im Forum Erfahrungen mit Inventorprogrammierung und Delphi? Wir würden uns über jegliche Tipps oder Hilfe freuen.

gruß Melanie

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

HAllo Melanie.

Genau Diese Frage hatte ichj vor ungefähr 1 JAhr gestellt. Einhellige Antwort von den IV/VB-Gurus: Viel Spaß beim erstellen des API-Interface. Im IV ist alles auf VB / VBA abgestellt und für Delphi nix vorhanden.

Bis heute hat sich da IMHO nis geändert. Zumindest habe ich mir inzwischen VB angeschafft und fange jetzt an meine 4.-5. Programmiersprache zu lernen.

lg MAthias

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi, danke für die Antwort. Bei mir ist es inzwischen die 8. Programmiersprache. Aber das nützt ja nichts.

gruß Melanie

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Melanie!
hast du mal hier geschaut? www.autodesk.com/developinventor

------------------
Grüsse
Jürgen
häufige Fragen zu Inventor
Inventor Wunschliste
Dressler GmbH Computer-Technologie, Friedrichshafen

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Bei mir ist es inzwischen die 8. Programmiersprache.

---

PropertySet.add braucht 3 Parameter.

Zitat:

---

Add(

PropValue As Variant,

Name As Variant,

PropId As Variant) As Property

PropValue Input Variant that specifies the value of the Property to add to the set.

Name Input Variant that specifies the name of the Property. If this name is prefixed with an "_" character, then this property is created as a hidden property and can only be accessed if indexed by its name or propID. PropertySet.Count will not account for such hidden properties.

PropId Input Variant that specifies the PropertyID of the Property to add to the set. The valid range for PropIds is 2-255; 1 cannot be used because it is reserved.

---

Was übergibst du ? Mal Breakpoint drauf setzten und mit der Maus über die Parameter drüber fahren. Wenn "Nothing" dann nix gut 

HTH

------------------
Grüße daywa1k3r

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Melanie.

Der Daywalker ist übrigens der richtige Ansprechpartner in Programmierfragen. Er ist auch Moderator im VBA-Forum.

Viel Spaß

PS.:

@invhp: So richtig hilft das auch nicht, da kein Delphi-Interface zur API zur Verfügung steht. DCOM ist ja schön und gut, aber Du mußt trotzdem erstmal ein Interface stricken (Und vorher den Kram begreifen  ).

[Diese Nachricht wurde von Charly Setter am 08. September 2003 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Der Daywalker ist übrigens der richtige Ansprechpartner in Programmierfragen. Er ist auch Moderator im VBA-Forum.

---

Ein toller Typ hast du vergessen 

------------------
Grüße daywa1k3r

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich wolltŽs ja nicht übertreiben  . WennŽs so ist, kommt Sie selber drauf  .

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi, die Developer Seite kannte ich überings schon, nur ist sie nicht wirklich hilfreich.
Wie man den Debugger benutzen weiss ich selber. Die Übergabe ist wie in der Doku und es geht nicht.

Trotzdem vielen Dank.

gruß Melanie

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Wie man den Debugger benutzen weiss ich selber.

---

Entschuldigung dass ich geboren bin 

Hier ein Beispiel für dich:

Code:

---

Private Sub test_melanie()
  Dim oAsm As AssemblyDocument
  Dim oPropsets As PropertySets
  Dim oNewPopertySet As PropertySet
  Dim i As Integer
 
  On Error Resume Next
  Set oAsm = ThisApplication.ActiveDocument
  If Err Then
    MsgBox "Kein Assembly!"
    End
  End If
 
  Set oPropsets = oAsm.PropertySets

  On Error Resume Next
  Set oNewPropertySet = oPropsets.Item("Neue Eigenschaft")
 
  If Err Then
    Set oNewPropertySet = oPropsets.Add("Neue Eigenschaft")
    Call oNewPropertySet.Add("Property Wert", "Property Name", 2)
  End If

  For i = 1 To oAsm.PropertySets.Count
    Debug.Print meldung & oAsm.PropertySets.Item(i).DisplayName & vbCrLf
    For j = 1 To oAsm.PropertySets.Item(i).Count
      On Error Resume Next
      Debug.Print meldung & oAsm.PropertySets.Item(i).Item(j).DisplayName & ": " & oAsm.PropertySets.Item(i).Item(j).Value
      Err.Clear
    Next
  Next
End Sub

---

HTH

------------------
Grüße daywa1k3r

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von daywa1k3r:

Entschuldigung dass ich geboren bin 

---

Mimose 

Melanie weiß halt auch, dass sie toll ist! 

Ihr Programmierer seit mir schon so ein Volk...       

------------------
ciao bene

" Gilde der Erfinnder"

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von Bene:

Mimose 

Melanie weiß halt auch, dass sie toll ist!  

Ihr Programmierer seit mir schon so ein Volk...        

---

Nicht in diesem Ton !!!       

------------------
Grüße daywa1k3r

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

@daywa1k3r:
  ____________________________________________
  Zitat: Entschuldigung dass ich geboren bin 
  ____________________________________________

Das mit dem Debugger war nicht böse gemeint, nur mag ich es nicht Grundfertigkeiten erklärt zu bekommen.

Zum Code:
Der hilft mir leider nicht weiter, die Fehlermeldung bleibt. Vielleicht fällt dir ja zu meinem Source was auf. Formal scheint der richtig zu sein. 

_____________________________________________________________________
function TFileObject.CreateAVParameter(): Boolean;
var NewPropertySet : Variant;
    PropertySets : Variant;
    NewProperty : Variant;
    Index: AnsiString;

    EnumPropertySets :TEnumVariant;
    aPropertySet  leVariant;
    DisplayName  :AnsiString;

    EnumPropertySet :TEnumVariant;
    aProperty  leVariant;
    PropertyCount: Integer;
    Vorhanden: Boolean;
begin
  result:= false;
  Vorhanden:= false;
  if (FFileParameter=nil) then exit;
  try
    if ((FGestartet)and(FGeoeffnet)) then
    begin
      Index:= FFileParameter.Values['INDEX'];
      if (Index <> '') then
      begin
        PropertySets:= Document.PropertySets;
        EnumPropertySets:= TEnumVariant.Create(PropertySets);
        try
          while ((EnumPropertySets.ForEach(aPropertySet))and(not Vorhanden)) do
            begin
              DisplayName:= UpperCase(Trim(aPropertySet.DisplayName));
              Vorhanden:= (DisplayName = 'IBE AV32');
              if (Vorhanden) then
                begin
                  Vorhanden:= false;
                  PropertyCount:= 1;
                  EnumPropertySet:= TEnumVariant.Create(aPropertySet);
                  try
                    while ((EnumPropertySets.ForEach(aProperty))) do
                      begin
                        DisplayName:= UpperCase(Trim(aPropertySet.DisplayName));
                        if (not Vorhanden) then
                              Vorhanden:= (DisplayName = 'INDEX');
                        inc(PropertyCount);
                      end;
                    if (not Vorhanden) then
                      begin
                        inc(PropertyCount);
                        NewProperty:= aPropertySet.Add(Index,'INDEX',PropertyCount);
                      end;
                  finally
                    EnumPropertySet.Free;
                  end;
                end;
            end;
          if (not Vorhanden) then
            begin
              NewPropertySet:= PropertySets.Add('IBE AV32');
              NewProperty:= NewPropertySet.Add(Index,'INDEX',2);
            end;
        finally
          EnumPropertySets.Free;
        end;
      end;
    end;
  except
  end;
end;
_____________________________________________________________________

gruß Melanie

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

es ist schlecht lesbar. Du kannst um Code zu posten die Code Tags benutzen.

Stürzt das Programm hier ab:

Code:

---

if (not Vorhanden) then
      begin
      NewPropertySet:= PropertySets.Add('IBE AV32');
      NewProperty:= NewPropertySet.Add(Index,'INDEX',2);
      end;

---

?

Wenn ja, glaube ich, dass das: NewProperty:= NewPropertySet.Add(Index,'INDEX',2); dein Fehler ist.

NewPropertySet.Add ist eine Methode und hat IMHO keinen Rückwert.

------------------
Grüße daywa1k3r

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Daywalker

Eigentlich müßte das aber der Compiler abfangen. Der ist da meist ziemlich pingelig.

lg Mathias

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Und wieso sind da soviele  end; drin?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Code:

---

NewPropertySet : Variant;
PropertySets : Variant;
NewProperty : Variant;

---

Der Compiler kann auch nicht wissen was du meinst, wenn alles als Variant deklariert ist. Es ist ein RunTimeError und kein SyntaxError.

------------------
Grüße daywa1k3r

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ok, hast recht  .

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von Charly Setter:
Ok, hast recht  .

---

Ich wusste doch, dass du die Melanie bist. 

------------------
Grüße daywa1k3r

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Neiiiiiiiiin, bin ich nicht.

Aber ich programmiere immer so, wie ichŽs unter Turbopascal gelernt habe: Immer alles richtig deklarieren. Zu dumm, wennŽs nicht geht  .

lg MAthias

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo noch mal,
wir benutzen für unser Programm nur Delphi, vielleicht kannst du folgenden aber dennoch beantworten. Kann es sein, dass bei einer späten Bindung das property nicht funktioniert? Aufgrund der späten Bindung, müssen alle Variablen als Variant deklariert werden.

Danke für die zahlreichen Bemühungen!

gruß Melanie

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Melanie,

natürlich kann es sein, dass die Polymorphie mal nicht funktioniert, aber du must doch sehen können, ob es sich 100% um einen Datentyp handelt oder nicht.

Beispiel: Du erwartest ein Dokument, kennst aber nicht den Typ nicht ---> klarer Fall "späte Bindung"

Aber im Code oben ist doch klar, dass wir PropertySets und PropertySet haben werden, dann deklarieren wir es auch gleich richtig.

------------------
Grüße daywa1k3r

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

aber wenn wir alles gleich richtig deklarieren, dann müssten wir auch die Typbiliothek einbinden und genau das muss bei uns vermieden werden. Also brauchen wir späte Bindung und Variantdeklarationen.

Dann mussen wir eben weiter ausprobieren und das beste hoffen. Irgendwann finden wir ne Lösung.

gruß Melanie

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Typbiliothek einbinden und genau das muss bei uns vermieden werden.

---

Warum das ???

Zitat:

---

Irgendwann finden wir ne Lösung.

---

Es funktioniert noch nicht ?

------------------
Grüße daywa1k3r

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hi, unter VB geht es, aber nicht unter Delphi und da soll es schließlich funktionieren. Und die Typbiliotheken wollen wir nicht mit einbinden, das gab bei unserer Software immer Probleme. Also versuchen wir das Problem jetzt zu umgehen, bevor wir die dll doch in VB schreiben. Wird später Wartungstechnisch einfacherer.

gruß Melanie

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich bin mir sicher, dass das Problem hier ist:

NewProperty:= NewPropertySet.Add(Index,'INDEX',2);

Das ergibt keinen Sinn. Hast du schon mal nur:

NewPropertySet.Add(Index,'INDEX',2);

Probiert ?

------------------
Grüße daywa1k3r

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi, es war der zweite Versuch und bevor ich gepostet habe. Daran liegt es nicht.

gruß Melanie

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Delphi-TLB.jpg

Hallo Melanie

Ich habe vorhin mal versucht die IV-Typbibliothek in Delphi 5 zu importieren und bin an anhängender Fehlermeldung gescheitert.

GibtŽs das Problem auch bei euch, und wenn ja: Wie habt IhrŽs gelöst.

Vielleicht ist Delphi 5 ja auch schon zu veraltet 

lg Mathias

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,
also wir haben D7. Und wir wollen die Typbiliotheken überhaupt nicht einbinden. In der Vergangenheit hat das immer wieder zu Fehlern geführt, sodass wir gar nicht erst wieder versuchen sie einzufügen. Wie wir das Problem jetzt weiter behandeln wissen wir auch noch nicht. Ich muss eh erst noch ein anderes Projekt vorziehen. Eventuell arbeiten wir dann in diesem einen Punkt mit VB, da geht es so wie wir wollen, aber eben nicht in D7.

bis dann Melanie

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP