PureBoard

Verfasst: **28.05.2008 11:53**

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

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

Verfasst: **28.05.2008 12:37**

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

Verfasst: **28.05.2008 12:53**

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

Verfasst: **28.05.2008 13:02**

you're welcome!

Greetings ... Kiffi

Verfasst: **28.05.2008 13:46**

PureBoard

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

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

Re: Konvertieren VB-Code in PB mit lib "PuredispHelper&