Rellenar una plantilla en PDF

[jcmolero]

Buenos Dias,
os comento mi problema. Estoy intentando hacer una aplicación Dephi, que sea capaz de coger los datos de una base de datos y llevarlos hasta una plantilla en PDF (formularios del INEM, cartas de pago, etc.) pero no tengo ni idea de cómo hacerlo. Llevo varios dias investigando pero nada, no hay forma. Os estaría muy agradecido si me pudieseis ayudar. Gracias de antemano, saludos.

[Neftali [Germán.Estévez]]

¿No te valdría generar el fichero en otro formato (RTF, DOC, TXT,... - o cualquier Generador de reports-) y luego convertirlo a PDF?

O sea tener la plantilla en algo "más accesible" que un PDF.

[jcmolero]

gracias por tu respuesta, podria hacerlo, pero esos pdf´s ya están creados por el inem, y otros organismos oficiales, por lo que debo ceñirme a su plantilla. He visto un programa (Nominaplus) que rellena esos documentos desde sus bases de datos, por eso sé que debe existir alguna manera de hacerlo, aunque la verdad es que yo no tengo ni idea. Saludos

[Spynosa]

el trabajo es un poco pesado pero yo me curre uno asi:

Código Delphi [-]
 procedure TForm1.BitBtn1Click(Sender: TObject);
 var g:file of byte;
     l,cd:byte;
     nombrefichero:string;
     yy,mm,dd:word;
     mvar:string;
 procedure escribe (dato,nombrecampo:string);
 var c:byte;
 begin
     l:=32;write(g,l);
     l:=60;write(g,l);
     l:=60;write(g,l);
     l:=32;write(g,l);
     l:=47;write(g,l);
     l:=86;write(g,l);
     l:=32;write(g,l);
     l:=40;write(g,l);
     for c:=1 to length(dato) do
     begin
         l:=ord(dato[c]);write(g,l);
     end;
     l:=41;write(g,l);
     l:=47;write(g,l);
     l:=84;write(g,l);
     l:=32;write(g,l);
     l:=40;write(g,l);
     for c:=1 to length(nombrecampo) do
     begin
         l:=ord(nombrecampo[c]);write(g,l);
     end;
     l:=41;write(g,l);
     l:=62;write(g,l);
     l:=62;write(g,l);
 end;
 begin
 nombrefichero:='estadisticas.pdf';
 assignfile(g,'.\estadis.fdf');
    rewrite(g);
 l:=37;write(g,l);
 l:=70;write(g,l);
 l:=68;write(g,l);
 l:=70;write(g,l);
 l:=45;write(g,l);
 l:=49;write(g,l);
 l:=46;write(g,l);
 l:=50;write(g,l);
 l:=13;write(g,l);
 l:=37;write(g,l);
 l:=226;write(g,l);
 l:=227;write(g,l);
 l:=207;write(g,l);
 l:=211;write(g,l);
 l:=13;write(g,l);
 l:=10;write(g,l);
 l:=49;write(g,l);
 l:=32;write(g,l);
 l:=48;write(g,l);
 l:=32;write(g,l);
 l:=111;write(g,l);
 l:=98;write(g,l);
 l:=106;write(g,l);
 l:=13;write(g,l);
 l:=60;write(g,l);
 l:=60;write(g,l);
 l:=32;write(g,l);
 l:=13;write(g,l);
 l:=47;write(g,l);
 l:=70;write(g,l);
 l:=68;write(g,l);
 l:=70;write(g,l);
 l:=32;write(g,l);
 l:=60;write(g,l);
 l:=60;write(g,l);
 l:=32;write(g,l);
 l:=47;write(g,l);
 l:=70;write(g,l);
 l:=105;write(g,l);
 l:=101;write(g,l);
 l:=108;write(g,l);
 l:=100;write(g,l);
 l:=115;write(g,l);
 l:=32;write(g,l);
 l:=91;write(g,l);
 
 //escribe('Si','a2');
 escribe(edit1.text,'b1');
 decodedate(actual.date,yy,mm,dd);
 mvar:=inttostr(dd);
 if length(mvar) = 1 then
    begin
      escribe('0','b2d');escribe(mvar,'b2m');
    end
      else begin escribe(mvar[1],'b2d');escribe(mvar[2],'b2m');
    end;
 //**********
 mvar:=inttostr(mm);
 if length(mvar) = 1 then
    begin
      escribe('0','b2m1');escribe(mvar,'b2m2');
    end
      else begin escribe(mvar[1],'b2m1');escribe(mvar[2],'b2m2');
    end;
 //*******
 mvar:=inttostr(yy);
      escribe(mvar[1],'b2a1');escribe(mvar[2],'b2a2');
      escribe(mvar[3],'b2a3');escribe(mvar[4],'b2a4');
 //*******
 decodedate(f1.date,yy,mm,dd);
 mvar:=inttostr(dd);
 if length(mvar) = 1 then
    begin
      escribe('0','b21');escribe(mvar,'b22');
    end
      else begin escribe(mvar[1],'b21');escribe(mvar[2],'b22');
    end;
 //**********
 mvar:=inttostr(mm);
 if length(mvar) = 1 then
    begin
      escribe('0','b23');escribe(mvar,'b24');
    end
      else begin escribe(mvar[1],'b23');escribe(mvar[2],'b24');
    end;
 //*******
 mvar:=inttostr(yy);
      escribe(mvar[1],'b25');escribe(mvar[2],'b26');
      escribe(mvar[3],'b27');escribe(mvar[4],'b28');
 //segundafecha
   if chf.Checked then
   begin
    decodedate(f2.date,yy,mm,dd);
    mvar:=inttostr(dd);
    if length(mvar) = 1 then
    begin
      escribe('0','b29');escribe(mvar,'b210');
    end
      else begin escribe(mvar[1],'b29');escribe(mvar[2],'b210');
    end;
 //**********
    mvar:=inttostr(mm);
    if length(mvar) = 1 then
     begin
       escribe('0','b211');escribe(mvar,'b212');
     end
      else begin escribe(mvar[1],'b211');escribe(mvar[2],'b212');
     end;
 //*******
      mvar:=inttostr(yy);
      escribe(mvar[1],'b213');escribe(mvar[2],'b214');
      escribe(mvar[3],'b215');escribe(mvar[4],'b216');
 
   end;
 //fin segundafecha
 try
      mvar:=edit2.Text;
      escribe(mvar[1],'b217');escribe(mvar[2],'b218');
      escribe(mvar[4],'b219');escribe(mvar[5],'b220');
 except
 //    MessageDlg('Error en la fecha', mtWarning, [], 0);
 end;
    if che.Checked then
    begin
    try
        mvar:=edit3.Text;
        escribe(mvar[1],'b221');escribe(mvar[2],'b222');
        escribe(mvar[4],'b223');escribe(mvar[5],'b224');
    except
    end;
    end;
    escribe(edit4.text,'e3');
    if t1.Checked then escribe('Si','1310');
    if t2.Checked then escribe('Si','1322');
    if t3.Checked then escribe('Si','1324');
    if t4.Checked then escribe('Si','1380');
    if c1.Checked then escribe('Si','g2');
    if c2.Checked then escribe('Si','g1');
    escribe('Si','h1');
    escribe(edit5.text,'dni');
 l:=32;write(g,l);
 l:=13;write(g,l);
 l:=93;write(g,l);
 l:=32;write(g,l);
 l:=13;write(g,l);
 l:=47;write(g,l);
 l:=70;write(g,l);
 l:=32;write(g,l);
 l:=40;write(g,l);
 //********
     for cd:=1 to length(nombrefichero) do
     begin
         l:=ord(nombrefichero[cd]);write(g,l);
     end;
 //********
 l:=41;write(g,l);
 l:=62;write(g,l);
 l:=62;write(g,l);
 l:=32;write(g,l);
 l:=13;write(g,l);
 l:=62;write(g,l);
 l:=62;write(g,l);
 l:=32;write(g,l);
 l:=13;write(g,l);
 l:=101;write(g,l);
 l:=110;write(g,l);
 l:=100;write(g,l);
 l:=111;write(g,l);
 l:=98;write(g,l);
 l:=106;write(g,l);
 l:=13;write(g,l);
 l:=116;write(g,l);
 l:=114;write(g,l);
 l:=97;write(g,l);
 l:=105;write(g,l);
 l:=108;write(g,l);
 l:=101;write(g,l);
 l:=114;write(g,l);
 l:=13;write(g,l);
 l:=60;write(g,l);
 l:=60;write(g,l);
 l:=13;write(g,l);
 l:=47;write(g,l);
 l:=82;write(g,l);
 l:=111;write(g,l);
 l:=111;write(g,l);
 l:=116;write(g,l);
 l:=32;write(g,l);
 l:=49;write(g,l);
 l:=32;write(g,l);
 l:=48;write(g,l);
 l:=32;write(g,l);
 l:=82;write(g,l);
 l:=32;write(g,l);
 l:=13;write(g,l);
 l:=13;write(g,l);
 l:=62;write(g,l);
 l:=62;write(g,l);
 l:=13;write(g,l);
 l:=37;write(g,l);
 l:=37;write(g,l);
 l:=69;write(g,l);
 l:=79;write(g,l);
 l:=70;write(g,l);
 l:=13;write(g,l);
 
 closefile(g);
 ShellExecute(Form1.Handle,nil,PChar('.\estadis.fdf'),'','',SW_SHOWNORMAL);
 
 end;

espero que te sirva.