Entwickler-Ecke
Dateizugriff - Problem mit ReadFile
scrooge - Fr 11.07.03 19:37
Titel: Problem mit ReadFile
Hi,
ahb da ein Problem mit CreateFile etc. Un zwar hab ich in eine Datei Records (Integer, wParam, lParam, TDateTime) geschrieben. Hab gehofft das auf die gleiche Methode wieder aus lesen zu können, bekomme allerdings ne Fehlermeldung. Hab den verwendeten Code unten mal aufgeführt.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| var HookData:array of THookData; PHookData :^THookData;
begin
setlength(HookData, 2);
s := Edit1.text;
DataFile := CreateFile(Pchar(s),GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
for i := 1 to SizeofFile div sizeof(THookData) do
begin
ReadFile(DataFile, PHookData, sizeof(THookData),h,nil);
HookData[i] := PHookData^;
end; |
Moderiert von 
Tino: Delphi-Tags hinzugefügt.
Andreas Pfau - Fr 11.07.03 20:45
Ich glaube, du musst erstmal mit New(PHookData) ausführen, um der Variable Speicher zuzuweisen.
Oder:
Delphi-Quelltext
1:
| ReadFile (DataFile, @HookData[i], sizeof(THookData),h,nil); |
Das würde ich machen.
Moderiert von Tino: Delphi-Tags hinzugefügt.
scrooge - Fr 11.07.03 21:50
Hab da ganze jetzt mal so probiert:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| New(PHookData);
s := Edit2.Text;
DataFile := CreateFile(Pchar(s),GENERIC_READ or GENERIC_WRITE,
0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
int2 := GetFileSize(DataFile, nil);
setlength(HookData, int2 div sizeof(THookDAta) + 1);
for i := 1 to int2 div sizeof(THookData) do
begin
ReadFile(DataFile, PHookdata, sizeof(THookData),h,nil);
HookData[i] := PHookDAta^;
end; |
die zweite Variante kommt erst gar nicht durch die Fehlersuche ohne, dass der Arlam schlägt.
Moderiert von Tino: Delphi-Tags hinzugefügt.
Andreas Pfau - Fr 11.07.03 22:00
Welche Fehlermeldung genau?
AndyB - Fr 11.07.03 23:07
Ich tippe stark auf EAccessViolation.
Du setzt erstens die Länge von HookData auf 2, liest aber sicher mehr ein und dann zeigt, wie Andreas Pfau schon bemerkt hat, PHookData ins Nirana.
Mit einem TFileStream würdest du dir das Leben etwas einfacher machen.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| var HookData:array of THookData;
begin
s := Edit1.Text;
DataFile := CreateFile(PChar(s), GENERIC_READ or GENERIC_WRITE,
0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
...
SetLength(HookData, SizeofFile div SizeOf(THookData));
ReadFile(DataFile, @HookData[0], SizeofFile, h, nil);
... |
scrooge - So 13.07.03 14:41
Hi,
hab das mal mit nem FileStream probiert und es klappt. Nur noch ne letzte Frage: Da ich das ganze mit einem Hook verbunden hab, der die Eingaben bei jedem AUfruf der Hook-Funktion speichert, musste ich das ganze in eine Dll auslagern. Das Problem ist jetzt, dass ich ne Proc hab mit der man den fertigen Hook erstellen kann.In diser Proc kann man unter anderem den Datei-Namen für die Log Datei angeben. Und genau hier ein Problem.Wenn ich in der Hook-Proc jedesmal neu die Datei öffne, stzelle ich plötzich fest, dass der String in dem ich den Datei-Namen gespeichert habe plötzlich leer ist. Wenn ich die Datei einmal z.B mit einem FileStream oder CreateFile öffne (in der Proc mit der ich den Hook erstelle) und dann in der Hook-Proc einfach darauf zugreifen will um weitere Einträge zu machen, führt der die Hook-Proc erst gar nicht aus.
wIe krieg das jetzt also hin, dass der die Hook-Infos in die Datei einträgt und ich mir trotzdem den Log-Filename aussuchen kann ??
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!