XProfan

English

Dietmar
Horn

Hello together,

probably have I time again a Denkblockade:

the write and Reading one normalen dBase-Field works.

at that Reading the Memofeldes shining but the Entschlüsselung not To functions.

sees someone Perhaps my fallacy?
Compile Mark Separation

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

Greeting
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: [...]

10/05/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

« this Posting watts as Solution marked. »

have often Problems had and filling now The normalen dbf-boxes with Ersatzzeichen To to zulässigen Feldlänge on. After the decodieren lösche I The Ersatzeichen again.
at that Memo make I it How follows:
Compile Mark Separation

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

Greeting Thomas

PS. in a. Login went not. Hängte itself always on.

10/05/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Thomas
Freier

the write and Reading one normalen dBase-Field works.

are you you sure Dietmar? NUM-, DATUM- and logische boxes too?

Gruß Thomas
Windows XP SP2, XProfan X2

10/05/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Dietmar
Horn

@Thomas: I wandele The To schreibenden data always already before of Program from properly circa and write tappt im dunkeln fundamentally into CHAR-area. This has the advantage, that I with the scheduler too later variable his can, with possible zukünftigeren extensions and ggf. Changes.

Also must I of my Program from so or so The Anwenderangaben on Korrektheit to check on and ggf. correct, so it at write into scheduler not knallt.

through these Vorgehensweise have I yet never NUM-, DATUM- and logische boxes in my Datenbankprogrammen used, because the of my experience to plenty plainer and flexibler with einfachen C-Feldern functions.

Greeting
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: [...]

10/05/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Dietmar
Horn

Hello Thomas,

I have your Sourcecode slight abgewandelt and it meanwhile in my News proposition installed and it functions so everything tadellos. thanks!

nevertheless remaining by me The question consist, Why one this detour weg must, on what one indeed first once come must ...

Perhaps can Roland Yes something moreover perform?

Greeting
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: [...]

10/11/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote