Pixmap (xpm) Grafiken mit XProfan

[Frabbing]

Ich möchte Pixmap-Grafiken in eine Anwendung einbinden, aber irgendwie klappt das noch nicht richtig, wird nichts angezeigt.

DECLARE t$[]
t$[0] ="24 20 3 1"
t$[1] ="  c None"
t$[2] =". c #0000FF"
t$[3] ="+ c #FF0000"
t$[4] ="                        "
t$[5] ="    ..                  "
t$[6] ="   ....                 "
t$[7] ="  ......++++++++        "
t$[8] =" .........+++++++       "
t$[9] =" ..........+++++++      "
t$[10]=" ............++++++     "
t$[11]=" .............++++++    "
t$[12]="  ..............++++    "
t$[13]="   +.............+++    "
t$[14]="   ++.............++    "
t$[15]="   +++.............+    "
t$[16]="   +++++.............   "
t$[17]="   ++++++.............. "
t$[18]="   ++++++++............ "
t$[19]="   +++++++++........... "
t$[20]="    +++++++++.........  "
t$[21]="     ++++++++++.......  "
t$[22]="      ++++++++++.....   "
t$[23]="       +++++++++ ...    "
x&=Addr(t$[])

Ich übergebe x& (also den Zeiger auf das Array mit Strings) an die Dll-Funktion, der man die Pixmap übvergeben muss. Hat jemand schon Erfahrungen damit?

Mit C++ funktioniert dieser Code:

/* XPM */
static char * example_xpm[] = {
"24 20 3 1",
"  c None",
". c #0000FF",
"+ c #FF0000",
"                        ",
"    ..                  ",
"   ....                 ",
"  ......++++++++        ",
" .........+++++++       ",
" ..........+++++++      ",
" ............++++++     ",
" .............++++++    ",
"  ..............++++    ",
"   +.............+++    ",
"   ++.............++    ",
"   +++.............+    ",
"   +++++.............   ",
"   ++++++.............. ",
"   ++++++++............ ",
"   +++++++++........... ",
"    +++++++++.........  ",
"     ++++++++++.......  ",
"      ++++++++++.....   ",
"       +++++++++ ...    "};

[Bangkok]

Ich habe das noch nie gemacht.
Hast du schon mal versucht das Array abzuspeichern und mit Irfanview zu laden ob das geht ?
Kann aber auch hier dran liegen.

x&=Addr(t$[])

Vielleicht läuft hier was falsch, oder die Arrays sind in C++ anders aufgebaut

[Frabbing]

Ich denke auch, es liegt an der Übergabe. x& enthält in dem Fall nicht den Zeiger auf das Stringarray, hab ich überprüft.
Aber wenn ich nur t$[] an die Dll-Funktion übergebe, klappt es auch nicht. Wie kann man also den Zeiger auf ein dynamisches Array mit Strings ermitteln?

[Frabbing]

Also hiermit geht es:

Proc xpm
  Parameters xpmstr$
  Long mem#,x&=Addr(xpmstr$)
  x&=x&+4
Endproc

x&=0: Dim mem#,256
xpm "24 20 3 1"
xpm "  c None"
xpm ". c #0000FF"
xpm "+ c #FF0000"
xpm "                        "
xpm "    ..                  "
xpm "   ....                 "
xpm "  ......++++++++        "
xpm " .........+++++++       "
xpm " ..........+++++++      "
xpm " ............++++++     "
xpm " .............++++++    "
xpm "  ..............++++    "
xpm "   +.............+++    "
xpm "   ++.............++    "
xpm "   +++.............+    "
xpm "   +++++.............   "
xpm "   ++++++.............. "
xpm "   ++++++++............ "
xpm "   +++++++++........... "
xpm "    +++++++++.........  "
xpm "     ++++++++++.......  "
xpm "      ++++++++++.....   "
xpm "       +++++++++ ...    "

Wenn ich die Dll-Funktion jetzt mit mem# "füttere", wird die Grafik richtig angezeigt.

Roland, gibt es keine Möglichkeit, den Zeiger auf ein Array mit Strings direkt zu ermitteln? Dann mal als Anregung, aber vielleicht hab ich ja nur was übersehen.
Nachtrag: Den Zeiger eines Elements aus dem Array zu ermitteln scheint auch nicht zu gehen. Addr(t$[1]) liefert auch nur Müll.

[Andreas Miethe]

Zitat von Frabbing

Ich denke auch, es liegt an der Übergabe. x& enthält in dem Fall nicht den Zeiger auf das Stringarray, hab ich überprüft.
Aber wenn ich nur t$[] an die Dll-Funktion übergebe, klappt es auch nicht. Wie kann man also den Zeiger auf ein dynamisches Array mit Strings ermitteln?

Hallo Frank,

meinst Du nicht, dass das so aussehen sollte x&=Addr(t$[0]) ??

[Andreas Miethe]

Also hiermit geht es:

Declare t$[]
t$[0] ="24 20 3 1"
t$[1] ="  c None"
t$[2] =". c #0000FF"
t$[3] ="+ c #FF0000"
t$[4] ="                        "
t$[5] ="    ..                  "
t$[6] ="   ....                 "
t$[7] ="  ......++++++++        "
t$[8] =" .........+++++++       "
t$[9] =" ..........+++++++      "
t$[10]=" ............++++++     "
t$[11]=" .............++++++    "
t$[12]="  ..............++++    "
t$[13]="   +.............+++    "
t$[14]="   ++.............++    "
t$[15]="   +++.............+    "
t$[16]="   +++++.............   "
t$[17]="   ++++++.............. "
t$[18]="   ++++++++............ "
t$[19]="   +++++++++........... "
t$[20]="    +++++++++.........  "
t$[21]="     ++++++++++.......  "
t$[22]="      ++++++++++.....   "
t$[23]="       +++++++++ ...    "
Var x&=Addr(t$[0])
Print STRING$(x&,0)
Print STRING$(Addr(t$[2]),0)
Waitinput
End

[Frabbing]

Also hiermit geht es:

Declare t$[]
t$[0] ="24 20 3 1"
t$[1] ="  c None"
t$[2] =". c #0000FF"
t$[3] ="+ c #FF0000"
t$[4] ="                        "
t$[5] ="    ..                  "
t$[6] ="   ....                 "
t$[7] ="  ......++++++++        "
t$[8] =" .........+++++++       "
t$[9] =" ..........+++++++      "
t$[10]=" ............++++++     "
t$[11]=" .............++++++    "
t$[12]="  ..............++++    "
t$[13]="   +.............+++    "
t$[14]="   ++.............++    "
t$[15]="   +++.............+    "
t$[16]="   +++++.............   "
t$[17]="   ++++++.............. "
t$[18]="   ++++++++............ "
t$[19]="   +++++++++........... "
t$[20]="    +++++++++.........  "
t$[21]="     ++++++++++.......  "
t$[22]="      ++++++++++.....   "
t$[23]="       +++++++++ ...    "
Var x&=Addr(t$[0])
Print STRING$(x&,0)
Print STRING$(Addr(t$[2]),0)
Waitinput
End

Bei mir nicht, meldet "Das Element gibt es nicht!"
Wo übergibst du den Zeiger auf das Array denn an eine Dll-Funktion? Probier das mal, bei mir hats nicht richtig funktioniert.

meinst Du nicht, dass das so aussehen sollte x&=Addr(t$[0]) ??

Alles getestet, funktioniert aber auch nicht. Kommt auch die Meldung "Das Element gibt es nicht!"

[Andreas Miethe]

Hallo Frank,

ich wuesste nicht an welche Dll ich das übergeben sollte.
Vielleicht kannst Du m ir auf die Sprünge helfen ?

[Frabbing]

Die Scintillafunktion SCI_MARKERDEFINEPIXMAP arbeitet mit solchen Pixmap-Bildern, damit bastle ich gerade. Du kannst das leicht mit meiner alternativen XProfEd-Version testen oder mit Rolands Variante.

Das Problem mit den Stringarrays könnte an der XProfan-Version liegen, wie gesagt, mit meiner 11.9ß gehts nicht.

[Andreas Miethe]

Du hast recht, mit der aktuellen Version geht es noch nicht !
Ich habe mit einer Subscriptions-Version(5) von Xprofan12 getestet, damit funktioniert es.

[Frabbing]

Ja, darum werde ich erstmal den Umweg über einen Bereich gehen. Ist ja mit der Proc nichts aufwendiger und die 9/10/11er-User können es auch kompilieren.

[Frabbing]

Der Code hat sich im Praxistest bislang gut bewährt.

[Frabbing]

Roland, ist der Fehler schon behoben?

[RGH]

Zitat von Frabbing

Roland, ist der Fehler schon behoben?

Welchen Fehler?

A.Miethe schrieb doch schon:

"Ich habe mit einer Subscriptions-Version(5) von Xprofan12 getestet, damit funktioniert es."

Gruß
Roland

[Frabbing]

Also ja. Ok, danke!