Hier mal der reduzierte Source-code und im Archiv das
XML File und die pdf Dateien, wie sie mit BDS2006 und D2009 rauskommen.
procedure TForm.ExtractPDF(Sender: TObject);
var
F,F2:TextFile;
field,value:string;
Line:Ansistring;
line2:widestring;
begin
AssignFile(F,'C:\MEDIUS\Clips\1.xml');
Reset(F);
while not EOF(F) do
begin
Readln(F,line);
field := copy(line,Pos('<',line)+1,Pos('>',line)-Pos('<',line)-1);
line := copy(line,Pos('>',line)+1,length(line)-Pos('>',line));
if Pos('</',line) > 0
then value := copy(line,1,Pos('</',line)-1)
else value := line;
if field = 'FileData' then line2 := IdDecoderMIME1.DecodeString(value);
end;
CloseFile(F);
AssignFile(F2,'C:\Medius\Clips\1.pdf');
ReWrite(F2);
Write(F2,line2);
CloseFile(F2);
end;