Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Anzahl von Bytes aus Datei ausschneiden/löschen (https://www.delphipraxis.net/88071-anzahl-von-bytes-aus-datei-ausschneiden-loeschen.html)

bitsetter 14. Mär 2007 12:30

Re: Anzahl von Bytes aus Datei ausschneiden/löschen
 
@himitsu

in der Delphi 6 PE Hilfe steht ja auch PosEx drin, wenn ich die StrUtils einbinde, findet er jedoch kein PosEx. Warum eigentlich nicht ?:?: In Delphi 2005 PE klappt es problemlos.

EDIT: Na gut in der Code- Lib steht auch PosEx drin.

Bea 14. Mär 2007 13:17

Re: Anzahl von Bytes aus Datei ausschneiden/löschen
 
Liste der Anhänge anzeigen (Anzahl: 4)
Hallo,
vielen, vielen Dank, dass ihr mir hier so schnell helft.

Also es funktionieren soweit erstmal alle beiden Varianten von marabu und bitsetter.
Bei marabu entsteht auch schon gleich die benötigte .pcl-Datei.
Wenn ich diese nun über den Converter schicke
"C:\Programme\VeryPDF PCL Converter v2.0\pcltool.exe" "C:\Test.pcl" "C:\Test.tif"
steht aber auf der ersten Seite immer noch Zeug, was nicht dahingehört.

Ich hab sie mal mit angehangen (Test_nicht_okay.pcl) (Test_nicht_okay.tif).
(Musste nur die .pcl-Dateien in .txt umbenennen)

Ich glaube, es wird einmal zu viel folgendes Stück am Anfang "%-12345X*c0F&f6X" mit herausgeschnitten.

Folgende Datei hab ich mit UltraEdit händisch bearbeitet und genau so sollte es am Ende dann aussehen:
Anhang(Test_okay.pcl) (Test_okay.tif)


In der Version von bitsetter sieht der auszuschneidende String im Memofeld auch erstmal gut aus,
nur wie schreibe ich dort dann den Rest in die neue pcl-Datei?

Die Anmerkung von himitsu verstehe ich nicht.

Helft ihr mir bitte noch weiter, ich bin euch wahnsinnig dankbar.
CU Bea

marabu 14. Mär 2007 16:47

Re: Anzahl von Bytes aus Datei ausschneiden/löschen
 
Hallo Bea,

ich habe einen Fehler in meinem code sample (Beitrag #8, Zeile #37) korrigiert und ein Test bei mir hat das richtige Ergebnis produziert. Da du den Fehler anhand des Ergebnisses nicht sofort erkannt hast, vermute ich, dass du auch den Code gar nicht nachvollzogen hast. Du solltest das unbedingt nachholen, denn "fremder" Code in eigenen Programmen ist wie Gift.

Nachdenkliche Grüße

bitsetter 14. Mär 2007 19:06

Re: Anzahl von Bytes aus Datei ausschneiden/löschen
 
Hallo,

ich habe den Code weiter oben jetzt so abgeändert, das er den geänderten Buffer als "PCL" Datei abspeichert.
Aus dem Buffer wurde praktisch der ausgegebene Inhalt vom Memo ausgeschnitten und dann als "PCL" Datei abgespeichert.
Deine Test_okay.pcl Datei habe ich nicht gefunden.
Meine CSA Ausgangstdatei war jedenfalls 74.490 Bytes groß und meine PCL End Datei 73.965 Bytes also 525 Bytes kleiner. Das war meiner Meinung nach die Aufgabenstellung, ansonsten habe ich es wohl falsch verstanden.
Warum deine Dateien nun größer geworden sind kann ich nicht verstehen, etwa ein Missverständnis?

Himitsu meinte wohl meine Funktion PosEx_().

Bea 16. Mär 2007 09:19

Re: Anzahl von Bytes aus Datei ausschneiden/löschen
 
Hallo ihr lieben fleißigen Helfer, :coder:

ich danke euch nochmals ganz doll für eure schnelle, kompetente Hilfe.
Ihr seid wirklich Spitze. :thumb:
Es funktionieren jetzt beide Varianten von marabu und bitsetter einwandfrei. :dancer:

Marabu, du hast natürlich recht, dass ich den Quellcode noch nicht richtig verstanden habe,
aber ich garantiere dir, dass ich mich intensiv damit beschäftigen werde.
Wenn ihr Lust habt und euch die Mühe noch machen möchtet,
könntet ihr mir ja die Quelltexte noch etwas kommentieren,
aber ich möchte jetzt auch nicht unverschämt sein, ihr habt mir eh schon so viel geholfen.
Ich hoffe, ich kann durch debuggen verschiedenen Schritte logisch erkennen und verstehen
und lerne dadurch wieder was dazu.

Ich dank euch also nochmals und hoffe, ich kann beim nächsten Mal wieder auf euch zählen. :kiss:

CU Bea


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:50 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz