Re: [delphi-br] PostgreSQL 8.4, não conecta com zeus
Tente utilizar a versão 6.6.6 do Zeos. A versão 7.0 já está disponível no SVN e eu estou utilizando sem problema, mas não sei se é aconselhável utilizá-la em ambiente de produção. No entanto fica a dica, caso queira fazer um teste por sua própria conta e risco. Eduardo escreveu: Ola pessoal, Preciso me conectar a um db postgreSQL, então baixei o pg8.4 e instalei no meu winxp-sp3. uso Delphi 2007 e uso o zeus6.6.4 com mysql5 sem problemas, mas com o pg8.4 não funciona, ou melhor dizendo não sei fazer funcionar, se alguem puder ajuda fico grato desde já. Na realidade preciso apenas fazer um programa muito simples de migração do pg para mysql, mas antes tenho que conectar ao pg8.4 Obrigado a todos Eduardo. -- []’s. Evandro Siqueira Programador de Sistemas L’essentiel Lingerie (79) 3254-5511 Ramal 218 skype: evandro.lessentiel -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Como saber se o programa está sendo executado local ou pela rede?
Consegui, criei a seguinte função:
function DriveRede(Caminho: String): Boolean;
begin
Caminho:=StringReplace(Caminho, '', '', [rfReplaceAll]);
if Caminho'' then
begin
if LeftStr(Caminho, 2)='\\' then
Result:=True
else
begin
Caminho:=LeftStr(Caminho, 3);
Result:=(GetDriveType(PAnsiChar(Caminho))=DRIVE_REMOTE);
end;
end
else
raise Exception.Create('Caminho inválido!');
end;
Eli Flávio Bortolotte
--- Em delphi-br@yahoogrupos.com.br, Eli elifla...@... escreveu
Existe alguma maneira no Delphi de saber se o programa foi executado a partir
de um .exe local na máquina ou através da rede?
[delphi-br] importar arquivo com qualificador de texto
Nobres colegas, Estou tentando importar um arquivo texto no seguinte formato: 601,029,200900,01,01,20091201,01120001,200912,01,031 601,029,200900,01,01,20091201,01120001,200912,01,031 601,029,200900,01,01,20091201,01120001,200912,01,031 Porém, esbarrei no qualificador de texto (aspas). Como poderia fazer a importação deste arquivo delimitado por vírgula e com as aspas? Alguém já efetuou este processo ou tem alguma idéia de como devo proceder? Já dei uma olhada no velho amigo Google e não consegui nada. Estou utilizando delphi7 e firebird 2.1. Abraços. Ralp Alves [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] RxGifAnimator em tela de espera
Pessoal gosta de criar uma tela de espera enquanto a aplicação realiza alguma operação demorada, tipo abertura query grande. Consegui criar a tela de espera, criando um novo form e apenas chamando ele por .show, porém gostaria nele de inserir um gif animado pelo RxGifAnimator, até consegui porém ele fica estático... será que isso é possível? Cristiano. .com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] importar arquivo com qualificador de texto
Verifique se no Delphi 7 existe a função ExtractStrings. Vim a conhecer no Delphi 2010, por isso não sei a quanto tempo ela existe. :) Esta função quebra uma string gerando uma stringlist e - fora engano da minha parte - essa questão das aspas é resolvida. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] RxGifAnimator em uma tela de espera
Pessoal gosta de criar uma tela de espera enquanto a aplicação realiza alguma operação demorada, tipo abertura query grande. Consegui criar a tela de espera, criando um novo form e apenas chamando ele por .show, porém gostaria nele de inserir um gif animado pelo RxGifAnimator, até consegui porém ele fica estático... será que isso é possível? Cristiano. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Atualizar Executável
Senhores, bom dia. Periodicamente faço atualizações do exe, nos clientes. Como todos eles tem servidor em Linux, e tenho uma área disponível os executáveis ficam nessa área e de madrugada faço a atualização, porem agora tenho uma situação diferente, um cliente que tem um ponto de acesso em Manaus e necessito poder atualizar esse executável em certa forma, transparente e fácil para o usuário que está em Manaus. Entao pergunto, qual seria a sugestão para poder atualizar automaticamente um executável, considerando que tenho acesso via FTP a servidores, ou ate mesmo no site da própria empresa. Existe comercialmente alguma coisa ?. Santiago NSR INFORMÁTICA. São Paulo. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] importar arquivo com qualificador de texto
Ralp,
Aparentemente as aspas duplas indicam que aqueles dados são textos e os
campos sem aspas duplas são numéricos:
Veja se esta função aqui te ajuda com este teu problema:
function Explode(delimiter:string; source:string) : TStringList;
(*
// Name : Explode
// Purpose : each of which is a substring of string formed by splitting
it on
// boundaries formed by the string delim. It does not support PHP's
// 'limit' feature.
// Date : 12 Feb 2001 by Bob Brown (bob.br...@opus.co.nz)
// Comments : Based on PHP's Explode function (http://www.php.net/explode).
// Returns an array of strings, each of which is a substring of
// string formed by splitting it on boundaries formed by the string //
delimiter.
*)
var
c : word;
begin
Result:=TStringList.Create;
c:=0;
while source'' do
begin
if Pos(delimiter,source)0 then
begin
Result.Add(Copy(Source,1,Pos(delimiter,source)-1));
Delete(Source,1,Length(Result[c])+Length(delimiter));
end
else
begin
Result.Add(Source);
Source:='';
end;
inc(c);
end;
end;
Voce teria que fazer algo como:
Dados :=
Explode(',','601,029,200900,01,01,20091201,01120001,200912,01,031
');
For i:=0 to Dados.Count-1 do
begin
If Pos('',Dados[i]) then
begin
//-- é String, eliminar as aspas duplas
Dados[i] := (StringReplace(Dados[i],';','',[rfReplaceAll]));
end;
end;
Ai esta o pontapé inicial, boa sorte.
Sucesso !
Moacir
Res: [delphi-br] Atualizar Executável
faça um shell script para baixar no servidor, e outro exe na abertura do sistema do cliente que verifica se no diretório do servidor existe um versão mais recente Uberdam Cavaletti Programador Delphi Formado em Tecnologia da Informação Pós-graduado em desenvolvimento Java. Professor Tópicos Especias em BD - Unoesc Xanxerê Professor Estruturas de Dados- Unoesc Xanxerê http://buscatextual.cnpq.br/buscatextual/visualizacv.jsp?id=K4251629Y0 De: Tatu t...@nsr.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 5 de Março de 2010 10:21:14 Assunto: [delphi-br] Atualizar Executável Senhores, bom dia. Periodicamente faço atualizações do exe, nos clientes. Como todos eles tem servidor em Linux, e tenho uma área disponível os executáveis ficam nessa área e de madrugada faço a atualização, porem agora tenho uma situação diferente, um cliente que tem um ponto de acesso em Manaus e necessito poder atualizar esse executável em certa forma, transparente e fácil para o usuário que está em Manaus. Entao pergunto, qual seria a sugestão para poder atualizar automaticamente um executável, considerando que tenho acesso via FTP a servidores, ou ate mesmo no site da própria empresa. Existe comercialmente alguma coisa ?. Santiago NSR INFORMÁTICA. São Paulo. [As partes desta mensagem que não continham texto foram removidas] 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]
Re: [delphi-br] Re: Como saber se o programa está se ndo executado local ou pela rede?
uma sugestão:
if copy(paramstr(0),1,2) = '\\' then
begin
showmessage('Em rede!');
end
else
begin
showmessage(Local');
end;
- Original Message -
From: Eli
To: delphi-br@yahoogrupos.com.br
Sent: Friday, March 05, 2010 7:29 AM
Subject: [delphi-br] Re: Como saber se o programa está sendo executado local
ou pela rede?
Consegui, criei a seguinte função:
function DriveRede(Caminho: String): Boolean;
begin
Caminho:=StringReplace(Caminho, '', '', [rfReplaceAll]);
if Caminho'' then
begin
if LeftStr(Caminho, 2)='\\' then
Result:=True
else
begin
Caminho:=LeftStr(Caminho, 3);
Result:=(GetDriveType(PAnsiChar(Caminho))=DRIVE_REMOTE);
end;
end
else
raise Exception.Create('Caminho inválido!');
end;
Eli Flávio Bortolotte
--- Em delphi-br@yahoogrupos.com.br, Eli elifla...@... escreveu
Existe alguma maneira no Delphi de saber se o programa foi executado a
partir de um .exe local na máquina ou através da rede?
[As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] importar arquivo com qualificador de texto
Pelo que entendi, vc deve ou fazer um replace no arquivo e retirar as aspas deixando as virgulas(delimitadores de campo), ou tratar cada registro e retirar as aspas antes de gravar, cada um no seu formato adequado. Marcos Silva Belem-PA De: Ralp Alves Bezerra ral...@gmail.com Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 5 de Março de 2010 9:02:54 Assunto: [delphi-br] importar arquivo com qualificador de texto Nobres colegas, Estou tentando importar um arquivo texto no seguinte formato: 601,029, 200900,01 ,01,20091201, 01120001 ,200912, 01,031 601,029, 200900,01 ,01,20091201, 01120001 ,200912, 01,031 601,029, 200900,01 ,01,20091201, 01120001 ,200912, 01,031 Porém, esbarrei no qualificador de texto (aspas). Como poderia fazer a importação deste arquivo delimitado por vírgula e com as aspas? Alguém já efetuou este processo ou tem alguma idéia de como devo proceder? Já dei uma olhada no velho amigo Google e não consegui nada. Estou utilizando delphi7 e firebird 2.1. Abraços. Ralp Alves [As partes desta mensagem que não continham texto foram removidas] 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]
Res: [delphi-br] Ajuda com Package
Cara..
eu tambem trabalho com pacotes, e realmente é muito bom.
Para resolver esse problema, eu criei um pacote onde tenho varias funçoes, por
exemplo validar CPF e CNPJ entre outras, declarar variaveis publicas, enfim, na
minha aplicação principal e nos outros pacotes tenho só o basico mesmo (Gravar,
excluir, Novo, etc..).
Para poder usar esse pacote q tem todas as variaveis e funçoes, eu declaro esse
paconte na Uses dos outros pacotes ou na aplicação principal.. veja o codigo
abaixo:
unit fLogin;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dxCore, dxButton, StdCtrls, ComCtrls, ExtCtrls, MEU PACOTE;
type
TfLogin = class(TForm)
dxButton1: TdxButton;
dxButton2: TdxButton;
dslogin: TEdit;
dssenha: TEdit;
Entendeu?
Richardson Marcelo Freddo.
msn: freddodp...@hotmail.com
Skype: r.freddo
Rondonópolis/MT
De: Darkzad dark...@yahoo.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 17 de Fevereiro de 2010 12:29:30
Assunto: [delphi-br] Ajuda com Package
Olá pessoal,
Para modularizar minha aplicação resolvi utilizar Packges e que é uma
opção muito boa.
Mas estou tendo um problema:
Não consigo enviar o valor deu uma variável publica da minha Aplicação
principal para o Pacote.
Meu pacote é carregado dinamicamente através do código mais abaixo
Na minha aplicação principal tenho uma váriavel declarada com pública
E quando tento acessar essa várivel ela fala o valor dela é INACESSÍVEL.
O que pode está acontecendo?
Desde já Agradeço
Marcelo Pomarolli
Código para carregar o pacote dinamicamente.
procedure TFPrincipal. ac_PagarExecute( Sender: TObject);
var
H : HMODULE;
PForm : TFormClass;
Form : TForm;
begin
if FileExists(' FINANCEIRO. bpl') then
begin
H := LoadPackage( 'FINANCEIRO. bpl');
if H 0 then
begin
PForm := TFormClass(GetClass ('TfFiltro_ PAGAR'));
if Assigned(PForm) then
begin
Form := PForm.Create( nil);
Form.ShowModal;
FreeAndNil(Form) ;
UnloadPackage( H);
end
else
Application. MessageBox( 'Error ao carregar o MODULO
FINANCEIRO!' ,'Carregamento do Modulo',MB_OK + MB_ICONINFORMATION +
MB_DEFBUTTON1) ;
end;
end
else
Application. MessageBox( 'Para usar este recurso você deve adquirir o
Modulo FINANCEIRO.' +#13+
'Entre em contato com o seu Revendedor para
maiores detalhes.',' Carregamento do Modulo',MB_OK + MB_ICONINFORMATION +
MB_DEFBUTTON1) ;
end;
_ _ _ _ __
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta. messenger. yahoo.com/
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] MSN no delphi
Olá amigos... Nas versoes anteriores do msn, havia a possibilidade de criar um programa q comunicasse via sockets e, dessa forma, conectasse ao msn. Tenho até um script em php q faz isso... Só q depois das mudanças q a microsoft fez, com a versão live do msn, esse protocolo parou de funfar.. Procurei na net pela nova forma de comunicação, mas não encontrei. Minha dúvida: alguem tem ou sabe onde consigo essa informação, de como conectar o msn através do delphi? Obrigado. Anderson [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [OFF-TOPIC] Delphi7 = CTRL+CLICK não funciona no Win7
Com Delphi7, no antigo pc com WinXP, eu usava muito o CTRL+CLICK qdo estava num form e queria abrir um outro form que estava sendo chamado via programação. Exemplo: frmCadProduto := TfrmCadProduto.Create(self).Bastava pressionar o CTRL e clicar sobre o TfrmCadProduto que o mesmo era aberto em outra janela p/ edição dentro do D7. No Win 7 (Ultimate) isto não está funcionando. Ao pressionar o CTRL e posicionar o cursor sobre o nome do form ele até fica em destaque azul, assim como no D7, porém ao clicar ele não é aberto. Alguem sabe o motivo ? Há solução ? Desde já agradeço a atenção dispensada. Att. Albuquerque [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] importar arquivo com qualificador de texto
to pode carregar esse arquivo no delphi. e usar um procedimento para substituir os caracteres por ', ai depois tentar importar o conteudo! acho q da certo. Em 5 de março de 2010 09:02, Ralp Alves Bezerra ral...@gmail.com escreveu: Nobres colegas, Estou tentando importar um arquivo texto no seguinte formato: 601,029,200900,01,01,20091201,01120001,200912,01,031 601,029,200900,01,01,20091201,01120001,200912,01,031 601,029,200900,01,01,20091201,01120001,200912,01,031 Porém, esbarrei no qualificador de texto (aspas). Como poderia fazer a importação deste arquivo delimitado por vírgula e com as aspas? Alguém já efetuou este processo ou tem alguma idéia de como devo proceder? Já dei uma olhada no velho amigo Google e não consegui nada. Estou utilizando delphi7 e firebird 2.1. Abraços. Ralp Alves [As partes desta mensagem que não continham texto foram removidas] -- Nazareno Neto Desenvolvedor Delphi e Firebird http://www.delphisistemas.com.br nazarenon...@hotmail.com nazareno.nobr...@gmail.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] importar arquivo com qualificador de texto
Ralph, Para retirar as aspas, você pode utilizar: StringReplace(linha do arquivo, '', '', [rfReplaceAll]); Para fazer split dos valores separados por vírgula, você pode utilizar uma função que fiz para isso. Disponibilizei em: http://pastebin.com/ZfAGxK5i (use à vontade, mas mantenha a atribuição). Dirlei. Ralp Alves Bezerra escreveu: Nobres colegas, Estou tentando importar um arquivo texto no seguinte formato: 601,029,200900,01,01,20091201,01120001,200912,01,031 601,029,200900,01,01,20091201,01120001,200912,01,031 601,029,200900,01,01,20091201,01120001,200912,01,031 Porém, esbarrei no qualificador de texto (aspas). Como poderia fazer a importação deste arquivo delimitado por vírgula e com as aspas? Alguém já efetuou este processo ou tem alguma idéia de como devo proceder? Já dei uma olhada no velho amigo Google e não consegui nada. Estou utilizando delphi7 e firebird 2.1. Abraços. Ralp Alves
Re: [delphi-br] MSN no delphi
Existe um componente que faz exatamente isso.Segue o link do site oficial.Bricksoft IM http://www.imcomponents.com/ivc.htm Além do Msn ele se conecta com o Yahoo Messenger, AIM, ICQ, Jabber e GTalk. Espero ter ajudado; --- Em sex, 5/3/10, Desenvolvimento Sisponto - Anderson desenvolvime...@sisponto.com.br escreveu: De: Desenvolvimento Sisponto - Anderson desenvolvime...@sisponto.com.br Assunto: [delphi-br] MSN no delphi Para: delphibr delphi-br@yahoogrupos.com.br Data: Sexta-feira, 5 de Março de 2010, 11:59 Olá amigos... Nas versoes anteriores do msn, havia a possibilidade de criar um programa q comunicasse via sockets e, dessa forma, conectasse ao msn. Tenho até um script em php q faz isso... Só q depois das mudanças q a microsoft fez, com a versão live do msn, esse protocolo parou de funfar.. Procurei na net pela nova forma de comunicação, mas não encontrei. Minha dúvida: alguem tem ou sabe onde consigo essa informação, de como conectar o msn através do delphi? Obrigado. Anderson [As partes desta mensagem que não continham texto foram removidas] 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] Erro de Acess Violation
Olá amigos, boa tarde. Preciso de uma ajuda de vocês. Temos um sistema em CodeGear, com SQL, rodando no Vista. Este sistema compilado no Vista apresenta o erro de 'Acess Violation' quando acessamos uma determinada rotina de impressão. Se compilado no 'XP' não apresenta este erro. Isso já aconteceu com alguém ??? Alguém poderia me dar uma ajuda ?? Muito obrigado Abraços Sandro Ricardo [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Mascara com casas decimais fixas.
Alguém sabe se no delphi tem mascara com casas decimais fixas, ou seja digitar sem precisar digitar a virgula ou ponto nos valores??? [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Como saber se o programa está sendo executado local ou pela rede?
Você viu a função que criei?
--- Em delphi-br@yahoogrupos.com.br, Desenvolvimento Sisponto - Anderson
desenvolvime...@... escreveu
uma sugestão:
if copy(paramstr(0),1,2) = '\\' then
begin
showmessage('Em rede!');
end
else
begin
showmessage(Local');
end;
- Original Message -
From: Eli
To: delphi-br@yahoogrupos.com.br
Sent: Friday, March 05, 2010 7:29 AM
Subject: [delphi-br] Re: Como saber se o programa está sendo executado
local ou pela rede?
Consegui, criei a seguinte função:
function DriveRede(Caminho: String): Boolean;
begin
Caminho:=StringReplace(Caminho, '', '', [rfReplaceAll]);
if Caminho'' then
begin
if LeftStr(Caminho, 2)='\\' then
Result:=True
else
begin
Caminho:=LeftStr(Caminho, 3);
Result:=(GetDriveType(PAnsiChar(Caminho))=DRIVE_REMOTE);
end;
end
else
raise Exception.Create('Caminho inválido!');
end;
Eli Flávio Bortolotte
--- Em delphi-br@yahoogrupos.com.br, Eli eliflavio@ escreveu
Existe alguma maneira no Delphi de saber se o programa foi executado a
partir de um .exe local na máquina ou através da rede?
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Como detectar des/conexão da rede ???...
Olá gente... ALLguem sabe, como detectar que o windows perdeu a conexão ou conectou novamente ??? Preciso de um aplicativo que me conte quantas vezes a rede foi desconectada e reconectada tanto em Wired como Wireless.. Obrigado... Luiz Escobar [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Converter arquivo
Galera, boa noite Alguem sabe como converter um arquivo de vídeo no formato avi para flv via Delphi? [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: PostgreSQL 8.4, não conecta com zeus
--- Em delphi-br@yahoogrupos.com.br, Eduardo edun...@... escreveu [...] Outra coisa, eu recebi um arquivo de banco.backup do cliente, que é uma copia do banco de trabalho dele, pergunta, como restaurar isse banco. No MySQL eu vou no DOS e digito mysql -u(usuario) -p(senha) (banco.backup), já que pra mim esse backup contem os comandos sql para restaurar o banco, no PG como faço isso? Nunca fiz backup/restore no Pg, mas deve ter algo na web sobre isso. Se não encontrar, veja com os caras na lista do Pg. Lá temos DBA's que com certeza te darão suporte e detalhes de como proceder. Muito obrigado pela ajuda Eduardo -- []'s Silvio Clécio -- programmer ObjectPascal - Blog: http://blog.silvioprog.com.br programmer ObjectPascal - Site: http://www.silvioprog.com.br programmer ObjectPascal - Twitter: http://twitter.com/silvioprog -- grupo Lazarus-BR no Google - http://groups.google.com/group/lazarus-br/ -- °oO[ Mensagem assinada digitalmente ]Oo°
Re: [delphi-br] Re: Como saber se o programa está se ndo executado local ou pela rede?
vi sim, e concordo 99%...
da forma q fiz, vc usa só um if... não precisa ocupar processamento com
stringreplace, leftstr, getdrive...
concorda?
tbém nem precisa criar function... basta um if...
- Original Message -
From: Eli
To: delphi-br@yahoogrupos.com.br
Sent: Friday, March 05, 2010 5:02 PM
Subject: [delphi-br] Re: Como saber se o programa está sendo executado local
ou pela rede?
Você viu a função que criei?
--- Em delphi-br@yahoogrupos.com.br, Desenvolvimento Sisponto - Anderson
desenvolvime...@... escreveu
uma sugestão:
if copy(paramstr(0),1,2) = '\\' then
begin
showmessage('Em rede!');
end
else
begin
showmessage(Local');
end;
- Original Message -
From: Eli
To: delphi-br@yahoogrupos.com.br
Sent: Friday, March 05, 2010 7:29 AM
Subject: [delphi-br] Re: Como saber se o programa está sendo executado
local ou pela rede?
Consegui, criei a seguinte função:
function DriveRede(Caminho: String): Boolean;
begin
Caminho:=StringReplace(Caminho, '', '', [rfReplaceAll]);
if Caminho'' then
begin
if LeftStr(Caminho, 2)='\\' then
Result:=True
else
begin
Caminho:=LeftStr(Caminho, 3);
Result:=(GetDriveType(PAnsiChar(Caminho))=DRIVE_REMOTE);
end;
end
else
raise Exception.Create('Caminho inválido!');
end;
Eli Flávio Bortolotte
--- Em delphi-br@yahoogrupos.com.br, Eli eliflavio@ escreveu
Existe alguma maneira no Delphi de saber se o programa foi executado a
partir de um .exe local na máquina ou através da rede?
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Converter arquivo
Felipe Lopes escreveu: Galera, boa noite Alguem sabe como converter um arquivo de vídeo no formato avi para flv via Delphi? Use o ffmpeg. Não é componente, é um software pronto escrito em C++ e dos mais fortes para mídias. Veja que os melhores players/conversores atuais usam ffmpeg. Você pode distribuir o EXE dele (é LGPL) junto com teu aplicativo. No Linux eu distribuo um script para instalá-lo caso a distro não o tenha. Ainda no Linux, eu uso isso para converter: $ ffmpeg -i origem.avi destino.flv Escreve algo que envie o parâmetro origem para o EXE do ffmpeg. Não tem erro, uso aqui (para capturar mp3 de flv) e recomento. ffmpeg - Home page: http://ffmpeg.org/ []'s Silvio Clécio -- programmer ObjectPascal - Blog: http://blog.silvioprog.com.br programmer ObjectPascal - Site: http://www.silvioprog.com.br programmer ObjectPascal - Twitter: http://twitter.com/silvioprog -- grupo Lazarus-BR no Google - http://groups.google.com/group/lazarus-br/ -- °oO[ Mensagem assinada digitalmente ]Oo° [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Como saber se o programa está sendo executado local ou pela rede?
Excelentes dicas, como muitas que encontro na web e compartilho com todos, aqui:
http://www.silvioprog.com.br/dicas
Usei a que consome menos memória, devido ela funcionar perfeitamente no
Lazarus+Linux. Adaptei para o FPC-Lazarus, coloquei o nome do autor e publiquei
para todos aqui:
http://www.silvioprog.com.br/dicas/saberseoprogramaestasendoexecutadolocalouemrede
Obrigado a todos que compartilham suas suas ideias/dicas :)
[]'s
Silvio Clécio
--
programmer ObjectPascal - Blog: http://blog.silvioprog.com.br
programmer ObjectPascal - Site: http://www.silvioprog.com.br
programmer ObjectPascal - Twitter: http://twitter.com/silvioprog
--
grupo Lazarus-BR no Google - http://groups.google.com/group/lazarus-br/
--
°oO[ Mensagem assinada com PGP Public Key, Version: GnuPG v1.4.9 (GNU/Linux)
]Oo°
--- Em delphi-br@yahoogrupos.com.br, Desenvolvimento Sisponto - Anderson
desenvolvime...@... escreveu
vi sim, e concordo 99%...
da forma q fiz, vc usa só um if... não precisa ocupar processamento com
stringreplace, leftstr, getdrive...
concorda?
tbém nem precisa criar function... basta um if...
- Original Message -
From: Eli
To: delphi-br@yahoogrupos.com.br
Sent: Friday, March 05, 2010 5:02 PM
Subject: [delphi-br] Re: Como saber se o programa está sendo executado
local ou pela rede?
Você viu a função que criei?
--- Em delphi-br@yahoogrupos.com.br, Desenvolvimento Sisponto - Anderson
desenvolvimento@ escreveu
uma sugestão:
if copy(paramstr(0),1,2) = '\\' then
begin
showmessage('Em rede!');
end
else
begin
showmessage(Local');
end;
- Original Message -
From: Eli
To: delphi-br@yahoogrupos.com.br
Sent: Friday, March 05, 2010 7:29 AM
Subject: [delphi-br] Re: Como saber se o programa está sendo executado
local ou pela rede?
Consegui, criei a seguinte função:
function DriveRede(Caminho: String): Boolean;
begin
Caminho:=StringReplace(Caminho, '', '', [rfReplaceAll]);
if Caminho'' then
begin
if LeftStr(Caminho, 2)='\\' then
Result:=True
else
begin
Caminho:=LeftStr(Caminho, 3);
Result:=(GetDriveType(PAnsiChar(Caminho))=DRIVE_REMOTE);
end;
end
else
raise Exception.Create('Caminho inválido!');
end;
Eli Flávio Bortolotte
