Anexar Arquivo

[Guest Marcelol Felis]

Olá a todos. Estou criando uma aplicação para controlar desenvolvimento de novas peças, eis que não consigo arranjar um jeito de fazer uma rotina para buscar um arquivo na máquina e anexá-lo ao form, talvez salvá-lo em outro lugar de onde possa ser acessado pelo form.

Alguém pode me ajudar com isto? É um simples anexar arquivo e depois ao abrir aquele registro, o arquivo possa ser acessado e vizualizado.

GRato.

[Thales Pontes Martins]

-- Censurado -- coloca o arquivo no mesmo diretório que o executável, aí para abrir o arquivo use

var arquivo : integer
arquivo:=fileopen(extractfiledir(paramstr(0))+'\nomedoarquivo',$42);

e para ler use

FileRead(arquivo,buffer,sizeof(buffer));

onde buffer é qualquer variável. Use fileseek para mudar o ponteiro do arquivo

fileseek(arquivo,offset,origem);

onde offset é quantos bytes deseja movimentar e origem é

0 - do inicio do arquivo

1 - posição atual

2 - fim do arquivo

se você disser de que tipo é o arquivo eu posso achar rotinas mais específicas.

Editado Julho 28, 2006 por Graymalkin

[Ricardo_PF]

Outra dica é que você também pode testar se o arquivo a ser aberto existe:

...

if FileExists("caminho\arquivo.arq") then

begin

...

end;

...

falou.