GARANTIR DESCONTO

Fórum delphi erro no setcurrentdir #586308

27/09/2017

0

Delphi

SE ALGUEM PUDER ME AJUDAR ESTOU TENTANDO FAZER UM config.ini PARA MINHA APLICAÇAO FUNCIONAR EM REDE.

" SetCurrentDir(ExtractFilePath(Application.ExeName));"
ESTA DANDO O SEGUINTE ERRO..
Undeclared identifier 'Aplication' at line 135 (135:33)
Undeclared identifier 'ExeName' at line 135 (135:45)

CODIGO
procedure TDM.DataModuleCreate(Sender: TObject);
var server, user, senha, lib : string;
var porta : Integer;
var conf : TIniFile;
begin
//PARAMETROS DE CONEXAO
SetCurrentDir(ExtractFilePath(Application.ExeName));
conf := TIniFile.Create(GetCurrentDir + '\\conf.ini');
lib := GetCurrentDir + '\\libmysql.dll';
SERVER := conf.ReadString('BANCO','SERVER','');
USER := conf.ReadString('BANCO','USER','');
SENHA := conf.ReadString('BANCO','SENHA','');
PORTA := StrToInt (conf.ReadString('BANCO','PORTA',''));

conecta.Connected := True;
mysql_link.DriverID := 'MysQl';
mysql_link.VendorLib := LIB;
conecta.DriverName := 'Mysql';
conecta.Params.Add('server=' +SERVER);
conecta.Params.Add('user_name=' + USER);
conecta.Params.Add('password=' + SENHA);
conecta.Params.Add('port=' +IntToStr(PORTA));

try
conecta.Connected := True;
Except
//SHOWMESSAGE('NAO CONECTADO');

end;


end;
end.
Anderson Saldanha

Anderson Saldanha

Responder

Post mais votado

27/09/2017

Adicione Forms na uses.

Natanael Ferreira

Natanael Ferreira
Responder

Gostei + 1

Mais Posts

27/09/2017

Anderson Saldanha

ok valeu
Responder

Gostei + 0

27/09/2017

Anderson Saldanha

Mas como assim um adicionar um form na uses, vou ter que criar outro?
Responder

Gostei + 0

27/09/2017

Natanael Ferreira

Não precisa criar outro form.

Na verdade você precisa adicionar a biblioteca chamada "Forms" (sem aspas na uses do form).

Veja no link abaixo, na última mensagem explico sobre como adicionar biblioteca na uses.

https://www.devmedia.com.br/forum/arredondamento-valores-delhi/585462
Responder

Gostei + 1

27/09/2017

Anderson Saldanha

obrigado
Responder

Gostei + 0

27/09/2017

Anderson Saldanha

valeu deu certo agora so compilar para saber se vai funcionar em rede correto
Responder

Gostei + 0

27/09/2017

Anderson Saldanha

DEU ERRO AGORA NESTA PARTE.

procedure ConvertErrorFmt(ResString: PResStringRec; const Args: array of const); local;
begin
raise EConvertError.CreateResFmt(ResString, Args);
end;
Responder

Gostei + 0

27/09/2017

Natanael Ferreira

Qual a mensagem de erro?
Responder

Gostei + 1

27/09/2017

Anderson Saldanha

"is not a valid integer value"
Responder

Gostei + 0

27/09/2017

Natanael Ferreira

Este erro acontece, geralmente, quando você tenta converter uma string vazia para inteiro.

Exemplo:

StrToInt(' ');
Responder

Gostei + 1

27/09/2017

Anderson Saldanha

O CODIGO ESTA ASSIM
PORTA := StrToInt (conf.ReadString('BANCO','PORTA',''));
Responder

Gostei + 0

28/09/2017

Tone Costa.

Anderson

Use StrToIntDef
Responder

Gostei + 0

28/09/2017

Anderson Saldanha

eu coloquei Integer nao deu mais o erro voce acha que o config vai dar algum problema na hora de por em rede
Responder

Gostei + 0

28/09/2017

Anderson Saldanha

deu certo com StrToIntDef mas com Integer nao da erro algum so nao sei se nao hora de por em outra maquina vai funcionar o config.
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar