(1.103)  S'inscrire

Français
Forum

Erledigt: md5 et Autotext

 
- page 1 -



Michael
Punkt
allô Zusammen,

hätte là nochmal deux Fragen:

1.) j'ai une mySQL-DB sur meinem Linux-Server et là sommes Benutzerpasswörter md5-verschlüsselt. avec Xprofan peux je zwar Ver- et entschlüsseln, mais md5 beherrscht Xprofan pas.
je voudrais aussi seulement ungern qui Tabelle ajuster, là qui md5-verschlüsselten données aussi weiterhin avec qui Browserversion comme PHP-Script verglichen volonté devoir.

Im Forum habe je quoi de einer Unit gelesen qui sur den Namen md5.pcu (?) hört.
malheureusement scheint cet Unit pas plus trop existieren, car je erhalte statt einer Downloadmöglichkeit seulement une le vide page (Template qui HP de XProfan.com ist zwar trop voyons, mais plus aussi pas.)
Gibts cela pas plus? si doch, wohin pourrait je qui herbekommen?

2.) Autotext ... ist peut-être pas qui entier korrekte Bezeichnung, mais je mon avec cela cela, quoi beispielsweise mon Firefox avec Eingabefeldern pouvoir. Sprich, habe je irgendwann la fois cela mot "Auto" dans dem Eingabefeld eingetragen et je tippe seulement den Buchstaben "A", erscheint "Auto" comme Auswahlmöglichkeit,

Ist cela possible, so quelque chose aussi avec Xprofan trop realisieren, ou bien ist cela FF, bzw. seulement Brwoserspezifisch possible?
malheureusement habe je aucun répondre im Forum ou bien dans qui Hilfedatei trouvé.

Nutze zur Zeit seulement cela "nackte" Xprofan. XPSE folgt dans qui prochain Zeit.

Viele Grüße,
Michael
 
XProfan 11, Windows XP (2GB RAM), XProfEd
08.08.2009  ▲
Vollständiges citation
Absatzweise CitationZeilenweise Citation
 



 
- page 2 -



Michael
Punkt
So, melde mich pour Zwangsabstinenz (Blitzeinschlag dans unmittelbarer Nähe avec verhehrenden Folgen pour diverse Elektrogeräte ) avec Notequippment wieder zurück.


Ist es pas so cela qui banque de données qui Verschlüsselung selbst übernimmt??!?


non, so large je sais, peux mySQL pas selbst verschlüsseln. cela muss on sous PHP avec md5() selbst vornehmen et ensuite den gehashten Wert dans qui Tabelle Sauver/comparer.


alors cet Contrôle, la fois indépendant de Assembler et Profan2CPP, peux on mais wirklich aussi simple avec XProfan programmieren - je vois là gar ne...aucune Problem et biete volontiers à, si je wieder im Pays suis (au plus tard Wochenende comme aussieht) cela herzustellen aussi weil chacun autre et je cela bestimmt bien et souvent gebrauchen peut. ensuite gibts ne Include et "schön ist".


cela wäre naturellement Super, car si tu écris, dass Du pour ne ganze Include baust, sais je, dass je wohl einiges oublier qc/faux habe.

So habe je cela letzt aufgebaut, quoi mais pas funktioniert.

j'ai un Dialogfenster erstellt et une Combobox avec dem Attribut pour CBS_HASSTRINGS:
KompilierenMarqueSéparation
hD% = @Create("Window",%hWnd,"Login",0,0,400,200)
feld_login% = @Control("COMBOBOX", "Test", $50000200, 5, 5, 245, 20, hD%, 0, %hInstance)e>

chez qui Abfrage des Buttons habe je folgendes gemacht:
KompilierenMarqueSéparation
If @GetFocus(button_login&)

    SendMessage(feld_login%, $0143 , 0, @GetText$(feld_login%))pre>

cela Ergebnis ist, cela gar rien passiert.
Entweder fehlt maintenant ici encore quoi (maintenant encore écrire à un Listbox? mais comment?), ou bien suis je total sur dem Holzweg?
je vermute la fois stark, beides.
 
XProfan 11, Windows XP (2GB RAM), XProfEd
14.08.2009  ▲
 



si je mich pas irre, wird pour jeden Tastenanschlag im Eingabefeld et pour jeden Mausklick ins Eingabefeld au-dessous une liste angezeigt avec per Pfeiltasten et souris anwählbaren Entrées qui sur qui bisherige Eingabe passen.

alors doit Klick+bouton aufs/im Eingabefeld oui abgefragt volonté um une darunterliegende liste (ou bien on nimmt editierbare Choicebox qui oui bereits ne liste unten tour trop bammeln hat) trop befüllen. chez Klick ou bien Tastaturauswahl dans qui liste wiederum muss cela Eingabefeld avec dem Eintrag befüllt volonté.

Um cela (alles) trop managen sommes imho alors mindestens Methoden comment:

+ Contrôle erzeugen
+ dans Frage kommende Einträge zuweisen / entfernen
+ Contrôle abragen (z.B. dans subClassProc)
+ Contrôle entfernen

notwendig - alors un paire Funktionen qui ensuite plan z.B. dans einer Include aufgehoben son devrait.

peut-être kennt Andreas Miethe encore une einfachere Methode - vlt. gibt es solch Contrôle bereits quelque chose fertiger.

 
14.08.2009  ▲
 




Jörg
Sellmeyer
cela devrait Dir weiterhelfen:
KompilierenMarqueSéparation
 $H messages.ph
Cls
Def CBN_EDITCHANGE(1) If(%message=$0111,((&lparam = &(1)) & (HiWord(&wparam) = 5)),0)
Def CB_GetSelStart(1) LoWord(SendMessage(&(1),~CB_GETEDITSEL,0,0))
Declare Edit&,Liste&,n%
Edit& = Create("ChoiceBox",%hwnd,3,300,10,200,240)
Liste& = Create("List",1)
AddString(Edit&,"abcdefg")
AddString(Edit&,"ffafff")
AddString(Edit&,"fdafff")
AddString(Edit&,"test")
AddString(Edit&,"hurra")
AddString(Edit&,"auch ein längerer Text geht")
SetFocus(Edit&)

While 1

    WaitInput

    If CBN_EDITCHANGE(Edit&)

        SendMessage(Edit&,~CB_SHOWDROPDOWN,1,0)wenn man das wegläßt, hats auch was
        n% = CB_GetSelStart(Edit&)
        SelectString(Edit&,-1,GetText$(Edit&))
        SendMessage(Edit&,~CB_SETEDITSEL,0,MakeLong(n%,-1))

    EndIf

Wend
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
14.08.2009  ▲
 




Andreas
Miethe

ou bien cela
KompilierenMarqueSéparation
###############################
XProfan 11.2 Grundgerüst
###############################
###############################
Imports
###############################
###############################
###############################
Header-Dateien
 $H windows.ph
 $H Messages.ph
###############################
###############################
Definitionen
###############################
DEF &TRUE 1
DEF &FALSE 0
###############################
###############################
Strukturen
###############################
###############################
###############################
Globale Variablen
###############################
Var WindowWidth&  = %maxx/3*2
Var WindowHeight& = %maxy/3*2
Var WindowTitle$  = "Grundgerüst"
Var LenTextSave& = 0
###############################
###############################
Fenster zunächst unsichtbar erstellen
WindowTitle WindowTitle$
windowStyle $250
Window 0,0-0,0
Useicon "A"
CLS ~GetSysColor(~COLOR_BTNFACE)
SetDialogFont ~GetStockObject(~ANSI_VAR_FONT)
###############################
Fenster-Aufbau
###############################
Var Choice& = Create("ChoiceBox", %hwnd, 3,10,10,200,400)
AddString(Choice&,"Autocomplete")
AddString(Choice&,"XProfan")
AddString(Choice&,"Besucher")
AddString(Choice&,"Gast")
AddString(Choice&,"Profan")
AddString(Choice&,"ProfanFans")
AddString(Choice&,"SendMessage")
AddString(Choice&,"PostMessage")
AddString(Choice&,"Montag")
AddString(Choice&,"Dienstag")
AddString(Choice&,"Mittwoch")
AddString(Choice&,"Donnerstag")
AddString(Choice&,"Freitag")
AddString(Choice&,"Samstag")
AddString(Choice&,"Sonntag")
###############################
SubClassing einschalten
###############################
SubClass %HWnd, 1
###############################
Style defineren und anzeigen
###############################
SetStyle %hwnd,0,$14CF2000
~SetClassLong(%hwnd,~GCL_STYLE,(~GetClassLong(%hwnd,~GCL_STYLE)- ~CS_HREDRAW - ~CS_VREDRAW))
~Movewindow(%hwnd,%maxx/2-WindowWidth&/2,%maxy/2-WindowHeight&/2,WindowWidth&,WindowHeight&,&TRUE)
###############################
Hautpschleife
#############
Var Ende& = 0

Whilenot Ende&

    Waitinput

    If %key = 2

        OnEnd()

    Endif

EndWhile

SubClassing-Procedur
###############################

SubClassProc

    If SubClassMessage(%hWnd, ~WM_COMMAND)

        If HiWord(&swParam) = ~CBN_EDITCHANGEdas Edit-Control der Combobox ist geändert worden

            Var Combotext$ = Upper$(GetText$(&slParam))
            Var Textlen& = Len(Combotext$)
            Var MaxItem& = GetCount(Choice&)-1
            Var hComboEdit& = ~ChildWindowFromPoint(&slParam, 5,5)Edit-Control ermitteln um den Cursor zu setzen

            If TextLen& <= LenTextSave&

                LenTextSave& = TextLen&

            else

                If Textlen& > 1Reaktion erst wenn 2 Zeichen einegeben sind

                    Whileloop 0,MaxItem&

                        If ComboText$ =  Upper$(Left$(Getstring$(&slParam,&Loop),TextLen&))

                            SelectString(&slParam,-1,Combotext$)
                            SendMessage(hComboEdit&, ~EM_SETSEL, TextLen&, -1)Cursor im Edfit setzen
                            LenTextSave& = TextLen&
                            Break

                        EndIf

                    EndWhile

                Endif

            Endif

        Endif

    Endif

EndProc

###############################
Ende-Procedur
###############################

Proc OnEnd

    Ende& =span class=s2>1

ENDPROC

###############################
 
Gruss
Andreas
________ ________ ________ ________ _
Profan 3.3 - XProfanX2
Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit
ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher
Homepage :  [...] 
14.08.2009  ▲
 



Juhu!

Frabbing, Beitrag=53771, Zeitpunkt=08.08.2009

Frabbing, Beitrag=53771, Zeitpunkt=08.08.2009
trop 2: c'est imho une Choicebox avec besonderem Stil, den je mais malheureusement pas auswendig kenne.

ensuite prends dir simple fois le Zeit et schlag pour et präsentiere deinen Style. Daran wäre je aussi intéressé, glaube mais pas à sa Existenz...


 
14.08.2009  ▲
 




Dieter
Zornow
oui beide Codes marcher sans, dass qui Choicebox une besonderen Style bekommt. chez Jörgs Code qui joli simple ist verschwindet mais chez mir qui Cursor pour außerhalb des Fensters et venez seulement wieder zurück si le Choicebox wieder geschlossen ist, c'est unschön.

chez Andreas Code c'est moi unklar pourquoi qui Windowstyle seulement sur $250, cela est sans Titelleiste gesetzt wird et ensuite unten wieder sur avec Titelleiste gesetzt wird. si je dessus juste z.B. Windowstyle 63 wähle gehts doch oui c'est ca si bien. Könnte mich la fois quelqu'un aufklären.
 
Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2
14.08.2009  ▲
 




Andreas
Miethe

allô Dieter,

qui tête-Code est un Template cela toujours geladen wird, si je per rechter Bouton de la souris avec "Neu" un nouveau PRF-Dokument anlege. Sinn en ist ( Fensterstyle ), dass cela la fenêtre d'abord unsichtbar angelegt wird, ensuite volonté qui Fensterelement angelegt et seulement si alles fertig ist, wird cela la fenêtre angezeigt.
 
Gruss
Andreas
________ ________ ________ ________ _
Profan 3.3 - XProfanX2
Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit
ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher
Homepage :  [...] 
14.08.2009  ▲
 




Dieter
Zornow
allô Andreas,

oui cela leuchtet mir un, je hatte mich seulement gewundert weil es pour cet Snippet pas notwendig ist. si cela mais dein Template pour alle deine Programme ist ist cela naturellement verständlich, là sonst qui Titelleiste trop voyons wäre.

merci pour qui Aufklärung.

Salut

Dieter
 
Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2
14.08.2009  ▲
 




Frank
Abbing
iF, Beitrag=53862, Zeitpunkt=14.08.2009
Juhu!

Frabbing, Beitrag=53771, Zeitpunkt=08.08.2009

iF, Beitrag=53862, Zeitpunkt=14.08.2009
trop 2: c'est imho une Choicebox avec besonderem Stil, den je mais malheureusement pas auswendig kenne.

ensuite prends dir simple fois le Zeit et schlag pour et präsentiere deinen Style. Daran wäre je aussi intéressé, glaube mais pas à sa Existenz...




ne...aucune Style, Subclassing...

mais joli kompakt, qui Listbox integriert. Sieht bien aus, Andreas!
Pour très viele Einträge empfielt sich ensuite peut-être besser une externe Listbox.
 
14.08.2009  ▲
 




Michael
Punkt
voilà oui ensuite doch un paire Zeilen plus notwendig comme mon kläglicher Versuch.

Habe beide Beispiele ausprobiert et cela de Adreas ist wirklich Super.
l'autre de Jörg ist zwar joli kompakt, doch aussi mich stört, dass qui Mauspfeil veschwindet et seulement wiederkommt, si cela Pulldown weg ist.
et encore une kleinen le crochet hat es. je peux ne...aucune mot verwenden/eintippen, quoi pas dans qui Addstring hinterlegt ist. mais quand même merci. Pour une anderen Bereich peux je cela aussi bien verwenden.

aussi si je einiges encore pas verstehe (justement quoi den API-partie et qui SendMessages betrifft), so ist cela un bon Code zum apprendre.

j'ai Andreas Quellcode eh bien aussi modifiziert um une ini-Dossier trop verwenden um neue eingegebene Worte Sauver trop peut, so loin vous encore pas dans qui liste vorhanden sommes.
j'ai hierfür deux Funktionen gebaut. une zum einlesen, une à écrire qui ini-Dossier.

malheureusement suis je eh bien mais à einem Punkt angelangt, à dem je pas plus weiterkomme um cela Ganze trop perfektionieren.
und dir um cela Entfernen eines Eintrags mittels qui "ENTF"-bouton.

qui Abfrage avec @IsKey(~VK_DELETE) funktioniert chez mir seulement, si cela Pulldown pas trop voyons ist et ensuite braucht es oui pas trop marcher.

comment erreiche je, cela chez geöffnetem Pulldown-Menue et einem ausgewählten Menuepunkt qui entsprechende Eintrag gelöscht wird?
Hierzu ist entier sûrement wieder un SendMessage notwendig, ou bien?

je hatte es avec @GetState et @GetCount versucht, mais chez beidem kam qui Fehlermeldung, le moi cela pour cette Typ pas verwenden pourrait.

ici la fois qui Avancé vollständige Quellcode:
KompilierenMarqueSéparation
###############################
XProfan 11.2 Grundgerüst
###############################
###############################
Imports
###############################
###############################
###############################
Header-Dateien
 $H windows.ph
 $H Messages.ph
###############################
###############################
Definitionen
###############################
DEF &TRUE 1
DEF &FALSE 0
###############################
###############################
Strukturen
###############################
###############################
###############################
Globale Variablen
###############################
Var WindowWidth&  = %maxx/3*2
Var WindowHeight& = %maxy/3*2
Var WindowTitle$  = "Grundgerüst"
Var LenTextSave& = 0
Declare intern_AddString$
###############################
###############################
Fenster zunächst unsichtbar erstellen
WindowTitle WindowTitle$
windowStyle $250
Window 0,0-0,0
Useicon "A"
CLS ~GetSysColor(~COLOR_BTNFACE)
SetDialogFont ~GetStockObject(~ANSI_VAR_FONT)
###############################
Fenster-Aufbau
###############################
Var Choice& = Create("ChoiceBox", %hwnd, 3,10,10,200,400)
myCBox_Readlist(Choice&, "Combo1", "")
var button_ok&   = Create("Button",%hwnd,"Ok",3,80,100,25)
###############################
SubClassing einschalten
###############################
SubClass %HWnd, 1
###############################
Style defineren und anzeigen
###############################
SetStyle %hwnd,0,$14CF2000
~SetClassLong(%hwnd,~GCL_STYLE,(~GetClassLong(%hwnd,~GCL_STYLE)- ~CS_HREDRAW - ~CS_VREDRAW))
~Movewindow(%hwnd,%maxx/2-WindowWidth&/2,%maxy/2-WindowHeight&/2,WindowWidth&,WindowHeight&,&TRUE)
###############################
Hautpschleife
#############
Var Ende& = 0

Whilenot Ende&

    Waitinput

    If @GetFocus(button_ok&)

        if (@GetText$(Choice&) <> "")

            myCBox_Writelist("Combo1", intern_AddString$, @GetText$(Choice&))
            myCBox_Readlist(Choice&, "Combo1", @GetText$(Choice&))

        endif

    EndIf

    If @IsKey(~VK_DELETE) AND .... und hier verließen sie ihn

        myCBox_DelEntryList

    endif

    If %key = 2

        OnEnd()

    Endif

EndWhile

SubClassing-Procedur
###############################

SubClassProc

    If SubClassMessage(%hWnd, ~WM_COMMAND)

        If HiWord(&swParam) = ~CBN_EDITCHANGEdas Edit-Control der Combobox ist geändert worden

            Var Combotext$ = Upper$(GetText$(&slParam))
            Var Textlen& = Len(Combotext$)
            Var MaxItem& = GetCount(Choice&)-1
            Var hComboEdit& = ~ChildWindowFromPoint(&slParam, 5,5)Edit-Control ermitteln um den Cursor zu setzen

            If TextLen& <= LenTextSave&

                LenTextSave& = TextLen&

            else

                If Textlen& > 1Reaktion erst wenn 2 Zeichen einegeben sind

                    Whileloop 0,MaxItem&

                        If ComboText$ =  Upper$(Left$(Getstring$(&slParam,&Loop),TextLen&))

                            SelectString(&slParam,-1,Combotext$)
                            SendMessage(hComboEdit&, ~EM_SETSEL, TextLen&, -1)Cursor im Edfit setzen
                            LenTextSave& = TextLen&
                            Break

                        EndIf

                    EndWhile

                Endif

            Endif

        Endif

    Endif

EndProc

###############################
Ende-Procedur
###############################

Proc OnEnd

    Ende& = 1

EndProc

###############################

Proc myCBox_Readlist

    Parameters CBox$, CBox_Name$, PreSelect$
    Declare position$, x%, AList$
    x%=1
    AList$ = Readini$("D:Comboboxen.dat","Combobox",CBox_Name$)
    intern_AddString$ = AList$
    ClearList CBox$

    while 1

        position$ = @SUBSTR$(AList$,x%,",")

        if (position$ <> "")

            @AddString(CBox$,position$)

        endif

        inc x%
        case position$ = "": Break

    endwhile

    if (PreSelect$ <> "")

        @SelectString(CBox$,-1,PreSelect$)

    endif

    clear position$
    clear AList$

EndProc

Proc myCBox_Writelist

    Parameters CBox_Name$, AList$, newValue$
    Declare position$, x%, duplicate$
    x%=1

    while 1

        position$ = @SUBSTR$(AList$,x%,",")

        if (position$ = newValue$)

            duplicate$ = 1
            break

        endif

        inc x%
        case position$ = "": Break

    endwhile

    if (duplicate$ = 0)

        AList$ = AList$ + "," + newValue$
        writeini "D:Comboboxen.dat","Combobox",CBox_Name$ = AList$

    endif

EndProc

Proc myCBox_DelEntryList

ENDPROC
 
XProfan 11, Windows XP (2GB RAM), XProfEd
15.08.2009  ▲
 




Dieter
Zornow
Versuche es la fois avec "DeleteString(N1,N2)"
avec Getcursel peux du qui numéro des markierten Eintrages ermitteln.
dans qui Profanhilfe sous "Auswahlboxen" findest du alles
 
Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2
15.08.2009  ▲
 




Frank
Abbing

je peux ne...aucune mot verwenden/eintippen, quoi pas dans qui Addstring hinterlegt ist. mais quand même merci.


exposition, oui c'est ca pour peux du ensuite une unsichtbare Listbox verwenden, dans qui deine Wörter stehen!
 
15.08.2009  ▲
 



◄►

répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

Unreaded
abonner
La liste de voeux
Notes
guests
Effacer
Permanent
Erledigt

8.694 Views

Untitledvor 0 min.
Member 361000504.08.2022
Sven Bader10.09.2021
Walter10.05.2021
Thomas Zielinski01.04.2021
plus...

Themeninformationen

cet Thema hat 7 participant:

iF (8x)
Michael Punkt (6x)
Frank Abbing (5x)
Dieter Zornow (3x)
Andreas Miethe (2x)
Michael Wodrich (1x)
Jörg Sellmeyer (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.

d'accordDatenschutzerklärung
je voudrais keinen Cookie