delphi erro no setcurrentdir
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.
" 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
Curtidas 0
Melhor post
Natanael Ferreira
27/09/2017
Adicione Forms na uses.
GOSTEI 1
Mais Respostas
Anderson Saldanha
27/09/2017
ok valeu
GOSTEI 0
Anderson Saldanha
27/09/2017
Mas como assim um adicionar um form na uses, vou ter que criar outro?
GOSTEI 0
Natanael Ferreira
27/09/2017
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
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
GOSTEI 1
Anderson Saldanha
27/09/2017
obrigado
GOSTEI 0
Anderson Saldanha
27/09/2017
valeu deu certo agora so compilar para saber se vai funcionar em rede correto
GOSTEI 0
Anderson Saldanha
27/09/2017
DEU ERRO AGORA NESTA PARTE.
procedure ConvertErrorFmt(ResString: PResStringRec; const Args: array of const); local;
begin
raise EConvertError.CreateResFmt(ResString, Args);
end;
procedure ConvertErrorFmt(ResString: PResStringRec; const Args: array of const); local;
begin
raise EConvertError.CreateResFmt(ResString, Args);
end;
GOSTEI 0
Natanael Ferreira
27/09/2017
Qual a mensagem de erro?
GOSTEI 1
Anderson Saldanha
27/09/2017
"is not a valid integer value"
GOSTEI 0
Natanael Ferreira
27/09/2017
Este erro acontece, geralmente, quando você tenta converter uma string vazia para inteiro.
Exemplo:
Exemplo:
StrToInt(' ');GOSTEI 1
Anderson Saldanha
27/09/2017
O CODIGO ESTA ASSIM
PORTA := StrToInt (conf.ReadString('BANCO','PORTA',''));
PORTA := StrToInt (conf.ReadString('BANCO','PORTA',''));
GOSTEI 0
Tone Costa.
27/09/2017
Anderson
Use StrToIntDef
Use StrToIntDef
GOSTEI 0
Anderson Saldanha
27/09/2017
eu coloquei Integer nao deu mais o erro voce acha que o config vai dar algum problema na hora de por em rede
GOSTEI 0
Anderson Saldanha
27/09/2017
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.
GOSTEI 0