Konvertieren VB/PB mit "PuredispHelper" [Gelöst]

[kwai chang caine]

Guten Morgen

Ich bin französisch, und ich spreche nicht ein Wort Deutsch.
Dann benutze ich den Übersetzer von GOOGLE
Aber ich habe sehr auf Ihre Hilfe angewiesen.

Ich habe ein Problem mit der geniale lib "PureDispHelper".
Ich kann nicht, daß dieser Code in VB6 in PB.

VB Code

Code: Alles auswählen

Dim System As Object 
Dim Sessions As Object 
  
Set System = CreateObject("Atra.System") 
Set Sessions = System.Sessions 
  
For i = 1 To Sessions.Count 
  
 If Not Sessions(i) Is Nothing Then 
      
  MsgBox Sessions(i).Name 
   
 End If 
  
Next 

PB code

Code: Alles auswählen

Define System.l 
Define Sessions.l 
Define Count.l 
Define Name.s 

System = dhCreateObject("Atra.System") 
Sessions = dhCreateObject("Atra.Sessions") 

dhGetValue("%d", @Count, Sessions, ".count") 
Name = space(100)

For i = 1 To Count 
  dhGetValue("%t", @Name, Sessions, ".item(%d)", 1) 
  Debug Name 
Next  

Wenn jemand mir helfen kann
Danke viele
Guten Tag

[Kiffi]

Hello kwai chang caine,

try this:

Code: Alles auswählen

[...]
For i = 1 To Count 

  dhGetValue("%T", @Name, Sessions, ".item(%d)", i) 

    If Name
      Debug PeekS(Name)
      dhFreeString(Name)
    EndIf

Next

(untested)

Greetings ... Kiffi

[kwai chang caine]

Yaaaaaahhhhhhoo !!!!

You are my hero
I love you

I search a solution for all a day

And thanks also for speak english
All my apologie for my bad deutch.
I lived a year in deutchland, (For the army ), i read all the year a deutch book for learn this great language, but it's more difficult.

I am not much stronger in English, but the people understand me

Thanks thanks again.
I am your french admirer

I wish you a very good day
You and all the people of the deutch forum

Big life at PB

[Kiffi]

you're welcome!

Greetings ... Kiffi

[kwai chang caine]