XProfan

- Page 1 -

Nico
Madysa

Oh, naturally shows it you nothing on. SetWindowTextW is a API-function and can with XProfan-Strings nothing anfangen; one must it The address on The Strings transfer:

Var static&=CreateW("STATIC","Das is a Static. \nHier should Unicode-characters mere.",$50000000,10,10,width(%hwnd)-20,35,%hwnd,0,%hinstance)
Waitinput
var a$ = utf("Test ") + chrw($401) + utf(" Test")
SetWindowTextW(static&,Addr(a$))

so geht's.

XProfan X2
Win7 Home Premium, SP1, AMD Phenom(tm) II N830 Triple-Core Processor
Nico Madysa

05/29/12 ▲

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

high, I hahm on the Stephan whom Präkompi in use has ^^

Stephan
Sonneborn

Nico Madysa (29.05.12)

so geht's.

Yes, so geht's. *sichandenkopfschlägt*
thanks Nico, for your Help!

but now The Ausbaustufe:
I have Texts (z.B. from Excel), The lying so to: "Отмена"
How do I get the now as Text in a Unicode-Control displayed?
one should But First once herausbekommen, which characters is the because now, what there displayed becomes. One ORD() supply naturally again only numbers between 0...255. Gibts to a entsprechendes OrdW()?
then could one Perhaps each String zeichenweise umsetzen into UniCode-stature and then as Genazes again Show.
(if in the Posting only ?????? showing: In my first Posting standing the russian concept)

Schöne Grüße aus Wittgenstein
von Stephan

Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz

Ordw How posted: [...]

nproc ordw(string s){

    long m=dim(2)
    char m&,0=left$(s$+"\z\z",2)
    long wc=word(m,0)
    dispose(m)
    return wc

}

or.:

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

proc ordw

    parameters s$
    declare m#
    dim m#,2
    char m#,0=left$(s$+"\z\z",2)
    var wc&=word(m#,0)
    dispose m#
    return wc&

endproc

[OFFTOPIC]
Stephan Sonneborn (30.05.12)

(if in the Posting only ?????? showing: In my first Posting standing the russian concept)

apparently one bow of my Post Preview -

look I me with opportunity on. [/OFFTOPIC]

Nico
Madysa

on this Page [...]

find You so quite any Kodierungsumwandlungen, The your marrow to want can, as NProcs; too Widechar-mutants of Chr$() and Ord() are thereby.

I hope, it bereitet you no difficulty, tappt im dunkeln in a XPSE-free Syntax To translate.

but I see straight not, Why You OrdW need should.
the Widechar-Control, with the CreateW prepares been is, müsstest You only whom Text by SetWindowTextW allocate.
If the Text, whom You allocate want, already widecharkodiert is (means 2 Bytes per characters), then there thereby quite no obstacles.

Or others Worten: I see straight not, where your trouble lying.

XProfan X2
Win7 Home Premium, SP1, AMD Phenom(tm) II N830 Triple-Core Processor
Nico Madysa

Stephan
Sonneborn

Nico Madysa (30.05.12)

Or others Worten: I see straight not, where your trouble lying.

my trouble lying hierin:
Füg time these both Lines in your Source one:

var b$ = "укепщьаь вввапа"
SetWindowTextW(static&,addr(b$))

by me then chinese (or whatever) characters displayed...

russichertext.jpg	41 kB

Hochgeladen:	05/31/12

Downloadcounter:
		Download

Schöne Grüße aus Wittgenstein
von Stephan

Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz

05/31/12 ▲

I have you here something "hingeschmiert" what whom Content of/ one with Widechar-Chars-
gefüllten Clipboard as CHR$(...-sequence into Clipboard ablegt.

so can You z.B.: укепщьаь

into Clipboard take and then the program Starting and then comes there:

chr $(67)+chr $(4)+chr $(58)+chr $(4)+chr $(53)+chr $(4)+chr $(63)+chr $(4)+chr $(73)+chr $(4)+chr $(76)+chr $(4)+chr $(48)+chr $(4)+chr $(76)+chr $(4)

with out.

the against as worth for b$ shows the desired.

Download
external Download

wideclipdta2chrclipdta.exe

 {$cleq}
 {$compiler c:\XProfan12}
 {$runtime c:\XProfan12}
decimals 0
cls
casenot OpenClipboard(zero) : end
long mem=GetClipboardData(cf_unicodeText)
casenot mem : end
long c,b
string s

do{

    b=byte(mem,c)
    casenot b : casenot byte(mem,c+1) : break
    s=s+"chr$("+st$(b)+")+"
    c++

}

closeClipboard()
case s=="" : end
clearclip
putclip mid$(s,1,len(s)-1)
end

1.247 kB

Hochgeladen:

05/31/12

zwischenablage02.png Preview

7 kB

Hochgeladen:

05/31/12

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

05/31/12 ▲

Stephan Sonneborn (31.05.12)

- Page 2 -

Nico
Madysa

by me then chinese (or whatever) characters displayed...

I see, clear. the must go wrong. XProfan is Yes sure not for ausgelegt, that the View source Unicode-characters contains. If you your Unicodetext but woandersher take (Clipboard or a UTF-kodierte Textdatei), then ought to it no Problems give.

XProfan X2
Win7 Home Premium, SP1, AMD Phenom(tm) II N830 Triple-Core Processor
Nico Madysa

05/31/12 ▲

Stephan
Sonneborn

Nico Madysa (31.05.12)

If you your Unicodetext but woandersher take (Clipboard or a UTF-kodierte Textdatei), then ought to it no Problems give.

I Have The Texts in a DLL.
the Reading with EXSTRING$() scheidet therefore from.

I thought, that LoadStringW() weiterhilft:

DEF LoadStringW(4)      !"USER32", "LoadStringW"

and then

'************************************************************************************************
' Texts from DLL reading                                                                           *
'************************************************************************************************

PROC Read_Texts

    DECLARE i%, o%, k%, address%
    DECLARE Buffer#
    DIM Buffer#,4097
    '+----------------------------------------------------------------------------------------------+
    '  Logindialog: (address 100)
    '+----------------------------------------------------------------------------------------------+
    address%  = 100
    LogTitle$ = EXTSTRING$(SMEDLL&, address%)
    i% = 1

    WHILELOOP 1,3,1

        'LogButton$[i%] = EXTSTRING$(SMEDLL&, address%+&LOOP)
        CLEAR Buffer#
        LoadStringW(SMEDLL&, address%+&LOOP, Buffer#, 4097)
        LogButton$[i%] = STRINGW$(Buffer#,0)
        INC i%

    WEND

    DISPOSE Buffer#

ENDPROC

unfortunately supply the Result in the anhängenden Image.

russichertext2.jpg Preview

33 kB

Kurzbeschreibung:

Eingabedialog

Hochgeladen:

06/01/12

russichertext3.jpg Preview

53 kB

Kurzbeschreibung:

Hochgeladen:

06/01/12

Schöne Grüße aus Wittgenstein
von Stephan

Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz

06/01/12 ▲

how much gives LoadStringW back?

Imho instead of:

LogButton$[i%] = STRINGW$(Buffer#,0)

sooner:

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

count&=LoadStringW(...
LogButton$[i%] = char$(Buffer#,0,count&)

not sure be I whether it vlt. even LogButton$[i%] = char$(Buffer#,0,count&*2) heissen

should there imho The Documentation moreover not eindeutig is.

06/01/12 ▲

Stephan
Sonneborn

iF (01.06.12)

how much gives LoadStringW back?

with this Text "OK ываысаи" bring it 10 back. there are too 10 characters.

iF (01.06.12)

Imho instead of:

LogButton$ = STRINGW$(Buffer#,0)

sooner:

count&=LoadStringW(...

LogButton$ = char$(Buffer#,0,count&)

not sure be I whether it vlt. even LogButton$ = char$(Buffer#,0,count&*2) heissen should there imho The Documentation moreover not eindeutig is.

has unfortunately both nothing brought...

Schöne Grüße aus Wittgenstein
von Stephan

Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz

07/11/12 ▲

I have now something whom filament lost.

If LoadStringW The korrekte Zeichenanzahl supply then simply: