Hallo,
ich hab zwischenzeitlich nochmal versucht, eure Quelltexte so zusammenzuführen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
const Praefix = '@@DOCUWARE_';
var fs: tfilestream;
buffer, Pfad, WVerarbeitung: AnsiString;
l, Anfang, Ende, tmp, z: integer;
b: boolean;
begin
Pfad := 'C:\Test.csa';
if FileExists(Pfad) then
begin
fs:=TFileStream.Create(Pfad, fmOpenRead);
try
SetLength(Buffer, fs.Size);
l := fs.Read(buffer[1], length(buffer));
Anfang := 0;
tmp := 0;
while (Anfang < fs.size) and (tmp < fs.size - length(Praefix)) do begin
inc(tmp);
b := True;
for z := 1 to length(Praefix) do
if Buffer[tmp + z - 1] <> Praefix[z] then begin
b := false;
break;
end;
if b then
begin
for Ende := Anfang + Length(Praefix) to Length(buffer) do
begin
if (buffer[Ende] = '@') and (buffer[Ende - 1] = '@') then
break;
end;
WVerarbeitung := copy(buffer, Anfang, Ende - Anfang);
Memo1.Lines.Add(WVerarbeitung);
//...
//...WVerabeitung aus Datei ausschneiden
//...Rest der Datei unter C:\Test.pcl neu abspeichern
//...Übergabe an Converter
//..."C:\Programme\VeryPDF PCL Converter v2.0\pcltool.exe" "C:\Test.pcl" "C:\Test.tif"
//fs.Seek(0, soFromBeginning);
//fs.Write(buffer[1], length(buffer));
end;
end;
finally
fs.free;
end;
end;
end;
Aber das ist nicht richtig.
Es kommt folgendes dabei raus.
In WVerarbeitung steht dann folgendes:
Delphi-Quellcode:
%-12345X*c0F&f6X%-12345X@@
%-12345X*c0F&f6X%-12345X@@
%-12345X*c0F&f6X%-12345X@@
%-12345X*c0F&f6X%-12345X@@
%-12345X*c0F&f6X%-12345X@@
%-12345X*c0F&f6X%-12345X@@
%-12345X*c0F&f6X%-12345X@@
%-12345X*c0F&f6X%-12345X@@
%-12345X*c0F&f6X%-12345X@@
%-12345X*c0F&f6X%-12345X@@
%-12345X*c0F&f6X%-12345X@@
%-12345X*c0F&f6X%-12345X@@
%-12345X*c0F&f6X%-12345X@@
%-12345X*c0F&f6X%-12345X@@
%-12345X*c0F&f6X%-12345X@@
%-12345X*c0F&f6X%-12345X@@
Was ist denn da nun wieder los?
Helft mir doch bitte!!!
CU Bea