XProfan

Español

Dietmar
Horn

¡Hola zusammen,

wahrscheinlich Yo veces otra vez una Denkblockade:

Das Carta y Auslesen uno normalen dBase-Feldes klappt.

Beim Auslesen des Memofeldes scheint aber el Entschlüsselung no a trabajo.

Sieht alguien tal vez media Denkfehler?
Kompilieren Marca Separación

PASSWORD 0,"XProfanX2b"
CLS
Declare i&
Var strdat$ = $ProgDir + "dbftest.str"
var dbfdat$ = $ProgDir + "dbftest.dbf"
Var MEdit& = Create("MultiEdit",%HWnd,"",5,60,300,-200)

IfNot Fileexists(dbfdat$)

    assign #1,strdat$
    rewrite #1
    print #1,"NAME;C;200;0"
    print #1,"M1;M;10;0"
    close #1

EndIf

db("Create",strdat$,dbfdat$)
db("Open",#1,dbfdat$)
db("Use",#1)
i& = db("AppendBlank")
db("Put","NAME",encode64(pwd$("Hülsmann")))
Clearlist
AddString encode64(pwd$("Notizen über RGH"))
print encode64(pwd$("Notizen über RGH"))
AddString encode64(pwd$("und sein XProfan."))
print encode64(pwd$("und sein XProfan."))
db("PutMemo","M1")
Clearlist
db("PutRec",i&)
print
print pwd$(decode64(trim$(db("Get","NAME"))))
pwd$(decode64(trim$(db("GetMemo","M1"))))
MoveListToHandle(MEdit&)
ClearList
Waitinput
db("Close",#1)
End

Saludo
Dietmar

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

05.10.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

« Dieser Contribución wurde como Solución gekennzeichnet. »

Posesiones oft Problemas gehabt y fülle ahora el normalen dbf-Felder con Ersatzzeichen a a zulässigen Feldlänge en. Nach el decodieren lösche Yo el Ersatzeichen otra vez.
Beim Memofeld mache Yo como folgt:
Kompilieren Marca Separación

PASSWORD 0,"XProfanX2b"
CLS
Declare i&
Var strdat$ = "dbftest.str"
var dbfdat$ = "dbftest.dbf"
Var MEdit& = Create("MultiEdit",%HWnd,"",5,160,300,-200)

IfNot Fileexists(dbfdat$)

    assign #1,strdat$
    rewrite #1
    print #1,"NAME;C;200;0"
    print #1,"M1;M;100;0"
    close #1

EndIf

db("Create",strdat$,dbfdat$)
db("Open",#1,dbfdat$)
db("Use",#1)
i& = db("AppendBlank")
db("Put","NAME",encode64(pwd$("Hülsmann")))
Clearlist
AddString encode64(pwd$("Notizen über RGH"))
AddString encode64(pwd$("und sein XProfan."))
MoveListToStr$(" ")
db("PutMemo","M1")
db("PutRec",i&)
print
print pwd$(decode64(trim$(db("Get","NAME"))))
print MoveListToStr$(" ")
Clearlist
@DB("GetMemo", "M1")
var LV%=CreateListBox(%hwnd,"",0,0,0,0)

WhileLoop 0,GetCount(0)-1

    RTFAddLine pwd$(decode64(GetString$(0,&Loop)))

EndWhile

ClearList
Waitinput
db("Close",#1)
End

Proc RTFAddLine

    Parameters  Text$
    Text$ = Text$ + "\n"
    SendMessage(MEdit&, 177, $FFFF, $FFFF)' EM_SETSEL
    SendMessage(MEdit&, 194, 0, Addr(Text$))' EM_REPLACESEL

ENDPROC

Saludo Thomas

PS. Keine Idea. Registro ging no. Hängte se siempre en.

05.10.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Thomas
Freier

Das Carta y Auslesen uno normalen dBase-Feldes klappt.

Bist du dir sicher Dietmar? NUM-, DATUM- y logische Felder auch?

Gruß Thomas
Windows XP SP2, XProfan X2

05.10.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Dietmar
Horn

@Thomas: Yo wandele el a schreibenden Daten siempre ya vorher vom Programa de passend en y escribir ellos grundsätzlich en una CHAR-Feld. Das ha el Vorteil, Yo con el Tabla auch später variabler ser kann, en eventuellen zukünftigeren Erweiterungen y ggf. Veränderungen.

Außerdem muß Yo de mi Programa de así más o menos el Anwenderangaben en Korrektheit überprüfen y ggf. korrigieren, así lo beim Carta en el Tabla no knallt.

Durch esta Vorgehensweise Todavía nie NUM-, DATUM- y logische Felder en media Datenbankprogrammen gebraucht, porque el meiner Erfahrung después de viel einfacher y flexibler con einfachen C-Feldern funktioniert.

Saludo
Dietmar

XProfan X2
Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

05.10.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Dietmar
Horn

Hola Tomás,

Yo Su código ligeramente abgewandelt y ihn inzwischen en mein aktuelles Projekt instalado y lo funktioniert así alles tadellos. Gracias!

Trotzdem restos en me el Cuestión bestehen, por qué uno esta Umweg ir muß, worauf uno en efecto sólo una vez kommen muß ...

Tal vez kann Roland sí algo dazu ausführen?

Saludo
Dietmar

XProfan X2
Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

11.10.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita