Com o auxilio dessa resposta consegui editar os dados que insiro no banco, porém os dados antigos que já estão cadastrados, quando tento alterar o cadastro, o programa continua a fechar sozinho e ao depurar exibe a seguinte mensagem de erro.
E se continuo depurando o erro passa a ser:
Fui depurando o código e o erro está ocorrendo na procedure
Envio_ftp, minha procedure
esta assim:
procedure TfrmCriarArquivo.Envio_ftp(grupo, cliente: string);
begin
with FTP do try
Username := frmMenu.usuario;
Password := frmMenu.senha;
Host := frmMenu.endereco;
Port := StrtoInt(frmMenu.porta);
Connect;
try
ChangeDir(grupo);
except
FTP.MakeDir(grupo);
ChangeDir(grupo);
end;
try
FTP.Put('dados.ini', 'dados.ini', false);
except
end;
try
ChangeDir(grupo + '/' + cliente);
except
FTP.MakeDir(grupo + '/' + cliente);
ChangeDir(grupo + '/' + cliente);
end;
except
application.Terminate;
end;
try
FTP.Put(cliente + '.xml', cliente + '.xml', False);
FTP.Put('Tags' + '_' + cliente + '.txt', 'Tags' + '_' + cliente + '.txt', false);
finally
FTP.Disconnect;
end;
DeleteFile(cliente + '.xml');
DeleteFile('Tags' + '_' + cliente + '.txt');
DeleteFile('dados.ini');
end;
Lembrando que isso só acontece quando tento alterar os cadastros antigos do banco.
Erro Novo:
e como ficou a procedure
após a alteração:
with FTP do try
Username := frmMenu.usuario;
Password := frmMenu.senha;
Host := frmMenu.endereco;
Port := StrtoInt(frmMenu.porta);
Connect;
try
ChangeDir(grupo);
except
FTP.MakeDir(grupo);
ChangeDir(grupo);
end;
try
FTP.Put('dados.ini', 'dados.ini', false);
except
end;
try
ChangeDir(grupo + '/' + cliente);
except
FTP.MakeDir(grupo + '/' + cliente);
ChangeDir(grupo + '/' + cliente);
end;
except
application.Terminate;
end;
StrtoInt
. Tem certeza quefrmMenu.porta
está preenchido?frm.porta
me mostra''