 |
| |
|
|
 |
Autor |
Nachricht |
 |
| |
| Coder |
#1| Verfasst am: 29.08.2008, 16:36 Titel: Dateien mit 3, GB mit Delphi 3 beatbeiten/Editieren möglich? |
 |
|
|
|
Mitglied
Status: offline
Beiträge: 146
angemeldet: 27.02.2004
Wohnort: Osnabrück
Delphi 3 Professional
|
Sprache: Delphi (Win32)
Hallo, ich möchte 2 Dateien bearbeiten, die aber je ca. 3 GB groß sind.
Unter Delphi erhalte ich nur eine | Zitat: | | Exception der Klasse EFOpenError.folgende Datei [Dateipfad+Name] kann nicht geöffnet werden |
.
Wenn ich eine kleinere Datei (getestet mit 1,78 GB Datei) öffne habe ich keine Probleme.
Hab schon mit Delphi5 versucht und daher den Code mit int64 angepaßt. Erfolglos.
Gleiche Fehlermeldung.
 Delphi-Quellcode: | zusammenfalten | markieren | 1
·
·
·
5
·
·
·
·
10
·
·
·
·
15
·
17
| procedure TForm1.Button4Click(Sender: TObject);
var fn: TFileName;
newSize: int64;
Siz, i, v: integer;
dd, t, s: string;
begin
if Edit1.Text = '' then exit;
fn := Edit1.Text;
with TFileStream.Create(fn, fmOpenReadWrite) do
begin
s := inttostr(Size);
Free;
end;
Label5.Caption := 'Dateigröße: ' + s + ' Byte';
end;
Siz:=Strtoint64(dd);
end; |
|
Woran liegt das?
hat das was mit Dateien mit weniger als 214483647 Bytes und TStream zu tun?
was kann ich tun?
Besonders, wenn ich später mal die SIZE vom TStream/ der Datei verändern möchte? |
ICQ: 204141443
Delphi 3 Professional |
  |
|
|
|
| |
| shmia |
#2|Verfasst am: 29.08.2008, 16:43 Titel: Re: Dateien mit 3, GB mit Delphi 3 beatbeiten/Editieren mögl |
|
|
|
|
Mitglied
Status: offline
Beiträge: 4.017
angemeldet: 02.03.2004
Delphi 5 Professional
|
Die Eingabe des Dateinamens erfolgt über ein Edit-Feld und das ist schlecht,
denn wie leicht begeht man einen Tippfehler!!!
Also entweder einen OpenFileDialog benützen oder zumindest prüfen, ob die Datei überhaupt existiert.
| Delphi-Quellcode: | markieren | if Edit1.Text = '' then exit;
fn := Edit1.Text;
if not FileExists(fn) then raise Exception.CreateFmt('Datei <%s> existiert nicht', [fn]); // <====
with TFileStream.Create(fn, fmOpenReadWrite) do |
|
|
|
| |
|
|
|
| |
| Coder |
#3|Verfasst am: 29.08.2008, 17:12 Titel: Re: Dateien mit 3, GB mit Delphi 3 beatbeiten/Editieren mögl |
|
|
|
|
Mitglied
Status: offline
Beiträge: 146
angemeldet: 27.02.2004
Wohnort: Osnabrück
Delphi 3 Professional
|
ist gegeben.
Ein weiterer Button fügt per
if Opendialgo.execute begin Edit1.text := OpenDialog1.Exename end;
den Dateinamen direkt in den Edit1.text ein.
Die Dateien existieren auch und haben kurze eindeutige Dateinamen und liegen ein einem kurzen Dateipfad (C:\Test\Datei1.dat)
Ebenso bietet die kleinere 1,7 GB Datei gleiche Vorausssetungen, aber damit funktionoiert es.
Es muß also an der Dateigröße von etvl. 3 GB liegen 
aber da muß es doch eine Lösung für geben?
was haben die Programmierer 1997 ode wenigstens 1999 gemacht? |
ICQ: 204141443
Delphi 3 Professional |
| |
|
|
|
| |
| grenzgaenger |
#4|Verfasst am: 29.08.2008, 17:21 Titel: Re: Dateien mit 3, GB mit Delphi 3 beatbeiten/Editieren mögl |
|
|
|
|
ehem. Benutzer
|
damals war bei 2 GB maximal schluss ... 
propier es mal mit dem guten alten assign/reset/readln ... vielleicht hilfts ...
ist zwar seit d1 auch eine FS kappselung ... aber vielleicht etwas anders implementiert... |
|
| |
|
|
|
| |
| Coder |
#5|Verfasst am: 29.08.2008, 18:21 Titel: Re: Dateien mit 3, GB mit Delphi 3 beatbeiten/Editieren mögl |
|
|
|
|
Mitglied
Status: offline
Beiträge: 146
angemeldet: 27.02.2004
Wohnort: Osnabrück
Delphi 3 Professional
|
ja, hatte zuvor auch schon daran gedacht.
| Delphi-Quellcode: | markieren | var F: File;
Fs, S: String;
begin
Assignfile(F, Edit1.text);
reset (F);
FS := inttostr(Filesize (f));
Closefile (f);
End; |
|
doch da kommt "I/O-Fehler 32"
("mit OK")
sonst nix
was gibt's denn noch?
jemand meinte "Createfilex"
 http://msdn.microsoft.com/en-us/library/aa912087.aspx
doch davon hab ich gar keine Ahnung. |
ICQ: 204141443
Delphi 3 Professional |
| |
|
|
|
| |
| grenzgaenger |
#6|Verfasst am: 29.08.2008, 18:25 Titel: Re: Dateien mit 3, GB mit Delphi 3 beatbeiten/Editieren mögl |
|
|
|
|
ehem. Benutzer
|
und was heisst #32?  |
|
| |
|
|
|
| |
| himitsu |
#7|Verfasst am: 29.08.2008, 18:25 Titel: Re: Dateien mit 3, GB mit Delphi 3 beatbeiten/Editieren mögl |
|
|
|
|
sehr aktives Mitglied
Alter: 29
Status: online
Beiträge: 6.609
angemeldet: 11.10.2003
Wohnort: Elbflorenz
|
solange man bei AssignFile/Reset/ReadLn enbenso bei den FileStreams die Angaben zur Dateigröße und der Dateipositon, sowie EOF ignoriert, dann ist die Dateigröße unbegrenzt (jedenfalls programmseitig).
Also sequentielles Lesen oder Schreiben sollte dennoch mit ReadLn/WriteLn/BlockRead/BlockWrite und TFileStream möglich sein.
mit ReadLn/WriteLn sollte aber insgesamt immernoch bei 2GB Schluß sein,
aber TFileStream arbeitet bekanntlich mit Int64 und wär demnach doch unbegrenzt.  |
Und dann war da noch der junge Mann, der unbedingt Schriftsteller werden wollte.
Er wollte Emotionen wecken und die Leute zum weinen bringen.
Sein Traum wurde wahr ... er verfasst heute die Fehlermeldungen bei Microsoft!
 Zuletzt bearbeitet von himitsu am 29.08.2008, 18:26, insgesamt 1-mal bearbeitet. |
| |
|
|
|
| |
| Coder |
#8|Verfasst am: 29.08.2008, 18:42 Titel: Re: Dateien mit 3, GB mit Delphi 3 beatbeiten/Editieren mögl |
|
|
|
|
Mitglied
Status: offline
Beiträge: 146
angemeldet: 27.02.2004
Wohnort: Osnabrück
Delphi 3 Professional
|
ich hatte es mit TfileStream unter Delphi 5 Std versucht (D 3 kennt ja kein int64)
keine Veränderung.
das Blöde ist, daß ich nicht genug Platz auf der HDD hab um die Datei mit irgendwas in 2 GB und 1,5 GB zu splitten. Sonst würde ich das versuchen. |
ICQ: 204141443
Delphi 3 Professional |
| |
|
|
|
| |
| grenzgaenger |
#9|Verfasst am: 29.08.2008, 20:34 Titel: Re: Dateien mit 3, GB mit Delphi 3 beatbeiten/Editieren mögl |
|
|
|
|
ehem. Benutzer
|
glaube fast, so einen thread gabs hier schon mal... denke die SuFu wird vom nutzen sein...
so weit ich mich erinnere, soll es glaub ich über die WinAPI klappen...
woher kommt denn die monster datei? |
|
| |
|
|
|
| |
| 0xF30FC7 |
#10|Verfasst am: 29.08.2008, 22:39 Titel: Re: Dateien mit 3, GB mit Delphi 3 beatbeiten/Editieren mögl |
|
|
|
|
Mitglied
Status: offline
Beiträge: 119
angemeldet: 11.05.2008
|
Windows API ist Dein Freund:
 CreateFile ReadFile WriteFile SetFilePointer GetFileSize CloseHandle
Fürs Arbeiten mit großen Dateien (> 2GB) sind die Parameter lpDistanceToMoveHigh und lpFileSizeHigh von Relevanz und müssen mit angegeben werden. Ansonsten funktioniert der Zugriff auf Große Dateien exakt identisch mit dem Zugriff auf normale Dateien. |
|
| |
|
|
|
| |
| Christian Seehase |
#11|Verfasst am: 29.08.2008, 23:12 Titel: Re: Dateien mit 3, GB mit Delphi 3 beatbeiten/Editieren mögl |
|
|
|
|
Super-Moderator
Alter: 45
Beiträge: 10.822
angemeldet: 29.05.2002
Wohnort: Hamburg
Delphi 7 Professional
|
Moin Coder,
| Coder hat folgendes geschrieben: | ich hatte es mit TfileStream unter Delphi 5 Std versucht (D 3 kennt ja kein int64)
keine Veränderung.
|
wenn ich mich recht entsinne, kann TFileStream in D5 auch nur bis 2GB grosse Dateien verarbeiten.
Da bleibt Dir wohl wirklich nur die, schon angesprochene, Variante, direkt die API-Funktionen zu benutzen. |
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist |
| |
|
|
|
| |
| himitsu |
#12|Verfasst am: 31.08.2008, 07:31 Titel: Re: Dateien mit 3, GB mit Delphi 3 beatbeiten/Editieren mögl |
|
|
|
|
sehr aktives Mitglied
Alter: 29
Status: online
Beiträge: 6.609
angemeldet: 11.10.2003
Wohnort: Elbflorenz
|
ansonsten gibt es hier in der DP auch einige private FileStream-Varianten
such dir einfach eine und ändere das Int64 durch etwas, was dein Delphi kennt (Comp?)
z.B.: http://www.delphipraxis.net/topic134059_mapped+streams.html
(find jetzt auf die Schnell keine Anderen, aber es gibt noch ein paar ... nja, meine NonClass-Variante würde ich dir wohl besser nicht empfehlen  ) |
Und dann war da noch der junge Mann, der unbedingt Schriftsteller werden wollte.
Er wollte Emotionen wecken und die Leute zum weinen bringen.
Sein Traum wurde wahr ... er verfasst heute die Fehlermeldungen bei Microsoft! |
| |
|
|
|
|
|
|
| |
|
|
| |
 
  
|
|
| |
|
Du darfst keine Beiträge in dieses Forum schreiben.
Du darfst auf Beiträge in diesem Forum nicht antworten.
Du darfst Deine Beiträge in diesem Forum nicht bearbeiten.
Du darfst Deine Beiträge in diesem Forum nicht löschen.
Du darfst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten.
Du kannst Dateien in diesem Forum nicht herunterladen.
|
|
|
Site-Map
Suchen
Code-Library
Registrieren
Login
