XProfan

Français

allô Frank
avec diesem Code versuche je, qui CSV-Dossier trop verschlüsseln - malheureusement sans Erfolg

---------------------
PROC DATEN_SPEICHERN
PARAMETERS tabelle$
Si non tabelle$=
x&=GetNeededMemory(listview&,1)
Faible bereich#,x&
x&=ListviewToCsv(listview&,bereich#,0,0) Listview-données im CSV-Format auslesen
CryptMem(bereich#,x&,addr(passwort$),len(passwort$)) données dans dem Bereich wieder verschlüsseln
WriteFileQuick(addr(tabelle$),bereich#,0,x&) données wieder comme Dossier Sauver
Dispose bereich#
EndIf
ENDPROC
-------------------- qui VERSCHLÜSSELUNG klappt !
.......
x&=@FileSize(tabelle$)
Si x&>0
Faible bereich#,x&
ReadFileQuick(addr(tabelle$),bereich#,0,x&) Dossier dans Speicherbereich inviter
CryptMem(bereich#,x&,addr(passwort$),len(passwort$)) données dans dem Bereich entschlüsseln
CsvToListview(listview&,bereich#,x&,spaltenzahl%) CSV-Dossier dans Listview einlesen
Dispose bereich#
EndIf
.....
--------------------
qui Variable spaltenzahl% wird aus einer Zusatzdatei ausgelesen
cela Mot de passe steht im Moment am Anfang des Code-Textes (soll später einer freien Eingabe céder)
si je eintschlüsseln veux, wird dans qui Statuszeile le nombre qui Einträge angezeigt (soll so son) Im Listview wird mais seulement une Spalte sur qui ganze Breite OHNE Text gezeigt - quoi fais je faux ???
Gruss
horst

01.02.2005 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Frank
Abbing

allô Horst,

hab es selber justement getestet, funktioniert einwandfrei!
Du darfst naturellement pas oublier qc, dans deinem Ziellistview auparavant déjà selber (le vide) Spalten anzulegen! CsvToListview() legt selber aucun Spalten à! Es kopiert seulement den Text convenable dans vorhandene Spalten.
Aus Csv-Fichiers automatisch Spalten anlegen peux mais SetColumnsFromMem(). Liess dir en supplément fois le Anleitung par.

01.02.2005 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

AHAAA

quelquefois ist on comment vernagelt
là mon Programme Listviews avec jusque 24 Spalten erstellt et qui Titel cette Spalten libre eingegeben volonté, volonté cet zusammen avec qui Spaltenzahl comme simple Textdatei gespeichert. avec qui Procedur SPALTEN_AUFBAU volonté cet Informationen lire. cela J'ai eu im vorherigen Text derrière CsvToListview(.... stehen et sans qui Verschlüsselung funktioniert es aussi. maintenant steht qui Aufruf auparavant et alles klappt !
merci
CSV_DATEN tabelle$
SPALTEN_AUFBAU ici était qui le chien begraben !!!!
bytes&=@FileSize(tabelle$)
Si bytes&>0
Faible bereich#,bytes&
ReadFileQuick(addr(tabelle$),bereich#,0,bytes&) Dossier dans Speicherbereich inviter
CryptMem(bereich#,bytes&,addr(passwort$),len(passwort$)) données dans dem Bereich entschlüsseln
x&=SetColumnsFromMem(listview&,bereich#,addr(y&))
CsvToListview(listview&,bereich#,bytes&,spaltenzahl%) CSV-Dossier dans Listview einlesen
Dispose bereich#
EndIf
Gruss
horst