Ir para conteúdo
Fórum Script Brasil
  • 0

Delphi x Corel (Substituição de um campo por outro)

Caluca

Perguntado por Caluca,

 Share

Pergunta

Caluca

Caluca

Postado
Postado

Eu tenho imagens criadas no corel que podem ser salvas também em jpeg e pdf, preciso fazer com que o delphi leia estas imagens e substitua determinados campos como fazemos no word com StringReplace e html com FindReplace, há muito tempo pesquiso sobre o assunto mas não encontro nada, nem sei se isto é possível.

Deverá funcionar da seguinte forma o delphi abre o arquivo e quando ele encontrar uma palavra entre o sinal de <camponome > ou #camponome # ,deverá substituir pelo nome que desejo, tem que ser nestas extensões porque é uma imagem que será enviada para o cliente e que deverá ser impressa com os dados dos mesmos.

Obrigada desde já...

Link para o comentário
Compartilhar em outros sites

7 respostass a esta questão

Posts Recomendados

  • 0
Caluca

Caluca

Postado
  • Autor
Postado

Olá Jonas

Eu consigo abrir sem problema, o que preciso fazer é mais complexo, na verdade nem sei se é possível, eu preciso abrir o arquivo e ler linha por linha para substituir os campos que desejo, o procedimento é igual ao adotado no StringReplace com Word e Findreplace com HTML, porem ambos são textos e neste caso é imagem.

Obrigada pela atenção

Link para o comentário
Compartilhar em outros sites
  • 0
Jhonas

Jhonas

Postado
Postado
Eu consigo abrir sem problema, o que preciso fazer é mais complexo, na verdade nem sei se é possível, eu preciso abrir o arquivo e ler linha por linha para substituir os campos que desejo, o procedimento é igual ao adotado no StringReplace com Word e Findreplace com HTML, porem ambos são textos e neste caso é imagem.

O conteúdo de um arquivo de imagem é assim:

Picture.Data = {
      0A544A504547496D616765BE520100FFD8FFE000104A46494600010100000100
      010000FFDB00430006040506050406060506070706080A100A0A09090A140E0F
      0C1017141818171416161A1D251F1A1B231C1616202C20232627292A29191F2D
      302D283025282928FFDB0043010707070A080A130A0A13281A161A2828282828
      2828282828282828282828282828282828282828282828282828282828282828
      28282828282828282828282828FFC000110804B0064003012200021101031101
      FFC4001C0001010002030101000000000000000000000102030405060708FFC4
      0054100002010302030308070406070703020700010203041105210612311341
      5107223261718191A114234252B1C1D1153362721643538292E12434A2C2D2F0
      F14454637393A3B25583E21725450835647594D3FFC4001B0101010003010101
      0000000000000000000001020304050607FFC400391101000202000403040905
      000105010100000102031104122131134151052232911442617181A1B1D1F023
      3352C1E1F1061543536224A2FFDA000C03010002110311003F00F9F14207D7BC
      C0A800802845008A0002A0001415005000141401420011415005400028280C15
      000115028142000A000280502A000140082284528854000280502848002A08A5
      111414221402815048A901115150000A3B8A88500002A1800122E0B828891514
      010A814A202970042A43050260A814A885000028000229440548B802245C0294
      448A000054000052A2028000A90C01060CB0009828C14A202A00429460080B81
      80214B8011303050500500405C0C01305280202E060080B82810141441828020
      28088528C010140101401300A0A2032C002601460080A0080A0080A008305180
      260140101700080A30040500405C01A101460080A0080A0080A3004050042190
      031050040518020280202803106440260141041828020280210A0080A0080A02
      A10C8804050410140108644020280202803C79403CB740500A08A00028000A02
      2A0500014028142000A0150282810A114A21414088A8170510A8140005451114
      140200A1008A9028240A00040A5005000228400A802A0500002E0A91444548A8

É possivel ler esse conteúdo ... o que voce está querendo é alterar esses valores ?

abraço

Link para o comentário
Compartilhar em outros sites
  • 0
Caluca

Caluca

Postado
  • Autor
Postado (editado)

Olá Jonas

Então, funciona da seguinte forma, será criado uma imagem no Corel, esta imagem terá vários logotipos de patrocinadores, dentro desta imagem deverá ser criado campos como "Nome", "Posição", "Pontuação" e etc, o que eu preciso fazer é abrir esta imagem no Delphi e onde estiver estes campos substituir pelas informações do banco, ou seja aonde estiver <Nome> será colocado o nome do individuo e daí por diante, tem como fazer isto???. Obrigada pela atenção...

ps. Esta imagem deverá ser salva e posteriormente enviada por e-mail para que ele possa imprimir, portanto ao salvar não poderá ter perda de resolução...

Editado por Caluca
Link para o comentário
Compartilhar em outros sites
  • 0
Jhonas

Jhonas

Postado
Postado
Então, funciona da seguinte forma, será criado uma imagem no Corel, esta imagem terá vários logotipos de patrocinadores, dentro desta imagem deverá ser criado campos como "Nome", "Posição", "Pontuação" e etc, o que eu preciso fazer é abrir esta imagem no Delphi e onde estiver estes campos substituir pelas informações do banco, ou seja aonde estiver <Nome> será colocado o nome do individuo e daí por diante, tem como fazer isto???. Obrigada pela atenção...

ps. Esta imagem deverá ser salva e posteriormente enviada por e-mail para que ele possa imprimir, portanto ao salvar não poderá ter perda de resolução...

É possivel fazer, mas não da maneira como esteja pensando

veja esse exemplo: em uma imagem eu coloquei a palavra 'MINHA EMPRESA' ... Evidentemente voce não verá a palavra nesse código, porque a mesma foi transformada em código e deixou de ser texto. 

object Form1: TForm1
  Left = 192
  Top = 114
  Width = 696
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 136
    Top = 80
    Width = 122
    Height = 59
    Picture.Data = {
      0A544A504547496D616765DB0B0000FFD8FFE000104A46494600010101006000
      600000FFDB004300080606070605080707070909080A0C140D0C0B0B0C191213
      0F141D1A1F1E1D1A1C1C20242E2720222C231C1C2837292C30313434341F2739
      3D38323C2E333432FFDB0043010909090C0B0C180D0D1832211C213232323232
      3232323232323232323232323232323232323232323232323232323232323232
      32323232323232323232323232FFC0001108003B007A03012200021101031101
      FFC4001F0000010501010101010100000000000000000102030405060708090A
      0BFFC400B5100002010303020403050504040000017D01020300041105122131
      410613516107227114328191A1082342B1C11552D1F02433627282090A161718
      191A25262728292A3435363738393A434445464748494A535455565758595A63
      6465666768696A737475767778797A838485868788898A92939495969798999A
      A2A3A4A5A6A7A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6
      D7D8D9DAE1E2E3E4E5E6E7E8E9EAF1F2F3F4F5F6F7F8F9FAFFC4001F01000301
      01010101010101010000000000000102030405060708090A0BFFC400B5110002
      0102040403040705040400010277000102031104052131061241510761711322
      328108144291A1B1C109233352F0156272D10A162434E125F11718191A262728
      292A35363738393A434445464748494A535455565758595A636465666768696A
      737475767778797A82838485868788898A92939495969798999AA2A3A4A5A6A7
      A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6D7D8D9DAE2E3
      E4E5E6E7E8E9EAF2F3F4F5F6F7F8F9FAFFDA000C03010002110311003F00F758
      2089E15665C939EE7D6A4FB2C3FDCFD4D63EAB7D7165676A6DE4D85CB678073F
      9D63B788EF565589AF2312382550850580F41DEA525619D87D961FEE7EA68FB2
      C3FDCFD4D62E97AFBCD3A5BDD05DCE76ABA8C73E8456F960A324803DE9D9088B
      ECB0FF0073F5349F668BFE79FF00E3C6A60CAC320823EB49F95164045F668BFE
      798FFBE8D21B78FB443FEFB355758B892D34F69216559030C1C03C67DEB2349D
      56F2E7568EDE67478DA3763B9403918C631F5A2C80E80DBA76847FDF6693C85F
      F9E0BFF7F0D3D82A8F984407B9A4DA319D90FE745900C308ED6EBFF7F293CA1F
      F3EE9FF7F4D3CC4BD4C70FE27FFAD4C28A0E3CBB607D377FF5A8B2010C67B5AA
      FF00DFDA4F2DBFE7D53FEFF7FF005A94C698C98ED71EEDFF00D6AC5D66E64B4B
      88D21585414C9DA81B3CFB8A2C80D9F2DBFE7D53FEFF007FF5AAB567E857725F
      4777F688AD09867F2D093B491B54F231EA4D68567356291435FF00F8F3B3FF00
      79EB2AC56DA36BCB89C445DA0F2A20572D9C9E9C702B575FFF008F3B3FF79EB0
      ED6D6EAF6F248E130AC5143E6397CEE3C9E076ED5A2D891B6DFBED6B4DB68F0D
      29B8594AE7908BCB37D3A0FC6A5D63529A4F3EE5C349B33B220D8F600678156B
      48BD7B4BD8C285292B046C8E704E3AD656A3FF001ED3FD7FF6614C0BF1CB77A6
      5CE33E5CC98DE8ADB9738E9EF4FD4A7335FBCA0901C2B601F55069758FF90B5D
      7FBDFD2A0B9FF5ABFF005CD3FF0041140123DD1B86B96770599461739C0DC314
      DD366FB3EA826F97296D2B00DDFEED49A769D676DE0C86EE28231757215A69B1
      97909627963C9AE7FC41A85E693A1EA3A8D9C76521B6B3924923BC84CA922EE4
      0570197AE7AD006A49713DDDEDBC2A0DC4F70E5416700280092493D801D2AEE9
      B7925B5DC68AC0C6EC1595B91C9AC7B1BB86CA386D61874F8B50B845578F4FB6
      11BCBBB9E172CC171EF8C024D4F1EA16306A11452DF5A452248A596499415008
      39209F4E680247BC1621EE99CAAC6092DC9C7D07734AB2488C241BD24FBDF30C
      303EE3D6B3E7BFB2BA8644B7BEB47652AEC44CA42A8719279E07BD685EEA3637
      5AB5CA5BDF5ACEE589C4532B123BF00D0058BDBA7BB923762B8F2D080BC0E402
      7F9D558E77B8B482565658D813186233B7279E3D7AD46750B29B263BEB497CA8
      51A468A65214051927078A749A9580D32C0B6A762E12108CC93A6158E4ED273D
      71401ABE187429A882D6B9175CF9A3247C895B7583E13BDB7923D4043A8D9316
      B8DE1159646DBB1464E1BA641ADEACEA0D1435FF00F8F3B3FF0079EB2ACEEFEC
      6B70523065993CBDE5BEE8FA7E35D2DE68B69ACD9411DDF9DB632597CA99A33F
      9A91543FE105D17D6FFF00F03A5FFE2AAD6C239F89D9B56B0B384069E59D18A6
      7958D581663E8001F892053AE60592496190B04DF862A39E0D6CE9D77E1ED134
      8BDD52CE048AD6DC4C2EAE08767FDCB32BE49059B69461DF38E3354F59B8F0D5
      E5F84BAB892D2ECDEAD96F8A678B75C3462554271824A118CF04903AF14B990E
      C54D56FA232DD5EB6522E5B9EBD3F9FB53EE55D6545914ABF951EE53D8EC1915
      2DA5A7866D7574590CF777B1DD8B68D6EA479024E21F3C0008DA0F97F36EFC33
      9E29DAAC3E1EBA9356D4EF26BC4FECFCFDB5A3B995445B63590FCABD7E4653C6
      7AE3AF147320B166D7FE441B1E73F22F6F7AE3FC603FE289F111EDFD9927FE87
      1D773AA2E956BE199A1BC5960D32CE132BB472B82888371395F98F009F7AE61B
      4BF06EA5612A5E59EACD6BE6C3132EA11DD460BC92048C28954672C40E3A6467
      147320B183ACE88758D43487B6BD7D3AFAD6DA4B8B5BD8932C8E026DCFAA9CF2
      3A609A67866E135AF1638D434E58757B6B18EDEF50C20A9265CEE43CEE46EA3D
      B8AE82EFC2BE08D1AE526BC8A7416D6735C246D2BBAA5BC5B7CCC601F946F5F9
      7BE7A1E6A1B887C0EEF73797316AF0C85163649A2BB8A4911A40A11119033A87
      914614100BAE719147320B1C8784BC3F26ABA3782AF1A3B48E0B23E63308B7CD
      3EE6DBB4F1F77AE4739C01C5667869549F0CDA5D5B476768B7375359DDC51826
      79D65917C966FE01B4938E77700118AF42B7D37C0F65A44ED0C7AADA5A40F1AB
      DAE2E6270647DA9884A872198E010A4120FA1C357C39E048F450469FA9C365F6
      80A968D0DCA33CA06E0520281DC819395538018F638399058E5A7D19AF0EBB6D
      6B2DB5ACB0F88E27559E1CC52958E32B1381CE09E71EA2A0D61DC683E29D3AF3
      46D2ED2F2D74B89DE5D3CB3248A4BEDDDB8021C649CF707D315DA1F07F81DB49
      FB5C71DC456B77711AB32C8D9699A508A194A921C48429C8054E738C1AD45F86
      FE166B07B47B3BE782560D2A995DC4AC31866FEF1E07269A6988CAF02D81B3D5
      EEAF2EED74BB29E58D52DE7B256325CA045DC4A91F746546477CD77758FA2F82
      7C3BE1EBE17BA6585CC37223F2849B492A9FDD191C0AD8A8A83468DAFF00C7B2
      7E3FCEA6A40028C0000F414B56B611E23A9F853529FC33E23B78EDE6FB1DFCBA
      95F4F6C23F9E4B84965F2768CEF3E666071B78FF00460307CD35B3A9E832EABA
      D5C5BCD6F7496F36BFE689E3421A35FECBD8B32310402B201B5BB381DC57A979
      51FF00CF34FF00BE451E547FF3CD3FEF9153CAC773C9A1D3B5CBED4C9BB8EEB4
      FB8FF84919CDD5AC6A418974E318997787508E40183BB696DB9DC33520D375A4
      D4EF2C228A6D4376B0B7EF3EA04411DC4715B5BEC0648A2C0613142BB530C207
      04F073EABE547FF3CD3FEF9147951FFCF34FFBE451CAC2E79AB59EA09F0C35ED
      165B271756B677569043086915D0C45A14898A86902A3A47B8804B23753C98F5
      3B78FC43E12B8D2A4935AD52392FEC84FF006FD3DED9CC46E22DE171145950AA
      C490091C924715E9DE547FF3CD3FEF9147951FFCF34FFBE452E46173C6F55D03
      5A7FED3BDBF8E6BCD4A7F0EEA363E64708F9D53C958861323748DE6CA17A8F30
      AF3B056EF883C3372F631CE754D4EFEF85D5A470CCF1C3BEDA337703C8CAA912
      A9FF0056AC4B86036761BB3E8FE547FF003CD3FEF9147951FF00CF34FF00BE45
      3E56173CAB5DD32FEDCEA8AD36A778DFF129906A0B6CAF3854BC7675458E3D8D
      E5A8DF8D84FCE776E1B40D6B896DEEF41B59DAE3C412C967744A5F7F6714BA89
      CAB0DFE49846F5DB218FE589BEF67F84B2F7FE547FF3CD3FEF9147951FFCF34F
      FBE452E46173CB6E2DB5BF10A59DB5D6969796F04170645BF95ECC4EB2992185
      F7246C449E40937A613699D4E01002F65E1C96FA6F0FD9FF006925EFDBE3530D
      CB8508B24A84A3BA8E3E462A594E065581C0CE2BA0F2A3FF009E69FF007C8A3C
      A8FF00B8BF95528D80A7F37F76F7F31FE355EB57CA8FFB8BF9527951FF00CF34
      FF00BE45128DC133FFD9}
  end
end

OBS: Para ver essa figura, abra um novo projeto ... clique com o botão direito do mouse na area central do Form1 e selecione a opção View as Text ... apague o código que aparecer e cole este código no lugar... depois novamente com o botão direito sobre o código, selecione a opção View as Form

Voce verá a imagem com a palavra que escrevi sobre ela.

o processo deverá ser então este:

1 - colocar a imagem que voce quer em um componente TImage

2 - colocar Labels transparentes sobre essa imagem que receberão os valores do seu banco de dados

3 - salvar a area do screen ( figura com os labels preenchidos ) no formato JPG

abraço

Link para o comentário
Compartilhar em outros sites
  • 0
Caluca

Caluca

Postado
  • Autor
Postado

OLá Jonas

você acendeu uma luz no final do meu túnel, mas ao salvar a imagem ele não leva as informações e quando tento salvar o screen leva tudo que esta na tela, com certeza estou fazendo errado, pois preciso salvar apenas o que esta no tImage.

Obrigada

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,2k
×
×
  • Criar Novo...