XProfan

- page 1 -

Nico
Madysa

eh, naturellement zeigt il dir rien à. SetWindowTextW ist une API-Funktion et peux avec XProfan-Cordes rien anfangen; on muss ihm qui Adresse sur qui Cordes überweisen:

Var static&=CreateW("STATIC","Das est un Static. \nHier devoir Unicode-marque rein.",$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

29.05.2012 ▲

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

Hoch, je hahm à cela Stephan den Präkompi im Einsatz hat ^ ^

Stephan
Sonneborn

Nico Madysa (29.05.12)

So geht's.

oui, so geht's. *sichandenkopfschlägt*
merci Nico, pour Votre Aider!

mais eh bien qui Ausbaustufe:
j'ai Textes (z.B. aus Excel), qui liegen so avant: "Отмена"
comment bekomme je cela eh bien comme Text dans einem Unicode-Contrôle angezeigt?
on devrait doch d'abord einmal herausbekommen, welches marque ist cela car eh bien, quoi là angezeigt wird. un ORD() liefert naturellement aussi wieder seulement payons entre 0...255. Gibts en supplément un entsprechendes OrdW()?
ensuite pourrait on peut-être jeden String zeichenweise umsetzen dans cela UniCode-Format et ensuite comme Genazes wieder Montrer.
(si im Posting seulement ?????? angezeigt volonté: dans meinem ersten Beitrag steht qui russische Begriff)

Schöne Grüße aus Wittgenstein
von Stephan

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

Ordw comment posté: [...]

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

}

bzw.:

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)

(si im Posting seulement ?????? angezeigt volonté: dans meinem ersten Beitrag steht qui russische Begriff)

Scheinbar un Bug meiner Beitragsvorschau -

schaue je mir chez Gelegenheit à. [/OFFTOPIC]

Nico
Madysa

sur cette page [...]

findest du so assez alle Kodierungsumwandlungen, qui dein Herz begehren peux, comme NProcs; aussi Widechar-Varianten de Chr$() et Ord() sommes dabei.

je hoffe, es bereitet dir aucun Schwierigkeiten, vous dans un XPSE-freie Syntax trop traduire.

mais je vois justement pas, pourquoi du OrdW brauchen devrait.
Dem Widechar-Contrôle, cela avec CreateW erstellt worden ist, müsstest du seulement den Text per SetWindowTextW zuweisen.
si qui Text, den du zuweisen veux, bereits widecharkodiert ist (alors 2 Bytes pro marque), ensuite gibt es dabei gar aucun Hindernisse.

ou bien avec anderen Worten: je vois justement pas, wohin dein Problem liegt.

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

Stephan
Sonneborn

Nico Madysa (30.05.12)

ou bien avec anderen Worten: je vois justement pas, wohin dein Problem liegt.

mon Problem liegt hierin:
Füg la fois cet beiden Zeilen dans Deinen Quellcode un:

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

chez mir volonté ensuite chinesische (ou bien quoi que + subj.) marque angezeigt...

russichertext.jpg	41 kB

Hochgeladen:	31.05.2012

Downloadcounter:
		Download

Schöne Grüße aus Wittgenstein
von Stephan

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

31.05.2012 ▲

j'ai Dir ici la fois quoi "hingeschmiert" quoi den le contenu einer avec Widechar-Chars-
gefüllten Zwischenablage comme CHR$(...-Sequenz dans qui Zwischenablage ablegt.

So peux Du z.B.: укепщьаь

dans qui Zwischenablage prendre et ensuite cela Programme starten et ensuite venez là:

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)

chez raus.

cela wiederum comme Wert pour b$ zeigt cela Gewünschte.

Télécharger
externer Télécharger

wideclipdta2chrclipdta.exe

 {$cleq}
 {$compiler c:\XProfan12}
 {$runtime c:\XProfan12}
decimals 0
cls
casenot OpenClipboard(zéro) : 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) : pause
    s=s+"chr$("+str$(b)+")+"
    c++

}

closeClipboard()
cas s==» : end
clearclip
putclip mid$(s,1,len(s)-1)
end

1.247 kB

Hochgeladen:

31.05.2012

zwischenablage02.png Preview

7 kB

Hochgeladen:

31.05.2012

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

31.05.2012 ▲

Stephan Sonneborn (31.05.12)

- page 2 -

Nico
Madysa

chez mir volonté ensuite chinesische (ou bien quoi que + subj.) marque angezeigt...

ah bon, bien sûr. cela muss schiefgehen. XProfan ist oui sicherlich pas pour ausgelegt, dass qui Voir le texte source Unicode-marque contient. si du deinen Unicodetext mais woandersher prends (Zwischenablage ou bien une UTF-kodierte Textdatei), ensuite sollte es aucun Probleme donner.

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

31.05.2012 ▲

Stephan
Sonneborn

Nico Madysa (31.05.12)

si du deinen Unicodetext mais woandersher prends (Zwischenablage ou bien une UTF-kodierte Textdatei), ensuite sollte es aucun Probleme donner.

je hab qui Textes dans einer DLL.
cela Lecture avec EXSTRING$() scheidet daher aus.

J'ai pensé, dass LoadStringW() weiterhilft:

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

et ensuite

'************************************************************************************************
' Textes aus DLL lesen                                                                           *
'************************************************************************************************

PROC Read_Texts

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

    WHILELOOP 1,3,1

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

    WEND

    DISPOSE Buffer#

ENDPROC

malheureusement liefert cela Ergebnis im anhängenden Bild.

russichertext2.jpg Preview

33 kB

Kurzbeschreibung:

Eingabedialog

Hochgeladen:

01.06.2012

russichertext3.jpg Preview

53 kB

Kurzbeschreibung:

Eintrag dans DLL

Hochgeladen:

01.06.2012

Schöne Grüße aus Wittgenstein
von Stephan

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

01.06.2012 ▲

combien gibt LoadStringW zurück?

Imho statt:

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

plutôt:

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

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

pas sûrement suis je si es vlt. sogar LogButton$[i%] = char$(Buffer#,0,count&*2) heissen

devrait là imho qui Documentation en supplément pas sans équivoque ist.

01.06.2012 ▲

Stephan
Sonneborn

iF (01.06.12)

combien gibt LoadStringW zurück?

chez diesem Text "OK ываысаи" bringt es 10 zurück. il y a aussi 10 marque.

iF (01.06.12)

Imho statt:

LogButton$ = STRINGW$(Buffer#,0)

plutôt:

count&=LoadStringW(...

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

pas sûrement suis je si es vlt. sogar LogButton$ = char$(Buffer#,0,count&*2) heissen devrait là imho qui Documentation en supplément pas sans équivoque ist.

Hat malheureusement beides rien gebracht...

Schöne Grüße aus Wittgenstein
von Stephan

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

11.07.2012 ▲

j'ai maintenant quelque chose den fil verloren.

si LoadStringW qui korrekte Zeichenanzahl liefert ensuite simple: