--
--
Você recebeu esta mensagem porque está inscrito no "DUG-RS -
Delphi Users Group Rio Grande do Sul" em Grupos do Google.
Acesse o nosso BLOG em http://www.dug-rs.org e contribua com a comunidade Delphi do Rio Grande do Sul
Para postar neste grupo, envie um e-mail para dug...@googlegroups.com
Para cancelar a sua inscrição neste grupo, envie um e-mail para
dug-rs-unsubscribe@googlegroups.com
Para ver mais opções, visite este grupo em
http://groups.google.com.br/group/dug-rs?hl=pt-BR
Twitter: @dugrs
http://www.facebook.com/groups/dugrs/
http://www.Vimeo.com/dugrs
---
You received this message because you are subscribed to the Google Groups "DUG-RS - Delphi Users Group Rio Grande do Sul" group.
To unsubscribe from this group and stop receiving emails from it, send an email to dug-rs+unsubscribe@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
OpenSSL? PGP? Ou é programaticamente, no Delphi? Programaticamente eu nunca vi nada parecido, mas sempre se pode usar algum wrapper da OpenSSL para Delphi e gerar um arquivo com assinatura digital no formato desejado.Ainda, usando os recursos de assinatura digital disponíveis no próprio formato PDF eu também nunca vi nada parecido em termos de API. Deve ter, mas tem que procurar.2017-07-10 14:51 GMT-03:00 Gilberto Dessbesell Jr <gdb...@gmail.com>:Boa tarde pessoal!O que vocês têm usado para assinatura digital de PDFs?Att.,
--
--
Você recebeu esta mensagem porque está inscrito no "DUG-RS -
Delphi Users Group Rio Grande do Sul" em Grupos do Google.
Acesse o nosso BLOG em http://www.dug-rs.org e contribua com a comunidade Delphi do Rio Grande do Sul
Para postar neste grupo, envie um e-mail para dug...@googlegroups.com
Para cancelar a sua inscrição neste grupo, envie um e-mail para
dug-rs-unsubscribe@googlegroups.com
Para ver mais opções, visite este grupo em
http://groups.google.com.br/group/dug-rs?hl=pt-BR
Twitter: @dugrs
http://www.facebook.com/groups/dugrs/
http://www.Vimeo.com/dugrs
---
You received this message because you are subscribed to the Google Groups "DUG-RS - Delphi Users Group Rio Grande do Sul" group.
To unsubscribe from this group and stop receiving emails from it, send an email to dug-rs+unsubscribe@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
program Digital_Signature_Demo; {$APPTYPE CONSOLE} {$R *.res} uses System.SysUtils, VCL.Graphics, gtPDFEng, gtCstPDFEng; var gtPDFEngine1: TgtPDFEngine; tNow: TDateTime; gtDigitalSignature1: TgtDigitalSignature; begin try begin // Create a new PDF document gtPDFEngine1 := TgtPDFEngine.Create(Nil); with gtPDFEngine1 do begin Preferences.ShowSetupDialog := false; FileName := 'sample_doc.pdf'; // Create a hidden digital signature with DigitalSignature do begin Enabled := true; FieldProperties.Visible := false; // hidden signature // Specify signature options with SignatureProperties do begin CertFileName := 'example-com.pfx'; // assumes current directory CertPassword := 'password'; Location := 'Bangalore'; Reason := 'Just for this demo'; DateTime := Now; end; end; BeginDoc; // Creates a page in the document // Render some text on the document Font.Size := 16; TextOut(1,1,'Long long ago, so long ago, nobody knows how long ago...'); EndDoc; // Saves document end; end except on E: Exception do begin Writeln('Error - ' + E.ClassName, ': ', E.Message); Readln; end; end; end.
Para ver mais opções, visite este grupo em
http://groups.google.com.br/group/dug-rs?hl=pt-BR
Twitter: @dugrs
http://www.facebook.com/groups/dugrs/
http://www.Vimeo.com/dugrs
---
You received this message because you are subscribed to the Google Groups "DUG-RS - Delphi Users Group Rio Grande do Sul" group.
To unsubscribe from this group and stop receiving emails from it, send an email to dug-rs+un...@googlegroups.com.
Para ver mais opções, visite este grupo em
http://groups.google.com.br/group/dug-rs?hl=pt-BR
Twitter: @dugrs
http://www.facebook.com/groups/dugrs/
http://www.Vimeo.com/dugrs
---
You received this message because you are subscribed to the Google Groups "DUG-RS - Delphi Users Group Rio Grande do Sul" group.
To unsubscribe from this group and stop receiving emails from it, send an email to dug-rs+un...@googlegroups.com.
--
Gilberto Dessbesell Jr.
"Simplicidade--a arte de maximizar a quantidade de trabalho não realizado--é essencial."
--
--
Você recebeu esta mensagem porque está inscrito no "DUG-RS -
Delphi Users Group Rio Grande do Sul" em Grupos do Google.
Acesse o nosso BLOG em http://www.dug-rs.org e contribua com a comunidade Delphi do Rio Grande do Sul
Para postar neste grupo, envie um e-mail para dug...@googlegroups.com
Para cancelar a sua inscrição neste grupo, envie um e-mail para
Para ver mais opções, visite este grupo em
http://groups.google.com.br/group/dug-rs?hl=pt-BR
Twitter: @dugrs
http://www.facebook.com/groups/dugrs/
http://www.Vimeo.com/dugrs
---
You received this message because you are subscribed to the Google Groups "DUG-RS - Delphi Users Group Rio Grande do Sul" group.
To unsubscribe from this group and stop receiving emails from it, send an email to dug-rs+un...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
--
--
Você recebeu esta mensagem porque está inscrito no "DUG-RS -
Delphi Users Group Rio Grande do Sul" em Grupos do Google.
Acesse o nosso BLOG em http://www.dug-rs.org e contribua com a comunidade Delphi do Rio Grande do Sul
Para postar neste grupo, envie um e-mail para dug...@googlegroups.com
Para cancelar a sua inscrição neste grupo, envie um e-mail para
Para ver mais opções, visite este grupo em
http://groups.google.com.br/group/dug-rs?hl=pt-BR
Twitter: @dugrs
http://www.facebook.com/groups/dugrs/
http://www.Vimeo.com/dugrs
---
You received this message because you are subscribed to the Google Groups "DUG-RS - Delphi Users Group Rio Grande do Sul" group.
To unsubscribe from this group and stop receiving emails from it, send an email to dug-rs+un...@googlegroups.com.
program TgtPDFDocument_AddSignature_Hidden; {$APPTYPE CONSOLE} uses SysUtils, gtPDFDoc, gtExPDFDoc; var gtPDFDocument1: TgtPDFDocument; begin // Create a document object gtPDFDocument1 := TgtPDFDocument.Create(Nil); try begin // Load input document gtPDFDocument1.LoadFromFile('to_be_signed_doc.pdf'); Writeln('Document opened.'); // Add a hidden signature field to a page gtPDFDocument1.AddSignature( 'F:\Downloads\sub...@gnostice.com-2010-03-04', '-- snipped --', 'To demonstrate digital signing', 'Bangalore', '+91.80.41.726.529', 5, 'fld_sig1'); Writeln('Document signed.'); gtPDFDocument1.SaveToFile('signed_doc.pdf'); Writeln('Document saved.'); end except on Err:Exception do begin Writeln('Sorry, an exception was raised. '); Writeln(Err.Classname + ':' + Err.Message); end; end; // Free resources gtPDFDocument1.Reset; // Destroy document object FreeAndNil(gtPDFDocument1); Writeln('Press Enter to exit.'); Readln; end.O link desse componente é: https://www.gnostice.com/PDFtoolkit_VCL.asp
To view this discussion on the web visit https://groups.google.com/d/msgid/dug-rs/24d8deeb-c9eb-4178-9565-ac58073963ccn%40googlegroups.com.
Acesse o nosso BLOG em e contribua com a comunidade Delphi do Rio Grande do Sul
Para postar neste grupo, envie um e-mail para dug...@googlegroups.com
Para cancelar a sua inscrição neste grupo, envie um e-mail para
dug-rs-un...@googlegroups.com
Para ver mais opções, visite este grupo em
http://groups.google.com.br/group/dug-rs?hl=pt-BR
Twitter: @dugrs
http://www.facebook.com/groups/dugrs/
http://www.Vimeo.com/dugrs
---
You received this message because you are subscribed to the Google Groups "DUG-RS - Delphi Users Group Rio Grande do Sul" group.
To unsubscribe from this group and stop receiving emails from it, send an email to dug-rs+un...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/dug-rs/5075f7ad-34a9-4c2b-9730-4f4bb9338c55n%40googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/dug-rs/2168a4bb-8dda-4e80-8fe5-9bfaca5963b1%40natsam.com.br.
Adilson B. Cápua Jr. Main Programmer Development ABC Software | ||||||||||||||||
| ||||||||||||||||
| ||||||||||||||||
Oi pessoal, tudo certo?
Ansioso aqui também pelo desfecho deste tópico. Eu atendo a uma clínica onde tive também essa questão de assinatura em laudos/prescrições médicas. Mesmo caso que esse, mais de 250 prescrições médicas diárias, fora todos os laudos, evoluções e todo o blablabla que o médico tinha que carimbar e assinar todas no final.
Bom, por falta de tempo na época eu usei uma POG haha, tínhamos coisas muito mais importantes para resolver e o que eu fiz foi salvar uma imagem monocromática com o carimbo com a assinatura dos médicos, e eu enfio essa assinatura de cada médico no final do relatório, no caso das nossas prescrições, além de ter as medicações variáveis, ela tem Observações que podem ou não constar na prescrição e também tem um texto de evolução do paciente no final o que tornava difícil usar apenas a imagem da assinatura do médico, pois a posição onde ela vai na prescrição muda de prescrição para prescrição.
Assim, a solução que achei foi salvar a imagem da assinatura no carimbo junto com o cadastro de cada médico. No anexo tem uma prescrição de exemplo, com a primeira solução onde eu tinha só a imagem da assinatura. Agora troquei essa imagem da assinatura com a imagem do carimbo todo, assim não tem problema de qto cresce nossa prescrição, a assinatura vai duas linhas abaixo da última linha da prescrição sempre.
Depois com o relatório montado, é só usar o PDFToolKit para assinar, já que ela não aparece no documento mesmo, mas com ele podemos assinar o documento PDF para não ser alterado ou pelo menos para descobrir se alguém alterou algum bit desse documento depois hehe.
To view this discussion on the web visit https://groups.google.com/d/msgid/dug-rs/CACH_5PLVVm8dzpAWBm01EsZv8-qg4hRe8HmsPh-5Tf08D8hazA%40mail.gmail.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/dug-rs/CAMTWDU9U6mkVn7N9K3QhcDnB3uBbbW2zBBc-PbHdCJYEViLT_A%40mail.gmail.com.
Adilson B. Cápua Jr. Main Programmer Development ABC Software | ||||||||||||||||
| ||||||||||||||||
| ||||||||||||||||
To view this discussion on the web visit https://groups.google.com/d/msgid/dug-rs/CAMTWDU9U6mkVn7N9K3QhcDnB3uBbbW2zBBc-PbHdCJYEViLT_A%40mail.gmail.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/dug-rs/CABAe0X5F2v-NCOP-oNrSVqjT01iMimVEJ0LqdVLprtFyeZqc0Q%40mail.gmail.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/dug-rs/9866fcff-dd4c-4526-aa52-0dc48c878bd6n%40googlegroups.com.