Datei als array of byte einlesen

[tofse]

Hallo,
danke für die schnelle Antwort.
Leider funktioniert das nicht, wie gewünscht. Es läuft alles ohne Fehler durch, aber ich muss das array of byte ja an eine Funktion übergeben, die nicht von mir ist.
Die Verarbeitung läuft auch durch, aber das, was am Ende rauskommt, lässt sich nicht mehr öffnen. Das ist jetzt schwer im Detail zu erklären, aber die Funktion packt das PDF in einen DICOM container, nachdem es als array of byte eingelesen wurde und schickt es an einen Server. Dort lässt sich das DICOM dann nicht weiterverarbeiten. Mit der anderen Routine von mir klappt das.

Gruß
Christof

[nahpets]

Es gibt die globale Variabel FileMode, über die gesteuert wird, wie eine Datei geöffnet wird und was andere gleichzeitig mit der Datei machen dürfen.

Der Standard ist fmOpenReadWrite, das dürfte für dich aber nicht relevant sein. Versuch es mal mit:

fmShareDenyNone. Andere haben uneingeschränkten Zugriff.

Oder eventuell:

fmOpenRead. Nur Lesezugriff.

Ansonsten hier mal nachschauen: http://docwiki.embarcadero.com/Libra...ystem.FileMode

[Neutral General]

Zitat von tofse:

Hallo,
danke für die schnelle Antwort.
Leider funktioniert das nicht, wie gewünscht. Es läuft alles ohne Fehler durch, aber ich muss das array of byte ja an eine Funktion übergeben, die nicht von mir ist.
Die Verarbeitung läuft auch durch, aber das, was am Ende rauskommt, lässt sich nicht mehr öffnen. Das ist jetzt schwer im Detail zu erklären, aber die Funktion packt das PDF in einen DICOM container, nachdem es als array of byte eingelesen wurde und schickt es an einen Server. Dort lässt sich das DICOM dann nicht weiterverarbeiten. Mit der anderen Routine von mir klappt das.

Ich behaupte einfach mal ganz dreist dass, das nicht an meiner Methode liegt.
In dem buffer-Array sollte am Ende von deiner und meiner Methode exakt das gleiche drin stehen.

Und wenn dus schon mit den uralt-Funktionen machst, dann lies bitte nicht jedes Byte einzeln aus der Datei :/

[tofse]

Zitat von Neutral General:

Ich behaupte einfach mal ganz dreist dass, das nicht an meiner Methode liegt.
In dem buffer-Array sollte am Ende von deiner und meiner Methode exakt das gleiche drin stehen.

Und wenn dus schon mit den uralt-Funktionen machst, dann lies bitte nicht jedes Byte einzeln aus der Datei :/

Hallo,
so hat es funktioniert

Delphi-Quellcode:

 datei := TFileStream.Create(FPdf, fmOpenRead);
 try

     SetLength(buffer, datei.Size);
     datei.Read(buffer[1], datei.Size);
 finally
     datei.Free;
 end;

[Neutral General]

Zitat von tofse:

Hallo,
so hat es funktioniert

Du hast 2 Möglichkeiten:

1) NICHT ZU EMPFEHLEN

Delphi-Quellcode:

datei := TFileStream.Create(FPdf, fmOpenRead);
try
   SetLength(buffer, datei.Size+1); // +1 !
   datei.Read(buffer[1], datei.Size);
finally
   datei.Free;
end;

wenn du schon ab Index 1 einliest, dann muss das Array 1 Byte größer sein oder das letzte Byte steht in der Pampa was böse in die Hose gehen kann.

2) Besser:

Delphi-Quellcode:

datei := TFileStream.Create(FPdf, fmOpenRead);
try
   SetLength(buffer, datei.Size);
   datei.Read(buffer[0], datei.Size);
finally
   datei.Free;
end;

Und du passt deine anderen Methoden zum verarbeiten der PDF an, sodass diese ab buffer[0] anfangen zu lesen und nicht ab buffer[1]!
Das ist nämlich dein wahres Problem

[tofse]

Zitat von Neutral General:

Und du passt deine anderen Methoden zum verarbeiten der PDF an, sodass diese ab buffer[0] anfangen zu lesen und nicht ab buffer[1]!
Das ist nämlich dein wahres Problem

Ok, habe ich verstanden, geht aber nicht, da nicht von mir.
Deshalb verwende ich die Variante 1

Dennoch danke!

[Neutral General]

Aber der Code ist doch vorhanden oder nicht?
Bzw. einer deiner Kollegen o.ä. hat den Code doch geschrieben oder nicht?

Also wenn der Code vorhanden ist dann beheb den Fehler selbst oder sag dem Bescheid der das verbrochen hat.

[Redeemer]

Ich werfe noch TBytesStream in die Runde.

Zitat von nahpets:

Es gibt die globale Variabel FileMode, über die gesteuert wird, wie eine Datei geöffnet wird und was andere gleichzeitig mit der Datei machen dürfen.

Der Standard ist fmOpenReadWrite, das dürfte für dich aber nicht relevant sein. Versuch es mal mit:

fmShareDenyNone. Andere haben uneingeschränkten Zugriff.

Oder eventuell:

fmOpenRead. Nur Lesezugriff.

Ansonsten hier mal nachschauen: http://docwiki.embarcadero.com/Libra...ystem.FileMode

Mich irritiert der Satz in der Doku: "Hinweis: Unter Windows wird der Parameter Rights ignoriert."
Ist das wirklich so? Also zumindest bei fmCreate kann man Rights nicht angeben (ist immer fmShareExclusive), aber beim Rest ging das glaube ich...

[Uwe Raabe]

Zitat von Redeemer:

Mich irritiert der Satz in der Doku: "Hinweis: Unter Windows wird der Parameter Rights ignoriert."
Ist das wirklich so?

Da hat die Doku durchaus Recht! Die fmShareXXX Attribute müssen mit dem Mode-Parameter (fmCreate/fmOpenXXX) per OR verknüpft werden. Der Parameter Rights wird unter Windows nicht ausgewertet.

Zitat von Redeemer:

Also zumindest bei fmCreate kann man Rights nicht angeben (ist immer fmShareExclusive), aber beim Rest ging das glaube ich...

Das stimmt nicht so ganz. Bei fmCreate wird nur dann fmShareExclusive verwendet, wenn als Mode $FFFF bzw. fmCreate OR $FF übergeben wird. Dabei wird aber auch das fmCreate quasi herausgenommen und eben nur fmShareExclusive übergeben.

Der Rights-Parameter wird sogar ausschließlich beim fmCreate ausgewertet und das auch nur unter POSIX. Dabei wird die Datei mit den angegebenen Zugriffsrechten angelegt. Beim Öffnen einer existierenden Datei würde das Ändern der Zugriffsrechte ja auch keinen Sinn ergeben.

[Redeemer]

Wie kann ich denn bei TFileStream eine Datei nicht-exklusiv erstellen und öffnen?