-
Forum: Win32/Win64 API (native code)
by Willie1,
5. Feb 2018
Hallo
Das hilft leider nicht. Frage: aLen muss kleiner als MAXINT div 2 sein? Wg. 2 Byte pro Zeichen.
Windows erzeugt selbst Dateien mit dem Schema 2 Byte für die Länge des String und dann 1 Byte pro Zeichen! Mit Hexeditor überprüft.
Willie.
-
Forum: Win32/Win64 API (native code)
by Willie1,
3. Feb 2018
Du hast recht
Das Beispiel zum Laden von Strings knallt in der Zeile
SetLength(aTxt, aLen);
mit Integer-Überlauf.
Bei einer kleinen Text-Datei fällt das nicht auf.
Über deinen Beitrag muss ich nachdenken.
Willie.
-
Forum: Win32/Win64 API (native code)
by Willie1,
2. Feb 2018
Hallo Himitsu,
ich sehe, du bist schon sehr lange dabei.8-)
1. Mein Neffe geht lieber zu LAN-Spielpartys.
2. Dein Einwand ist für mich sehr theoretisch. Kann ich dieses Konstrukt benutzen oder wird es nach dem nächsten Windows Update wieder crashen. Wie gesagt, ich will die PIN's usw. verschlüsseln und zum Schluss mit einem Passwort versehen packen.
Was hältst du von der Idee, Rar.exe zu...
-
Forum: Win32/Win64 API (native code)
by Willie1,
2. Feb 2018
Hallo!
Ausgangspunkt für mein Problem war, dass 7-zip32.dll nicht mehr funktioniert. Ich habe eine Lizenz für Winrar und da gibt das Programm Rar.exe. Ein Konsolen-Programm zum Packen und Entpacken, genau was ich brauche.. Ich sehe, es ist hier im Forum schon Thema gewesen und ich werde mal stöbern, um 7-zip durch rar zu ersetzen.
Gruß Willie.
-
Forum: Win32/Win64 API (native code)
by Willie1,
1. Feb 2018
Hallo Gollum,
ich verstehe, wie es geht aber selbst wäre ich nicht darauf gekommen!
Willie.
-
Forum: Win32/Win64 API (native code)
by Willie1,
29. Jan 2018
Hallo Gollum,
ich glaube, das ist fast die Lösung.
Mein Testbeispiel: '1234567890'
Schreiben geht in Ordnung. erst 4 Bytes für die Länge xA,0,0,0, dann 2 Bytes pro Zeichen.
Lesen noch nicht, aLen=4 Es steht '1234' da.
Willie.
-
Forum: Win32/Win64 API (native code)
by Willie1,
29. Jan 2018
Hallo,
ich bin nur Hobby-Programmierer, da fehlen mir manchmal die Grundlagen. Ich erkenne, das der String offensichtlich 2 Bytes pro Zeichen groß ist AnsiString nur 1 Byte. Diese Erkenntnis bringt mich nicht weiter. Ich muss mein Programm von Anfang an über arbeiten, flicken geht nicht. Ich werde deine Ratschläge mit ein beziehen.
Ich gehe mir schon selbst auf due Nerven aber ich habe das...
-
Forum: Win32/Win64 API (native code)
by Willie1,
28. Jan 2018
Genau das vermute ich auch. Passt ja, dass es mit Delphi 2005 ohne Fehler lief.
var Txt: string, Txt = '1234567890' gespeichert wird 31003200330034003500 (Hexeitor)! (unverschlüsselt)
var Txt: ansistring Txt = '1234567890' dann geht's. Aber sobald ein Zeilenumbruch erfolgt, geht's wieder schief.
txt:=Base64Enc(Txt); zu welcher Bibliothek gehört das.
Ich habe gelesen bei 32-Bit-Compiler...
-
Forum: Win32/Win64 API (native code)
by Willie1,
28. Jan 2018
Hallo,
TFileStream.Close gibt bei meinem Delphi nicht.
Das Problem muss woanders liegen:
var
Txt: AnsiString;
begin
if SDialog.Execute then begin
// Txt:=Verschluesseln1(Memo1.Lines.Text,true,true); //Zeile A
-
Forum: Win32/Win64 API (native code)
by Willie1,
28. Jan 2018
Hallo, in einem Forum kann ich nur schreiben und wir können leider nicht mit einander reden.
Mein Programm ist fast 10 Jahre alt und ganz einfach gestrickt. In ein Memo-Feld schreibe ich meine Passwörter und PIN's, Memo.Lines.Text wird verschlüsselt, in ein mit Passwort gesichertes 7-Zip Archiv gepackt, gespeichert und umgekehr, das ist alles. Verschlüsseln und Entschlüsseln stehen in einer...
-
Forum: Win32/Win64 API (native code)
by Willie1,
27. Jan 2018
Hallo Fukiszo, Himitsu,
Verschluesseln und Entschluesseln kommen aus der DLL. Das funktioniert jetzt einwandfrei.
Txt:=Verschluesseln(Txt,true,true);
Txt:=Entschlusseln(Txt,true,true) liefert das korrekte Ergebnis. Die DLL läuft.
Bei der Speicherung von Memo1.Lines.Text geht etwas schief. Ist Memo1.Lines.Text Unicode? Wie würdet ihr denn einen unbekannt langen String speichern/laden....
-
Forum: Win32/Win64 API (native code)
by Willie1,
25. Jan 2018
Hallo, das Problem mit der DLL hat sich erledigt. Sorry!
Die neu kompilierte DLL wurde im Quelltext-Ordner abgelegt, die alte DLL lag im Debug-Ordner, das konnte natürlich nicht funktionieren. Das Host-Programm griff daher immer auf die alte DLL zu.
Mein Programm ist ein Passwort-Safe. Die Passworte und PIN's stehen in einem Memo-Feld, werden geladen, entschlüsselt und wieder verschlüsselt...
-
Forum: Win32/Win64 API (native code)
by Willie1,
22. Jan 2018
himitsu, also das habe ich jetzt so gemacht.
function Verschluesseln(Passw: string; Ungerade: Boolean; Spiegeln: Boolean): string;
stdcall; external 'PasswSafeDLL.dll' Index 1;
function Entschluesseln(Passw: string; Ungerade: Boolean; Spiegeln: Boolean): string;
stdcall; external 'PasswSafeDLL.dll' Index 2;
procedure TForm1.Button3Click(Sender: TObject);
-
Forum: Win32/Win64 API (native code)
by Willie1,
22. Jan 2018
Jetzt habe ich auch ein Problem mit meiner DLL.
1. Borlndmm.dll erreichbar ist,
2. In der DLL ShareMem als erstes...,
3. In dem Hostprogramm ShareMem in dier DPR-Datei als erstes eingetragen ist,
dann müsste doch die Übertragung von Delpi-Strings möglich sein?
Willie.
-
Forum: Win32/Win64 API (native code)
by Willie1,
21. Jan 2018
Hallo Fukiszo,
die Windows-Lupe benutze ich ständig mit 3-facher Vergrößerung, sonst könnte ich gar nicht programmieren. Auch die Vorlesefunktion von Windowas ist inzwischen sehr gut nur bei der Delphi-IDE geht nichts!
Aber jetzt mache ich mich an Arbeit und versuche das Problem zu lösen. Willie.
-
Forum: Win32/Win64 API (native code)
by Willie1,
20. Jan 2018
Delphi 7, ist das nicht von ca 2006? Ich habe Delphi 6 geschätzt, sehr stabil und schnell.
Ich muss mir den Hinweistext in der Dll-Objektdatei oben genau durch lesen. Die grüne Schrift kann ich extrem schlecht lesen, die Vorlesefunktion von Windows versagt in der Delphi IDE leider vollständig.
Das Schöne an SevenZip.pas war seine leichte Programmeinbindung, völlig unkompliziert. Werde es...
-
Forum: Win32/Win64 API (native code)
by Willie1,
19. Jan 2018
Kleine Zwischenfrage:
ich hab' seit Ewigkeit keine DLL mehr programmiert. Braucht man Borlndmm.dll nicht mehr, wenn mann Delphi strings verarbeiten will?
Die Komponente, die ich selbst gefunden hatte, entspricht deiner. Es ist ja ein Demo Programm dabei, das sieht sehr vielversprechend aus. Kann ich diese Komponente in Delphi Berlin einbauen? Wg meiner Augenprobleme bin ich mit allem sehr...
-
Forum: Win32/Win64 API (native code)
by Willie1,
19. Jan 2018
Hallo fukiszo,
die 7-zip32.dll ist von 2007, ich habe sie von einer japanischen Webseite, bei der ich nur Download lesen konnte. Ist dein Anhang von Torry.net, dann kenne ich sie, mal sehen.
Ich melde mich...
Willie.
-
Forum: Win32/Win64 API (native code)
by Willie1,
19. Jan 2018
Hallo Leute,
ich hatte berichtet, dass ein Programm von mir, welches Exiftool ausführt plötzlich nicht mehr funktionierte. Da habt ihr mir helfen könne!
Jetzt stelle ich fest, dass ein weiteres Programm von mir, plötzlich nicht mehr funktioniert. Hier führe ich das externe Programm z-zip32.dll aus, dazu benutrze ich die Unit Sevenzip.pas. Es lief prima von Vista bis vor dem letzten Windows...