Res: [delphi-br] Re: Como subtrair horas corretas
Boa noite pessoal RESOLVIDO Muito obrigado ao Roni e ao Eny. Usei o IncMinute e ficou muito bom até agora, rsrs. --- Em delphi-br@yahoogrupos.com.br, Roni Rodrigo ronirodr...@... escreveu de qualquer forma, 24:00 não é uma hora válida mesmo... vai ter q converter pra 00:00 ai se incrementar a hora vai simplesmente passar a ser 01:00 do dia atual. por isso, ao invés de incrementar a hora, incrementa o dia... pode usar o IncDay()... ou somar 1 na data o/ Em 27/08/2010 08:53, Eny Urias escreveu: Porque vc não usa IncHour()? Adiciona a unit DateUtils... -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles De: Roni Rodrigo ronirodr...@... mailto:ronirodrigo%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Quinta-feira, 26 de Agosto de 2010 22:15:13 Assunto: Re: [delphi-br] Re: Como subtrair horas corretas mas então... como eu disse... não seria 0 hora do dia seguinte? converte teu 24:00 pra 0 e incrementa 1 dia... ai vc faz o calculo normalmente... o/ Em 26/08/2010 22:00, alexsandro_qs escreveu: É o problema que estou tendo aqui é isso, pois o usuário digitar Inicial : 07:30 Final: 24:00 o resultado teria que dar : 16:30 Só que como ele não reconhece o 24:00, não faz o calculo. --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br, Roni Rodrigo ronirodrigo@ escreveu cara... acredito que 24:00 não seja uma hora válida mesmo... o dia vai até de 0:00 até 23:59 ... o/ Em 26/08/2010 18:48, alexsandro_qs escreveu: Boa noite pessoal; Eu tinha feito uma forma de subtrair 2 horas aqui, e até à um tempinho atrás, estava tudo ok. Só que agora pintou um problema: era feito assim: --- var h1, h2, resultado : TDateTime; begin d1:= StrToTime(adotDatainicial.Value); d2:= StrToTime(adotDatainicia2.Value); resultado := d2 - d1; --- Só que quando é digitado 24:00, esse valor não é reconhecido como horas ai os erros. Alguém poderia me ajudar com isso ? OBS.: a hora nunca vai passar de 24:00 ( ou seja de um dia para o outro) Ex.: saída 24:00 - entrada 01:00 = 23:00 e não 23:60 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Como subtrair horas corretas
Boa noite pessoal; Eu tinha feito uma forma de subtrair 2 horas aqui, e até à um tempinho atrás, estava tudo ok. Só que agora pintou um problema: era feito assim: --- var h1, h2, resultado : TDateTime; begin d1:= StrToTime(adotDatainicial.Value); d2:= StrToTime(adotDatainicia2.Value); resultado := d2 - d1; --- Só que quando é digitado 24:00, esse valor não é reconhecido como horas ai os erros. Alguém poderia me ajudar com isso ? OBS.: a hora nunca vai passar de 24:00 ( ou seja de um dia para o outro) Ex.: saída 24:00 - entrada 01:00 = 23:00 e não 23:60
[delphi-br] Re: Como subtrair horas corretas
É o problema que estou tendo aqui é isso, pois o usuário digitar Inicial : 07:30 Final: 24:00 o resultado teria que dar : 16:30 Só que como ele não reconhece o 24:00, não faz o calculo. --- Em delphi-br@yahoogrupos.com.br, Roni Rodrigo ronirodr...@... escreveu cara... acredito que 24:00 não seja uma hora válida mesmo... o dia vai até de 0:00 até 23:59 ... o/ Em 26/08/2010 18:48, alexsandro_qs escreveu: Boa noite pessoal; Eu tinha feito uma forma de subtrair 2 horas aqui, e até à um tempinho atrás, estava tudo ok. Só que agora pintou um problema: era feito assim: --- var h1, h2, resultado : TDateTime; begin d1:= StrToTime(adotDatainicial.Value); d2:= StrToTime(adotDatainicia2.Value); resultado := d2 - d1; --- Só que quando é digitado 24:00, esse valor não é reconhecido como horas ai os erros. Alguém poderia me ajudar com isso ? OBS.: a hora nunca vai passar de 24:00 ( ou seja de um dia para o outro) Ex.: saída 24:00 - entrada 01:00 = 23:00 e não 23:60
[delphi-br] Re: Capturar valor em arquivo UDL
Bom dia;
Bom ... meu veio, acredito que não deu para vc acompanhar as minhas
respostas...( é claro que seria fácil ...rsrs).
pois aquela solução que vc passou, não dar certo pois ele separa o Data
Souce, pois ele usa o espaço como delimitador também ok
--- Em delphi-br@yahoogrupos.com.br, Eduardo Silva dos Santos eduardo@...
escreveu
rapaz.. a dica que te passei resolve seu problema, é só percorrer o
stringList, mais fácil que isso impossível..
Att,
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo@...
Site: http://www.drdsistemas.com.br/
...
2009/9/15 alexsandro_qs a...@...
Boa tarde pessoal;
Eu consegui esse exemplo:
var
strLinha: String;
Parte : TStringList;
begin
strLinha := 'a b;Alexsandro Que;Q;f;alex';
Parte := TStringList.Create;
try
Parte.Clear;
ExtractStrings([';'],[ ], PChar(strLinha), Parte);
ShowMessage(Parte[1]);
finally
Parte.Free;
end;
end;
No caso desse, ele pega o Alexsandro Que... acredito que estou quase lá
!!!
Será que tem alguma forma de ele pegar só o ultimo campo, independente de
quantos houver ?
Aê eu mataria esse desafio ...
Pois abriria o arquivo e pegaria somente o ultimo campo ...
Quem poder me ajudar agradeço muito !!!
--- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br,
Eduardo Silva dos Santos eduardo.drd@ escreveu
O Fato de do espeço em data Source não é problema.. quanto ao ; lá vai..
;
var
ArqIni: TIniFile;
StrList:TStringList;
begin
StrList := TStringList.Creat;
ArqIni := TIniFile.Create('c:\arqu1.udl' );
try
aTexto := ArqIni.ReadString('oledb', 'Data source', '');
StrList.Delimiter := ';';
StrList.DelimitedText := aTexto;
//pronto você tem um StringList com todas as linhas separadas...
//Basta percorrer o mesmo e pegar o valor que você deseja..
finally
ArqIni.Free;
StrList.Free;
end;
end;
Att,
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo.drd@
Site: http://www.drdsistemas.com.br/
...
2009/9/11 alexsandro_qs aq.s@
Obrigado Ricardo;
Eu estou tentando como aquivo ini
E fiz assim:
procedure LeIni(var aTexto: string);
var
ArqIni: TIniFile;
begin
ArqIni := TIniFile.Create('c:\arqu1.udl');
try
aTexto := ArqIni.ReadString('oledb', 'Data source', aTexto);
finally
ArqIni.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
//cria arquivo ini
ArqIni: TIniFile;
begin
ArqIni := TIniFile.Create('c:\arqu1.udl');
try
ArqIni.WriteString('oledb', 'Data source', 'aTexto');
finally
ArqIni.Free;
end;
2 Problemas:
1º Como eu declaro a palavra Data Source ? ( pois tem espaços)
2º como poderia tratar nesse código o separadar de linhas ; pois ele
esta tratando o arquivo todo como se fosse uma linha só. Ele só encontra se
eu colocar uma linha abaixo da outra
Ex.:
InitialCatalog=ERP;
Data_Source=www.servidor.com.br
Se alguem poder me ajudar com isso eu agradeço muito
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Capturar valor em arquivo UDL ... Até que fim resolvido
Agora deu certo ..
Ricardo,
Obrigado pela sua grande atenção velho...
Precisando estarei a disposição (Tenho experiência em redes linux, precisando
!!!)
Fiz assim:
var
StrList:TStringList;
parte : TStringList;
strlinha : string;
aTexto : string;
ArqIni: TIniFile;
begin
try
ArqIni := TIniFile.Create('c:\alex.udl'); //Pega o arquivo
aTexto := ArqIni.ReadString('oledb', 'Provider', ''); // aqui ele vai pegar a
linha que começa com Provider da coluna oledb
Strlist := TStringlist.Create;
parte := TStringlist.Create;
strlinha:= atexto; // recebe o arquivo udl como texto, ele direto não
reconhece...
ExtractStrings(['='],[ ], PChar(strLinha), parte);
ShowMessage( Parte[ Pred( Parte.Count ) ] );
finally
StrList.Free;
ArqIni.Free;
StrListRecArq.Free;
end;
RES: [delphi-br] Re: Capturar valor em arquivo UDL
Opa Fábio;
Muito obrigado veio,( solução muito boa ...)
Mas já resolvemos ela no post anterior
--- Em delphi-br@yahoogrupos.com.br, Fábio Henrique Beltrame fa...@...
escreveu
Bom dia
Caso você queira apenas o valor do Data Source, tente assim.
procedure TForm1.Button1Click(Sender: TObject);
var
v_lista1:TStrings;
v_udl: string;
begin
v_udl := 'Provider=SQLOLEDB. 1;Integrated Security=SSPI; Persist Security
Info=False;InitialC atalog=ERP; Data Source=www.servidor.com.br';
try
v_lista1 := TStringList.Create;
ExtractStrings([';'],[' '],PChar(v_udl),v_lista1);
ShowMessage(v_lista1.Values['Data Source']);//Pode utilizar qualquer
valor que aparece antes de =. Como 'Provider e Persist Security Info,
com os espaços.
finally
FreeAndNil(v_lista1);
end;
end;
Atenciosamente,
Fábio Henrique Beltrame
* fa...@... mailto:fa...@...
KMM Engenharia de Sistemas
Rua Couto Magalhães, 228 - Nova Rússia
CEP 84.070-080 - Ponta Grossa - PR
( (42) 3026 3000 - 3026 3032 - Fax: (42) 3026 3001
8 http://www.kmm.com.br
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de alexsandro_qs
Enviada em: quarta-feira, 16 de setembro de 2009 07:58
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Re: Capturar valor em arquivo UDL
Bom dia;
Bom ... meu veio, acredito que não deu para vc acompanhar as minhas
respostas...( é claro que seria fácil ...rsrs).
pois aquela solução que vc passou, não dar certo pois ele separa o Data
Souce, pois ele usa o espaço como delimitador também ok
--- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
, Eduardo Silva dos Santos eduardo.drd@ escreveu
rapaz.. a dica que te passei resolve seu problema, é só percorrer o
stringList, mais fácil que isso impossível..
Att,
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo.drd@
Site: http://www.drdsistemas.com.br/
...
2009/9/15 alexsandro_qs aq.s@
Boa tarde pessoal;
Eu consegui esse exemplo:
var
strLinha: String;
Parte : TStringList;
begin
strLinha := 'a b;Alexsandro Que;Q;f;alex';
Parte := TStringList.Create;
try
Parte.Clear;
ExtractStrings([';'],[ ], PChar(strLinha), Parte);
ShowMessage(Parte[1]);
finally
Parte.Free;
end;
end;
No caso desse, ele pega o Alexsandro Que... acredito que estou quase
lá
!!!
Será que tem alguma forma de ele pegar só o ultimo campo, independente
de
quantos houver ?
Aê eu mataria esse desafio ...
Pois abriria o arquivo e pegaria somente o ultimo campo ...
Quem poder me ajudar agradeço muito !!!
--- Em delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br,
Eduardo Silva dos Santos eduardo.drd@ escreveu
O Fato de do espeço em data Source não é problema.. quanto ao ; lá
vai..
;
var
ArqIni: TIniFile;
StrList:TStringList;
begin
StrList := TStringList.Creat;
ArqIni := TIniFile.Create('c:\arqu1.udl' );
try
aTexto := ArqIni.ReadString('oledb', 'Data source', '');
StrList.Delimiter := ';';
StrList.DelimitedText := aTexto;
//pronto você tem um StringList com todas as linhas separadas...
//Basta percorrer o mesmo e pegar o valor que você deseja..
finally
ArqIni.Free;
StrList.Free;
end;
end;
Att,
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo.drd@
Site: http://www.drdsistemas.com.br/
...
2009/9/11 alexsandro_qs aq.s@
Obrigado Ricardo;
Eu estou tentando como aquivo ini
E fiz assim:
procedure LeIni(var aTexto: string);
var
ArqIni: TIniFile;
begin
ArqIni := TIniFile.Create('c:\arqu1.udl');
try
aTexto := ArqIni.ReadString('oledb', 'Data source', aTexto);
finally
ArqIni.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
//cria arquivo ini
ArqIni: TIniFile;
begin
ArqIni := TIniFile.Create('c:\arqu1.udl');
try
ArqIni.WriteString('oledb', 'Data source', 'aTexto');
finally
ArqIni.Free;
end;
2 Problemas:
1º Como eu declaro a palavra Data Source ? ( pois tem espaços)
2º como poderia tratar nesse código o separadar de linhas ; pois
ele
esta tratando o arquivo todo como se fosse uma linha só. Ele só encontra
se
eu colocar uma linha abaixo da outra
Ex
[delphi-br] Re: Capturar valor em arquivo UDL
Boa tarde pessoal;
Eu consegui esse exemplo:
var
strLinha: String;
Parte : TStringList;
begin
strLinha := 'a b;Alexsandro Que;Q;f;alex';
Parte := TStringList.Create;
try
Parte.Clear;
ExtractStrings([';'],[ ], PChar(strLinha), Parte);
ShowMessage(Parte[1]);
finally
Parte.Free;
end;
end;
No caso desse, ele pega o Alexsandro Que... acredito que estou quase lá !!!
Será que tem alguma forma de ele pegar só o ultimo campo, independente de
quantos houver ?
Aê eu mataria esse desafio ...
Pois abriria o arquivo e pegaria somente o ultimo campo ...
Quem poder me ajudar agradeço muito !!!
--- Em delphi-br@yahoogrupos.com.br, Eduardo Silva dos Santos eduardo@...
escreveu
O Fato de do espeço em data Source não é problema.. quanto ao ; lá vai..
;
var
ArqIni: TIniFile;
StrList:TStringList;
begin
StrList := TStringList.Creat;
ArqIni := TIniFile.Create('c:\arqu1.udl' );
try
aTexto := ArqIni.ReadString('oledb', 'Data source', '');
StrList.Delimiter := ';';
StrList.DelimitedText := aTexto;
//pronto você tem um StringList com todas as linhas separadas...
//Basta percorrer o mesmo e pegar o valor que você deseja..
finally
ArqIni.Free;
StrList.Free;
end;
end;
Att,
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo@...
Site: http://www.drdsistemas.com.br/
...
2009/9/11 alexsandro_qs a...@...
Obrigado Ricardo;
Eu estou tentando como aquivo ini
E fiz assim:
procedure LeIni(var aTexto: string);
var
ArqIni: TIniFile;
begin
ArqIni := TIniFile.Create('c:\arqu1.udl');
try
aTexto := ArqIni.ReadString('oledb', 'Data source', aTexto);
finally
ArqIni.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
//cria arquivo ini
ArqIni: TIniFile;
begin
ArqIni := TIniFile.Create('c:\arqu1.udl');
try
ArqIni.WriteString('oledb', 'Data source', 'aTexto');
finally
ArqIni.Free;
end;
2 Problemas:
1º Como eu declaro a palavra Data Source ? ( pois tem espaços)
2º como poderia tratar nesse código o separadar de linhas ; pois ele esta
tratando o arquivo todo como se fosse uma linha só. Ele só encontra se eu
colocar uma linha abaixo da outra
Ex.:
InitialCatalog=ERP;
Data_Source=www.servidor.com.br
Se alguem poder me ajudar com isso eu agradeço muito
[delphi-br] Re: Capturar valor em arquivo UDL
Muito obrigado Eduardo,
Mas ele esta considerando o espaço da palavra Data Source como delimitador
também, e com isso, não ta dando certo !!!
Você não tem outro truque nas mangas aê não?
--- Em delphi-br@yahoogrupos.com.br, Eduardo Silva dos Santos eduardo@...
escreveu
O Fato de do espeço em data Source não é problema.. quanto ao ; lá vai..
;
var
ArqIni: TIniFile;
StrList:TStringList;
begin
StrList := TStringList.Creat;
ArqIni := TIniFile.Create('c:\arqu1.udl' );
try
aTexto := ArqIni.ReadString('oledb', 'Data source', '');
StrList.Delimiter := ';';
StrList.DelimitedText := aTexto;
//pronto você tem um StringList com todas as linhas separadas...
//Basta percorrer o mesmo e pegar o valor que você deseja..
finally
ArqIni.Free;
StrList.Free;
end;
end;
Att,
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo@...
Site: http://www.drdsistemas.com.br/
...
2009/9/11 alexsandro_qs a...@...
Obrigado Ricardo;
Eu estou tentando como aquivo ini
E fiz assim:
procedure LeIni(var aTexto: string);
var
ArqIni: TIniFile;
begin
ArqIni := TIniFile.Create('c:\arqu1.udl');
try
aTexto := ArqIni.ReadString('oledb', 'Data source', aTexto);
finally
ArqIni.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
//cria arquivo ini
ArqIni: TIniFile;
begin
ArqIni := TIniFile.Create('c:\arqu1.udl');
try
ArqIni.WriteString('oledb', 'Data source', 'aTexto');
finally
ArqIni.Free;
end;
2 Problemas:
1º Como eu declaro a palavra Data Source ? ( pois tem espaços)
2º como poderia tratar nesse código o separadar de linhas ; pois ele esta
tratando o arquivo todo como se fosse uma linha só. Ele só encontra se eu
colocar uma linha abaixo da outra
Ex.:
InitialCatalog=ERP;
Data_Source=www.servidor.com.br
Se alguem poder me ajudar com isso eu agradeço muito
[delphi-br] Re: Capturar valor em arquivo UDL
Realmente Ricardo; Eu estava procurando chifres na cabeça de cavalos, não deu certo mesmo.. o Eduardo me deu uma ideia com delimitadores, mas não deu certo tambem, pois separava as palavras com espaços ... --- Em delphi-br@yahoogrupos.com.br, Ricardo César Cardoso ricardo_engs...@... escreveu Olá Alexsandro! Depois que vi sua mensagem ontem fiquei burilando a sua necessidade... E pesando, acho que abordar como um arquivo Ini é a PIOR alternativa, mesmo que seja possível. Tratar como um String é a melhor saída. O que eu fiz: * Carreguei o arquivo num TStringList; * Copiei o conteúdo da propriedade TStringList.Text para uma variável String e em seguida limpei o TStringList; * Nessa String chamei StringReplace e substitui todas as ocorrências de ; para ; (ponto e vírgula com um espaço em branco no final) pois havia problemas no resultado final * Nessa String substituida, apliquei ExtractStrings e apontei para colocar as strings extraidas no TStringList que usei no começo; * Para fazer a localização, usaria TStringList.IndexOf(DataSource=) A princípio é isso e exceto pelo último passo, fiz uma implementação de exemplo (mas que ficou no computador do meu trabalho) mas acho que com essa receitinha de bolo, dá pra tentar chegar à alguma coisa. Caso não dê, me avisa que na segunda feira eu passo o código. []'s Ricardo. 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor compreendida. 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em sex, 11/9/09, alexsandro_qs a...@... escreveu: De: alexsandro_qs a...@... Assunto: [delphi-br] Re: Capturar valor em arquivo UDL Para: delphi-br@yahoogrupos.com.br Data: Sexta-feira, 11 de Setembro de 2009, 17:41 Obrigado Ricardo; Eu estou tentando como aquivo ini E fiz assim: procedure LeIni(var aTexto: string); var ArqIni: TIniFile; begin ArqIni := TIniFile.Create( 'c:\arqu1. udl'); try aTexto := ArqIni.ReadString( 'oledb', 'Data source', aTexto); finally ArqIni.Free; end; procedure TForm1.Button1Click (Sender: TObject); var //cria arquivo ini ArqIni: TIniFile; begin ArqIni := TIniFile.Create( 'c:\arqu1. udl'); try ArqIni.WriteString( 'oledb', 'Data source', 'aTexto'); finally ArqIni.Free; end; 2 Problemas: 1º Como eu declaro a palavra Data Source ? ( pois tem espaços) 2º como poderia tratar nesse código o separadar de linhas ; pois ele esta tratando o arquivo todo como se fosse uma linha só. Ele só encontra se eu colocar uma linha abaixo da outra Ex.: InitialCatalog= ERP; Data_Source= www.servidor. com.br Se alguem poder me ajudar com isso eu agradeço muito Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Capturar valor em arquivo UDL
Obrigado Ricardo;
Eu estou tentando como aquivo ini
E fiz assim:
procedure LeIni(var aTexto: string);
var
ArqIni: TIniFile;
begin
ArqIni := TIniFile.Create('c:\arqu1.udl');
try
aTexto := ArqIni.ReadString('oledb', 'Data source', aTexto);
finally
ArqIni.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
//cria arquivo ini
ArqIni: TIniFile;
begin
ArqIni := TIniFile.Create('c:\arqu1.udl');
try
ArqIni.WriteString('oledb', 'Data source', 'aTexto');
finally
ArqIni.Free;
end;
2 Problemas:
1º Como eu declaro a palavra Data Source ? ( pois tem espaços)
2º como poderia tratar nesse código o separadar de linhas ; pois ele esta
tratando o arquivo todo como se fosse uma linha só. Ele só encontra se eu
colocar uma linha abaixo da outra
Ex.:
InitialCatalog=ERP;
Data_Source=www.servidor.com.br
Se alguem poder me ajudar com isso eu agradeço muito
[delphi-br] Capturar valor em arquivo UDL
Bom dia Pessoal, Como eu poderia fazer para capturar em tempo de execução, o valor de um arquivo UDL Data Link que tem essa extrutura abaixo. [oledb] ; Everything after this line is an OLE DB initstring Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=ERP;Data Source=www.servidor.com.br O valor pretendido é o www.servidor.com.br
[delphi-br] Re: Capturar valor em arquivo UDL
Obrigado Ricardo, Mas eu precido desse valor em uma variável !!! :- ( --- Em delphi-br@yahoogrupos.com.br, Ricardo César Cardoso ricardo_engs...@... escreveu Não testei nenhuma das duas sugestões abaixo, mas acredito que funcionem: 1- Tratar esse arquivo UDL como um arquivo texto, carregando num TStringList, por exemplo e buscar dentro do TStringList. 2- Tratar esse arquivo UDL como trataria um arquivo INI, usando a unit INIFiles. Repito que estou indo pela intuição ao sugerir as duas alternativas. []'s Ricardo. 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor compreendida. 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em qui, 10/9/09, alexsandro_qs a...@... escreveu: Bom dia Pessoal, Como eu poderia fazer para capturar em tempo de execução, o valor de um arquivo UDL Data Link que tem essa extrutura abaixo. [oledb] ; Everything after this line is an OLE DB initstring Provider=SQLOLEDB.1;Integrated Security=SSPI; Persist Security Info=False;InitialCatalog=ERP; Data Source=www.servidor.com.br O valor pretendido é o www.servidor.com.br Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com
[delphi-br] Tem como o sistema capiturar em tempo de execução o valor de um arquivo UDL
Bom dia Pessoal, Como eu poderia fazer para capturar em tempo de execução, o valor de um arquivo UDL Data Link que tem essa extrutura abaixo. [oledb] ; Everything after this line is an OLE DB initstring Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=ERP;Data Source=www.servidor.com.br O valor pretendido é o www.servidor.com.br
