Trabalhando com PDF

[gsilvei]

Boa tarde,
sou novo utilizando o xmaker, e gostaria de saber como poderia anexar arquivos pdf em meu formulário. De ter algum exemplo ficaria muito grato.
obrigado.

[Gustavo]

Olá, segue abaixo um passo a passo de como fazer:

1- Crie um campo alfanumérico chamado "LINK" na tabela do formulário que você quer anexar.

2- Abra pelo Delphi o arquivo Rotinas.pas

2.1. Em Uses, declare a unit SHELLAPI

2.2- Declare uma procedure, coloque abaixo da última função declarada:

procedure ExecFile(F: String);

2.3- Crie ela, coloque abaixo da última função criada:

procedure ExecFile(F: String);
var
r: String;
Handle: THandle;
begin
case ShellExecute(Handle, nil, PChar(F), nil, nil, SW_SHOWNORMAL) of
ERROR_FILE_NOT_FOUND: r := 'The specified file was not found.';
ERROR_PATH_NOT_FOUND: r := 'The specified path was not found.';
ERROR_BAD_FORMAT: r := 'The .EXE file is invalid (non-Win32 .EXE or error in .EXE image).';
SE_ERR_ACCESSDENIED: r := 'Windows 95 only: The operating system denied access to the specified file.';
SE_ERR_ASSOCINCOMPLETE: r := 'The filename association is incomplete or invalid.';
SE_ERR_DDEBUSY: r := 'The DDE transaction could not be completed because other DDE transactions were being processed.';
SE_ERR_DDEFAIL: r := 'The DDE transaction failed.';
SE_ERR_DDETIMEOUT: r := 'The DDE transaction could not be completed because the request timed out.';
SE_ERR_DLLNOTFOUND: r := 'Windows 95 only: The specified dynamic-link library was not found.';
SE_ERR_NOASSOC: r := 'There is no application associated with the given filename extension.';
SE_ERR_OOM: r := 'Windows 95 only: There was not enough memory to complete the operation.';
SE_ERR_SHARE: r := 'A sharing violation occurred.';
else
Exit;
end;
ShowMessage(r);
end;

3- Salve o arquivo Rotinas.pas

4- Pelo Xmaker insira o campo alfanumérico no formulário e no evento OnClick insira o seguinte código:

begin
ExecFile(TabGlobal.DCLIENTES.LINK.Conteudo);
end;

4.1- Nas propriedade do campo em "Cursor" mude para "crHandPoint", assim quando clicar no documento anexado vai aparecer um mãozinha.

5- Na paleta de componentes "Diálogo" insira o componente "SaveDialog" no formulário.

5.1- Nas propriedades do componente vá em "InitialDir" e digite "c:\"
Para pesquisar o pdf a partir do diretório C.

6- Insira um botão no formulário, e coloque o seguinte código no envento OnClick:

if salvedialog1.execute then
TabGlobal.DCLIENTES.LINK.Conteudo:=salvedialog1.FileName;

Quando clicar nele, irá abrir uma janela para procurar o arquivo a ser anexado.

7- Compile e veja o resultado.

Obs.: Esse passo a passo serve para anexar e abrir qualquer tipo de arquivo(Pdf, Doc, Imagem, etc).
Obs.: Essa procedure permite abrir arquivos que não contém espaços em seus nomes.

Anexo.jpg

Anexo2.jpg

[gsilvei]

Obrigado,
Vou testar ela.

[DuduRazoni]

Boa tarde

Formulário pronto tudo feito, mas sempre que executo mostra esse erro:

CAD_Engenharia.Pas[1088] Error: Undeclared Identifier: 'savedialog1' CAD_Engenharia.Pas[1088].
o que pode ser ?

[DuduRazoni]

oi, eu usei 4 campos para armazenar os documentos, porque ele só armazena no mesmo documento em todos os campos ?

[LUIZCARLOS]

Alguem tem um jeito mais simples de fazer com que sistemas pelo xmaker anexe arquivos pdf e outros ?