Re: [delphi-br] Vírus na compilação D7
Tenho muitos componentes no D7 .. - Original Message - From: Ricardo Augusto ricardo250...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Monday, April 12, 2010 8:46 PM Subject: Re: [delphi-br] Vírus na compilação D7 Vc está usando algum componente de terceiros? Pq na empresa que trabalho usamos o Delphi 7 e nunca tivemos esse problema em nenhum cliente. Em 12 de abril de 2010 19:59, Bollasette bollase...@yahoo.com.br escreveu: Olá, saudações a todos. Só o que faltava !!! Pessoal, estou com um problema e gostaria de saber se alguém da lista passou por isso. Compilei um exemplo em D7 e mandei prá um amigo e o mesmo me reportou a presença de um vírus. Enviei o arquivo para análise no virustotal.com e foi confirmado um vírus: (Sus/BancDl-A). Não encontrei nennhuma vacina free para a correção. Já escaneei o PC com o avast, AVG, spybot, comodo e nada, e lá se vão quinze dias perdidos. [ ]sss [As partes desta mensagem que não continham texto foram removidas] -- _ Ricardo Augusto Muitos dos problemas do mundo devem-se ao fato de que os ignorantes estão completamente seguros e os inteligentes cheios de dúvidas (Bertrand Russel) [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Re: [delphi-br] Componente cxDBLookupComboBox
Nem eu. []s Marlon Em 12 de abril de 2010 18:44, Eduardo Suruagy eduardosuru...@gmail.comescreveu: Não consegui encontrar essa propriedade... [As partes desta mensagem que não continham texto foram removidas] [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
[delphi-br] Formato de arquivo
Bom dia pessoal
Estou tentando descobrir o formato de um arquivo e um metodo para abri-lo.
Estou suspeitando que seja algo compactado, alguem arrisca???
O arquivo começa assim
SPISLH5
¢ sÍÖ 60ŽáÌ®ílÏè%*)B¨j„©D¤4¨@…�...@€²*~ ÒF¤2‘¡A 0AJ`
`lÛm¾ïµûÿ¿ÿÿç?÷œïyï½÷Þ÷Þ|ùïžwÎ|÷Î|v÷·kdm#×DZ Û1°10 |õ _À Ì«ëÝ
÷S¶æêôöðöèíÛ~ß1=9©ï›Tøê ÁÀÿüx€€ÿõî‚€ˆ(('ÿ¯D½P¿¿
Atenc;
Elazar Dornelles Ceza
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] [OFF] Consultar NFE
Pessoal, sobre a NFE, o governo disponibiliza um site para consulta da NFE através do DANFE. ( https://www.nfe.fazenda.gov.br/portal/FormularioDePesquisa.aspx?tipoconsulta=completa ) Ocorre que tem que digitar uma imagem para passar a consulta, e a empresa onde trabalho gostaria de automatizar esta consulta, pra não ter que disponibilizar uma pessoa apenas para isso. Como a NFE trabalha através de Webservices, pensei se não haveria algum webservice para efetuar este tipo de consulta também, e desta maneira eu poderia desenvolver em delphi um programa para acessar essas informações. Nunca mexi com a NFE e não sei praticamente nada sobre este assunto, alguem conhece alguma solução para esta consulta? Obrigado. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [DICA] Mostrando Dados da BIOS em Delphi
{
ShowBiosData.dpr
Mostra os dados da BIOS do micro. Roda em Windows 9x/ME ou
NT/2000/XP/2003.
por Rubem Nascimento da Rocha - djpardalro...@hotmail.com
Pode ser usado livremente, desde que seja dado o devido crédito ao autor.
}
program ShowBiosData;
{$APPTYPE CONSOLE}
{$WARNINGS OFF}
uses
Windows, SysUtils, Classes, Types, Registry;
const
// Para uso somente em plataformas Windows 9x/ME
cBIOSName = $FE061;
cBIOSDate = $5;
cBIOSExtInfo = $FEC71;
cBIOSCopyright = $FE091;
// Para uso somente em plataformas NT (NT/2000/XP/2003/etc.)
rkBIOS = '\HARDWARE\DESCRIPTION\System';
rvBiosDate = 'SystemBiosDate';
rvBiosID = 'Identifier';
rvBiosVersion = 'SystemBiosVersion';
function MultiSzToArray(const MultiSz: PChar): TStringDynArray;
var
P: PChar; // aponta para as strings no buffer
begin
SetLength(Result, 0);
// Não faz nada se MultiSz é nil
if not Assigned(MultiSz) then
Exit;
// Busca por strings delimitadas por #0 até encontrar #0#0
P := MultiSz;
while P^ #0 do
begin
// adiciona strings ao vetor resultado (retorno da função)
SetLength(Result, Length(Result) + 1);
Result[Length(Result) - 1] := StrPas(P);
// move ponteiro para o início da próximo string (se houver)
Inc(P, StrLen(P) + 1);
end;
end;
procedure MultiStrFromBuf(Buffer: array of Byte; var List: TStringList);
var
p: PChar;
lStrings: TStringDynArray;
i: Integer;
begin
p := PChar(@Buffer);
lStrings := MultiSzToArray(p);
for i := Low(lStrings) to High(lStrings) do
List.Add(lStrings[i]);
end;
function ReadRegistryValueAsString(Root: HKEY; Key, Value: string;
BinaryAsHex: Boolean = True): string;
var
sl: TStringList;
i, DataSize, DataType: Integer;
Data: array[0..1024] of Byte;
begin
Result := EmptyStr;
with TRegistry.Create do
try
RootKey := Root;
Access := KEY_READ;
if OpenKey(Key, False) and ValueExists(Value) then
begin
RegQueryValueEx(CurrentKey, PChar(Value), nil, PDWORD(@DataType), nil,
PDWORD(@DataSize));
case DataType of
REG_SZ:
Result := ReadString(Value);
REG_EXPAND_SZ:
begin
Result := ReadString(Value);
DataSize := ExpandEnvironmentStrings(PChar(Result), nil,
DataSize);
if DataSize 0 then
begin
DataSize :=
ExpandEnvironmentStrings(PChar(Result), PChar(@Data),
DataSize);
Result := string(PChar(@Data));
end;
end;
REG_DWORD, REG_DWORD_BIG_ENDIAN:
Result := IntToStr(ReadInteger(Value));
REG_MULTI_SZ:
begin
Result := EmptyStr;
if DataSize -1 then
begin
ReadBinaryData(Value, Data, DataSize);
sl := TStringList.Create;
try
MultiStrFromBuf(Data, sl);
Result := sl.Text;
finally
sl.Free;
end;
end;
end;
else
begin
Result := EmptyStr;
if DataSize - 1 then
begin
ReadBinaryData(Value, Data, DataSize);
if BinaryAsHex then
begin
i := 0;
if Data[i] 0 then
Result := Result + Format('%2.2x', [Data[i]])
else
if Copy(Result, Length(Result), 1) #10 then
Result := Result + sLineBreak;
SetLength(Result, Length(Result) - 2);
end
else
begin
for i := 0 to DataSize - 1 do
Result := Result + Format('%2.2x ',[Ord(Data[i])]);
SetLength(Result, Length(Result) - 1);
end;
end;
end;
end;
CloseKey;
end;
finally
Free;
end;
end;
function BIOSName: String;
begin
Result :=
ReadRegistryValueAsString(HKEY_LOCAL_MACHINE, rkBIOS, rvBiosID, False);
end;
function BIOSDate: String;
begin
Result :=
ReadRegistryValueAsString(HKEY_LOCAL_MACHINE, rkBIOS, rvBiosDate,
False);
end;
function BIOSCopyright: AnsiString;
begin
Result :=
ReadRegistryValueAsString(HKEY_LOCAL_MACHINE, rkBIOS, rvBiosVersion,
False);
end;
begin
if Win32Platform VER_PLATFORM_WIN32_NT then
begin
WriteLn('BIOS Name: ', StrPas(PChar(Ptr(cBIOSName;
WriteLn('BIOS Data: ', StrPas(PChar(Ptr(cBIOSDate;
WriteLn('BIOS Copyright: ', StrPas(PChar(Ptr(cBIOSCopyright;
WriteLn('BIOS Extended Info: ', StrPas(PChar(Ptr(cBIOSExtInfo;
end
else
begin
WriteLn('BIOS Name: ', BIOSName);
WriteLn('BIOS Date: ', BIOSDate);
WriteLn('BIOS Copyright: ', BIOSCopyright);
end;
[delphi-br] Mensagem
Boa tarde
Coloquei uma chave na coluna de CGC em uma cadastro de fornecedores
Para nao cadastrar em duplicidade a mesma empresa.
Minha duvida
a mensagem de erro de chave volta em ingles pelo delphi, teria como eu alterar
esta mensagem???
e colocar algo mais simples
Atenciosamente,
Sérgio E. Santo
Depto. Gestão US - US 001
ges...@premiumalimentacao.com.br
Premium - Responsabilidade e Garantia na Pratica Diária de Bem Atender
11 - 3378-4501
35 - 3422-9949
11 - 8498-4582
visite nosso site...
www.premiumalimentacao.com.br
A Premium é uma concessionária moderna e ágil quando o assunto é solução em
alimentação coletiva, atuando em todo o interior dos estados de São Paulo e
Minas Gerais desde1998 e pronta para atuar em todas as regiões do país, esta
preparada para oferecer produtos e serviços com excelência em qualidade nos
segmentos da indústria, saúde, comércio e serviços, educação, agro-negócio e
outros onde nossas soluções sejam bem vindas. Possuimos um diversificado e
flexível portifólio para soluções completas das necessidades dos Clientes e
Consumidores.
De: Rubem Rocha rubem.ro...@dtmanaus.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 13 de Abril de 2010 12:53:03
Assunto: [delphi-br] [DICA] Mostrando Dados da BIOS em Delphi
{
ShowBiosData. dpr
Mostra os dados da BIOS do micro. Roda em Windows 9x/ME ou
NT/2000/XP/2003.
por Rubem Nascimento da Rocha - djpardalrocha@ hotmail.com
Pode ser usado livremente, desde que seja dado o devido crédito ao autor.
}
program ShowBiosData;
{$APPTYPE CONSOLE}
{$WARNINGS OFF}
uses
Windows, SysUtils, Classes, Types, Registry;
const
// Para uso somente em plataformas Windows 9x/ME
cBIOSName = $FE061;
cBIOSDate = $5;
cBIOSExtInfo = $FEC71;
cBIOSCopyright = $FE091;
// Para uso somente em plataformas NT (NT/2000/XP/ 2003/etc. )
rkBIOS = '\HARDWARE\DESCRIPT ION\System' ;
rvBiosDate = 'SystemBiosDate' ;
rvBiosID = 'Identifier' ;
rvBiosVersion = 'SystemBiosVersion' ;
function MultiSzToArray( const MultiSz: PChar): TStringDynArray;
var
P: PChar; // aponta para as strings no buffer
begin
SetLength(Result, 0);
// Não faz nada se MultiSz é nil
if not Assigned(MultiSz) then
Exit;
// Busca por strings delimitadas por #0 até encontrar #0#0
P := MultiSz;
while P^ #0 do
begin
// adiciona strings ao vetor resultado (retorno da função)
SetLength(Result, Length(Result) + 1);
Result[Length( Result) - 1] := StrPas(P);
// move ponteiro para o início da próximo string (se houver)
Inc(P, StrLen(P) + 1);
end;
end;
procedure MultiStrFromBuf( Buffer: array of Byte; var List: TStringList) ;
var
p: PChar;
lStrings: TStringDynArray;
i: Integer;
begin
p := PChar(@Buffer) ;
lStrings := MultiSzToArray( p);
for i := Low(lStrings) to High(lStrings) do
List.Add(lStrings[ i]);
end;
function ReadRegistryValueAs String(Root: HKEY; Key, Value: string;
BinaryAsHex: Boolean = True): string;
var
sl: TStringList;
i, DataSize, DataType: Integer;
Data: array[0..1024] of Byte;
begin
Result := EmptyStr;
with TRegistry.Create do
try
RootKey := Root;
Access := KEY_READ;
if OpenKey(Key, False) and ValueExists( Value) then
begin
RegQueryValueEx( CurrentKey, PChar(Value) , nil, PDWORD(@DataType) , nil,
PDWORD(@DataSize) );
case DataType of
REG_SZ:
Result := ReadString(Value) ;
REG_EXPAND_SZ:
begin
Result := ReadString(Value) ;
DataSize := ExpandEnvironmentSt rings(PChar( Result), nil,
DataSize);
if DataSize 0 then
begin
DataSize :=
ExpandEnvironmentSt rings(PChar( Result), PChar(@Data) ,
DataSize);
Result := string(PChar( @Data));
end;
end;
REG_DWORD, REG_DWORD_BIG_ ENDIAN:
Result := IntToStr(ReadIntege r(Value)) ;
REG_MULTI_SZ:
begin
Result := EmptyStr;
if DataSize -1 then
begin
ReadBinaryData( Value, Data, DataSize);
sl := TStringList. Create;
try
MultiStrFromBuf( Data, sl);
Result := sl.Text;
finally
sl.Free;
end;
end;
end;
else
begin
Result := EmptyStr;
if DataSize - 1 then
begin
ReadBinaryData( Value, Data, DataSize);
if BinaryAsHex then
begin
i := 0;
if Data[i] 0 then
Result := Result + Format('%2.2x' , [Data[i]])
else
if Copy(Result, Length(Result) , 1) #10 then
Result := Result + sLineBreak;
SetLength(Result, Length(Result) - 2);
end
else
begin
for i := 0 to DataSize - 1 do
Result := Result + Format('%2.2x ',[Ord(Data[ i])]);
SetLength(Result, Length(Result) - 1);
end;
end;
end;
end;
CloseKey;
end;
finally
Free;
end;
end;
function BIOSName: String;
begin
Result :=
ReadRegistryValueAs String(HKEY_ LOCAL_MACHINE, rkBIOS, rvBiosID, False);
end;
function BIOSDate: String;
begin
Result :=
ReadRegistryValueAs String(HKEY_ LOCAL_MACHINE, rkBIOS, rvBiosDate,
False);
end;
function BIOSCopyright: AnsiString;
begin
Result :=
ReadRegistryValueAs String(HKEY_ LOCAL_MACHINE, rkBIOS, rvBiosVersion,
False);
end;
begin
if Win32Platform VER_PLATFORM_ WIN32_NT then
Re: [delphi-br] Mensagem
Em 13/04/2010 13:53, Gestão - Premium escreveu: Boa tarde Coloquei uma chave na coluna de CGC em uma cadastro de fornecedores Para nao cadastrar em duplicidade a mesma empresa. Minha duvida a mensagem de erro de chave volta em ingles pelo delphi, teria como eu alterar esta mensagem??? e colocar algo mais simples Atenciosamente, Sérgio E. Santo Sérgio, boa tarde. A mensagem retornada é fornecida pelo banco de dados (aliás, qual você usa?). Basta você capturar a exceção retornada e tratá-la na aplicação usando um bloco try/except. []'s -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal willianjhon...@yahoo.com.br --- Seja livre. Use Linux. Grupo de Usuários GNU/Linux de São José dos Pinhais Linux user number 449753 --- Powered by Slackware Linux 13.0 Kernel 2.6.32.6-i686-core2quad --- Antes de perguntar: http://www.istf.com.br/perguntas/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Mensagem
Utilizo SQL Server Atenciosamente, Sérgio E. Santo Depto. Gestão US - US 001 ges...@premiumalimentacao.com.br Premium - Responsabilidade e Garantia na Pratica Diária de Bem Atender 11 - 3378-4501 35 - 3422-9949 11 - 8498-4582 visite nosso site... www.premiumalimentacao.com.br A Premium é uma concessionária moderna e ágil quando o assunto é solução em alimentação coletiva, atuando em todo o interior dos estados de São Paulo e Minas Gerais desde1998 e pronta para atuar em todas as regiões do país, esta preparada para oferecer produtos e serviços com excelência em qualidade nos segmentos da indústria, saúde, comércio e serviços, educação, agro-negócio e outros onde nossas soluções sejam bem vindas. Possuimos um diversificado e flexível portifólio para soluções completas das necessidades dos Clientes e Consumidores. De: Willian Jhonnes L. dos Santos willianjhon...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 13 de Abril de 2010 15:05:00 Assunto: Re: [delphi-br] Mensagem Em 13/04/2010 13:53, Gestão - Premium escreveu: Boa tarde Coloquei uma chave na coluna de CGC em uma cadastro de fornecedores Para nao cadastrar em duplicidade a mesma empresa. Minha duvida a mensagem de erro de chave volta em ingles pelo delphi, teria como eu alterar esta mensagem??? e colocar algo mais simples Atenciosamente, Sérgio E. Santo Sérgio, boa tarde. A mensagem retornada é fornecida pelo banco de dados (aliás, qual você usa?). Basta você capturar a exceção retornada e tratá-la na aplicação usando um bloco try/except. []'s -- - - - - --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolve dor Object/Free Pascal willianjhonnes@ yahoo.com. br - - - - --- Seja livre. Use Linux. Grupo de Usuários GNU/Linux de São José dos Pinhais Linux user number 449753 - - - - --- Powered by Slackware Linux 13.0 Kernel 2.6.32.6-i686- core2quad - - - - --- Antes de perguntar: http://www.istf. com.br/perguntas / [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] Res: Mensagem
Não me recordo qual, mas nos exemplos do Bruno em http://cc.codegear.com/author/795118 tem um que faz exatamente o que você quer. Ele tem um tratamento para vários tipos de exceptions. Luciano C. Simões
[delphi-br] Fortes report
Pessoal alguem ja teve este problema ao gerar o relatório a primeira página sai em branco Fortes Reports Delphi 2007 Atenciosamente, Sérgio E. Santo Depto. Gestão US - US 001 ges...@premiumalimentacao.com.br Premium - Responsabilidade e Garantia na Pratica Diária de Bem Atender 11 - 3378-4501 35 - 3422-9949 11 - 8498-4582 visite nosso site... www.premiumalimentacao.com.br A Premium é uma concessionária moderna e ágil quando o assunto é solução em alimentação coletiva, atuando em todo o interior dos estados de São Paulo e Minas Gerais desde1998 e pronta para atuar em todas as regiões do país, esta preparada para oferecer produtos e serviços com excelência em qualidade nos segmentos da indústria, saúde, comércio e serviços, educação, agro-negócio e outros onde nossas soluções sejam bem vindas. Possuimos um diversificado e flexível portifólio para soluções completas das necessidades dos Clientes e Consumidores. De: simoesluciano simoesluci...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 13 de Abril de 2010 16:05:45 Assunto: [delphi-br] Res: Mensagem Não me recordo qual, mas nos exemplos do Bruno em http://cc.codegear. com/author/ 795118 tem um que faz exatamente o que você quer. Ele tem um tratamento para vários tipos de exceptions. Luciano C. Simões 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] Componente cxDBLookupComboBox
-TcxDBLookupComboBox -Properties - TcxLookupComboBoxProperties -ListOptions - TcxLookupDBGridOptions property SyncMode: Boolean; Help do ExpressEditors 6: Enables synchronization between a data-aware dropdown list and its bound TDataSet. Description Set this property to True to synchronize the current record in a dropdown list with the current record in the TDataSet bound to this list. Whenever record focus changes in the list, the current TDataSet record automatically changes to point to the same data, and vice versa. The default value of the SyncMode property is False. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Vírus na compilação D7
certa vez, precisei encapsular um .exe num .RES para ser extraído no cliente (tipo um self-extractor). Alguns antivirus achavam q esse procedimento era um virus, por conter traços de mesmo tipo de código de alguns virus (já q eles incorporam no .exe). O que eu fiz? descobri onde ficava o código e isolei do meu aplicativo. Se vc estiver fazendo o mesmo, veja se consegue isolar unit por unit.. Agora, se teu micro tá realmente com virus, aí já era... só um bom antivirus pra tirar. Mas pra tirar a dúvida, entre em modo de segurança e compile o programa... veja se mesmo assim o .exe vai com o virus. Se for, é o código. se não for, é virus mesmo.. boa sorte. - Original Message - From: Bollasette To: delphi-br@yahoogrupos.com.br Sent: Tuesday, April 13, 2010 5:39 AM Subject: Re: [delphi-br] Vírus na compilação D7 Tenho muitos componentes no D7 .. - Original Message - From: Ricardo Augusto ricardo250...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Monday, April 12, 2010 8:46 PM Subject: Re: [delphi-br] Vírus na compilação D7 Vc está usando algum componente de terceiros? Pq na empresa que trabalho usamos o Delphi 7 e nunca tivemos esse problema em nenhum cliente. Em 12 de abril de 2010 19:59, Bollasette bollase...@yahoo.com.br escreveu: Olá, saudações a todos. Só o que faltava !!! Pessoal, estou com um problema e gostaria de saber se alguém da lista passou por isso. Compilei um exemplo em D7 e mandei prá um amigo e o mesmo me reportou a presença de um vírus. Enviei o arquivo para análise no virustotal.com e foi confirmado um vírus: (Sus/BancDl-A). Não encontrei nennhuma vacina free para a correção. Já escaneei o PC com o avast, AVG, spybot, comodo e nada, e lá se vão quinze dias perdidos. [ ]sss [As partes desta mensagem que não continham texto foram removidas] -- _ Ricardo Augusto Muitos dos problemas do mundo devem-se ao fato de que os ignorantes estão completamente seguros e os inteligentes cheios de dúvidas (Bertrand Russel) [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Vírus na compilação D7
Eu também tenho vários componentes de terceiros, e um dos módulos que eu gero está sendo reconhecido como vírus, um amigo meu me disse que isso pode ser um vírus que afeta os arquivos do próprio Delphi, agora não sei dizer se isso é verdade, até por que só um dos módulos está com problemas, ainda não averiguei a fundo, mas se alguém tiver informações ajuda bastante. Meu Delphi é o 6 []'s Em 13 de abril de 2010 05:39, Bollasette bollase...@yahoo.com.br escreveu: Tenho muitos componentes no D7 .. - Original Message - From: Ricardo Augusto ricardo250...@yahoo.com.brricardo250175%40yahoo.com.br To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Monday, April 12, 2010 8:46 PM Subject: Re: [delphi-br] Vírus na compilação D7 Vc está usando algum componente de terceiros? Pq na empresa que trabalho usamos o Delphi 7 e nunca tivemos esse problema em nenhum cliente. Em 12 de abril de 2010 19:59, Bollasette bollase...@yahoo.com.brbollasette%40yahoo.com.br escreveu: Olá, saudações a todos. Só o que faltava !!! Pessoal, estou com um problema e gostaria de saber se alguém da lista passou por isso. Compilei um exemplo em D7 e mandei prá um amigo e o mesmo me reportou a presença de um vírus. Enviei o arquivo para análise no virustotal.com e foi confirmado um vírus: (Sus/BancDl-A). Não encontrei nennhuma vacina free para a correção. Já escaneei o PC com o avast, AVG, spybot, comodo e nada, e lá se vão quinze dias perdidos. [ ]sss [As partes desta mensagem que não continham texto foram removidas] -- _ Ricardo Augusto Muitos dos problemas do mundo devem-se ao fato de que os ignorantes estão completamente seguros e os inteligentes cheios de dúvidas (Bertrand Russel) [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [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] Capturar Data da Bios pelo Windows 7
Denilson, No Windows7 o endereco para a data da Bios mudou. Nao sei dizer qual eh agora, mas existem componentes FREE que fazem esta captura. De uma olhada na pagina do TORRYs. Obrigado. *Murilo Cunha* MuriloCunha Ribeirão Preto - SP Brasil | 14056-658 +55 (16) 9212-4248 murilo_cu...@ig.com.br mailto:murilo_cu...@ig.com.br|www.google.com.br http://www.google.com.br Aviso Legal: esta mensagem eletrônica pode conter informações privilegiadas e/ou confidenciais, portanto, fica o seu receptor notificado de que qualquer disseminação, distribuição ou cópia não autorizada é estritamente proibida. Se você entende que recebeu esta mensagem indevidamente ou por engano, por favor, informe este fato ao remetente e apague-a de seu computador. On 12/04/2010 23:24, denilsonass2008 wrote: Olá amigos, Recentemente, peguei aqui um exemplo de como capturar a Data da Bios que é: String(PChar(Ptr($5))); Só que fui executar esse comando pelo Delphi 2009, instalado no Windows 7 e me retorna um erro de Leitura do Endereço 0005. Testei também em máquinas com o Windows Vista (SP1), Windows XP (SP3) e Windows 2003 (SP1), e ocorreu o mesmo erro. Gostaria de saber de vocês se existe outra função que me retorne essa data. Desde já, agradeço a todos pela atenção. Denilson - 12/04/2010.
[delphi-br] Sistema para Builds de projetos
Olá amigos, Qual sistema vocês usam para fazer o Build de seus projetos? Lembro-me que um tempão atrás um amigo, postou um sistema que ele desenvolveu, só que perdi o link e nem lembro o nome dele... :-) []s -- _ T.·.F.·.A.·. Fellipe Henrique --- CAMPANHA POR UMA INTERNET SEGURA Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar mensagens use SEMPRE o Cco (cópia oculta). Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar um e-mail, delete todas as informações que apareçam no corpo do e-mail e que possam ser usadas por hackers. ### [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Vírus na compilação D 7
Não me recordo agora precisamente onde li, mas lembro de ver através do google de um vírus feito pro D7 que altera uma das bibliotecas dele, e por isso ao compilar qualquer coisa imbute o vírus junto... a facilidade é que o vírus faz um backup da bliblioteca original, então era só restaurar o arquivo de backup. De uma pesquisada no google que acha fácil... tem vários blogs que falam desse vírus Fabiano Em 13/04/2010 05:39, Bollasette escreveu: Tenho muitos componentes no D7 .. - Original Message - From: Ricardo Augusto ricardo250...@yahoo.com.br mailto:ricardo250175%40yahoo.com.br To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Monday, April 12, 2010 8:46 PM Subject: Re: [delphi-br] Vírus na compilação D7 Vc está usando algum componente de terceiros? Pq na empresa que trabalho usamos o Delphi 7 e nunca tivemos esse problema em nenhum cliente. Em 12 de abril de 2010 19:59, Bollasette bollase...@yahoo.com.br mailto:bollasette%40yahoo.com.br escreveu: Olá, saudações a todos. Só o que faltava !!! Pessoal, estou com um problema e gostaria de saber se alguém da lista passou por isso. Compilei um exemplo em D7 e mandei prá um amigo e o mesmo me reportou a presença de um vírus. Enviei o arquivo para análise no virustotal.com e foi confirmado um vírus: (Sus/BancDl-A). Não encontrei nennhuma vacina free para a correção. Já escaneei o PC com o avast, AVG, spybot, comodo e nada, e lá se vão quinze dias perdidos. [ ]sss [As partes desta mensagem que não continham texto foram removidas] -- _ Ricardo Augusto Muitos dos problemas do mundo devem-se ao fato de que os ignorantes estão completamente seguros e os inteligentes cheios de dúvidas (Bertrand Russel) [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componente cxDBLookupComboBox
Pessoal, Esta nao eh uma propriedade, é um componente do pacote da DevExpress. Eh um combobox cheio de frescuras (frescuras muito boas, por sinal!). Obrigado. *Murilo Cunha* MuriloCunha Ribeirão Preto - SP Brasil | 14056-658 +55 (16) 9212-4248 murilo_cu...@ig.com.br mailto:murilo_cu...@ig.com.br|www.google.com.br http://www.google.com.br Aviso Legal: esta mensagem eletrônica pode conter informações privilegiadas e/ou confidenciais, portanto, fica o seu receptor notificado de que qualquer disseminação, distribuição ou cópia não autorizada é estritamente proibida. Se você entende que recebeu esta mensagem indevidamente ou por engano, por favor, informe este fato ao remetente e apague-a de seu computador. On 13/04/2010 08:19, Marlon Tiedt wrote: Nem eu. []s Marlon Em 12 de abril de 2010 18:44, Eduardo Suruagy eduardosuru...@gmail.comescreveu: Não consegui encontrar essa propriedade... [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Erro : Out of Memory
Olá Pessoal, Bom Dia... Eu tenho uma aplicação escrita em Delphi6 VCL que roda 24 hs por dia em um servidor windows 2000 server. Esta aplicação fica lendo uma tabela nomeada T_SPOOL_PRINTER e quando encontra uma solicitação de impressão ou envio de email com o orçamento, ela executa e volta ao estado de espera. Alé disso tem 3 rotinas diárias que executam às 21:30, 22:00 e 22:30 horas que enviam emails de aviso de faturamento, cobrança de aprovação de orçamento e congelamento de pedidos antigos. O programa fica o dia inteiro rodando executando todas as funções sem dar qualquer tipo de erro, e às vezes até à noite, acontece que às vezes, sem explicação nenhuma,. o programa apresenta o erro Out of Memory e para. O engraçado é que as funções são sempre as mesmas, não teve alterações... A pergunta : Alguém sabe se tem como tratar este erro para impedí-lo? Abraço Samuca __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] Impressão Bematech (em rede)
Olá pessoal, como estão? Estou desenvolvendo um projeto em Delphi7 e atualmente o software imprimi na impressora bematech não fiscal perfeitamente pela portal COM1, porém gostaria de saber como devo proceder para que outras máquinas na rede consigam acessar aquela impressora na máquina que está instalada e imprimir um cupom ?? Se alguém puder me ajudar agradeço desde já! Obrigado Att, -- __ Felipe B. Oriani fbori...@gmail.com | www.felipeoriani.com.br ...Trabalhe quanto puder, tornando-se útil quanto possível... , por André Luiz [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Sistema para Builds de projetos
No D2010, se os projetos estiverem em um mesmo group, há uma opção build all projects. Luciano C. Simões --- Em delphi-br@yahoogrupos.com.br, Fellipe Henrique felli...@... escreveu Olá amigos, Qual sistema vocês usam para fazer o Build de seus projetos? Lembro-me que um tempão atrás um amigo, postou um sistema que ele desenvolveu, só que perdi o link e nem lembro o nome dele... :-)
Re: [delphi-br] Erro : Out of Memory
Isso está com cara de vazamento de memoria (memory leaks), verifique se nas suas funções você não esta criando algum objeto e não estra destruindo. Para certificar-se de estar destruindo, utilize o try .. finally. objeto := tobjeto.create try usa o objeto aqui.. finally FreeAndNil(objeto); end; uma boa maneira de descobrir o que está ocorrendo tb, para facilitar a procura de qual objeto esta ficando alocado, vc pode instalar o eureka log e ativar a opção de memory leaks. Ela é paga, mas vc consegue usar um tempo como trial. Eu utilizo esta ferramenta (versão full) e é uma mão na roda. []s Alemao; Em 13 de abril de 2010 10:50, Samuca ( Yahoo ) samuca_1...@yahoo.com.brescreveu: Olá Pessoal, Bom Dia... Eu tenho uma aplicação escrita em Delphi6 VCL que roda 24 hs por dia em um servidor windows 2000 server. Esta aplicação fica lendo uma tabela nomeada T_SPOOL_PRINTER e quando encontra uma solicitação de impressão ou envio de email com o orçamento, ela executa e volta ao estado de espera. Alé disso tem 3 rotinas diárias que executam às 21:30, 22:00 e 22:30 horas que enviam emails de aviso de faturamento, cobrança de aprovação de orçamento e congelamento de pedidos antigos. O programa fica o dia inteiro rodando executando todas as funções sem dar qualquer tipo de erro, e às vezes até à noite, acontece que às vezes, sem explicação nenhuma,. o programa apresenta o erro Out of Memory e para. O engraçado é que as funções são sempre as mesmas, não teve alterações... A pergunta : Alguém sabe se tem como tratar este erro para impedí-lo? Abraço Samuca __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.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
[delphi-br] Re: Impressão Bematech (em rede)
Uma opção é capturar a porta usando o comando NET USE. Luciano C. Simões --- Em delphi-br@yahoogrupos.com.br, Felipe Oriani fbori...@... escreveu Olá pessoal, como estão? Estou desenvolvendo um projeto em Delphi7 e atualmente o software imprimi na impressora bematech não fiscal perfeitamente pela portal COM1, porém gostaria de saber como devo proceder para que outras máquinas na rede consigam acessar aquela impressora na máquina que está instalada e imprimir um cupom ??
RES: [delphi-br] Sistema para Builds de projetos
No Delphi 7 eu uso o Project Manager. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componente cxDBLookupComboBox
Já procurei isso na versão q eu estou aqui e nao tem. [As partes desta mensagem que não continham texto foram removidas]
