Re: [delphi-br] Re: Envio Email Delphi 2010 (indy 10) e gmail
Estou tendo problema em enviar emails para o GMail utilizando o Indy 9.0, pois o GMail utiliza SSL. O Synapse trabalha bem com o GMail? -- Marcos Douglas
[delphi-br] Leitor biométrico Digital Persona
Bom dia a todos, Alguém sabe se a integração deste leitor com o Delphi é tranquila? Uma vez vi mensagens de colegas reclamando do leitor da MS (se não me engano). []s Andrei [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ajuda array dinamico DLL
Bom dia!
Estou com problemas em uma função de uma dll que estou criando.
A função recebe um array dinamico de um tipo de dado.
De acordo com a quantidade de informação, a dll altera o tamanho e preenche o
array.
Na aplicação pego o array e passo para outra função preencher preencher um item
de um Mainmenu.
consigo acessar e usar os dados do array que a dll alterou sem erros.
Mas depois, quando a aplicação já carregou, quando eu clico no item que
adicionei para o main menu a aplicação da um acess vilation. Percebi que se eu
não acesso nenhuma posicição do array que veio da dll, dentro da função, o erro
não ocorre.
Por exemplo :
procedure TForm1.ADDToMenu(var Lista: TListaMenuDLL);
begin
if length(Lista) = 0 then
exit;
Menu.caption := lista[i].caption //ocorre erro depois que a aplicação foi
carregada
end;
procedure TForm1.ADDToMenu(var Lista: TListaMenuDLL);
begin
if length(Lista) = 0 then
exit;
Menu.caption :='Teste' //sem erro
end;
Pesquisando, descobrir que se a dll aloca memória, ela também destrói. Eu
mantenho a dll na memória enquanto eu monto menu, só depois ela é liberada.
Mas eu não estou mais apontando para o array que a dll alocou, então o erro nao
deveria ocorrer.
Função da dll que me retorna o que preciso:
procedure MenuDLL(var Lista: TListaMenuDLL); stdcall ;
var Item : TMenuDLL;
begin
item := TMenuDLL.Create('DLL','FunçõesCliente');
item.Caption := 'DLL Funções de Clientes';
SetLength( Lista ,( length(lista)+1) );
Lista[length(lista)-1] := (item);
item := TMenuDLL.Create('DLL','CadastroCliente');
item.Caption := 'Cadastro de Cliente';
SetLength(Lista,length(lista)+1 );
Lista[length(lista)-1] := (item);
end;
//Array
type TListaMenuDLL = array of TMenuDLL;
//Tipo de dado
TMenuDLL = record
AssinaturaFuncao: string;
NomeDLL: string;
Caption: string;
end;
uso o delphi 2007
Se aguém puder dar alguma sugestão, Obrigado!
[As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Ajuda array dinamico DLL
Quando utilizamos arrays dinâmicos do Delphi como parâmetros em funções de uma
DLL, estes são tratados como ponteiros. Seu eu fosse vc, empacotaria essa sua
rotina utilitária em um package. Com o package, você poderá declarar funções e
rotinas que possam lidar tranquilamente tanto com arrays dinâmicos como com
tipos de dados customizados criados por vc.
Boa sorte.
Sds.
To: delphi-br@yahoogrupos.com.br
From: evaldoave...@yahoo.com.br
Date: Wed, 13 Jan 2010 05:50:45 -0800
Subject: [delphi-br] Ajuda array dinamico DLL
Bom dia!
Estou com problemas em uma função de uma dll que estou criando.
A função recebe um array dinamico de um tipo de dado.
De acordo com a quantidade de informação, a dll altera o tamanho e preenche o
array.
Na aplicação pego o array e passo para outra função preencher preencher um item
de um Mainmenu.
consigo acessar e usar os dados do array que a dll alterou sem erros.
Mas depois, quando a aplicação já carregou, quando eu clico no item que
adicionei para o main menu a aplicação da um acess vilation. Percebi que se eu
não acesso nenhuma posicição do array que veio da dll, dentro da função, o erro
não ocorre.
Por exemplo :
procedure TForm1.ADDToMenu(var Lista: TListaMenuDLL);
begin
if length(Lista) = 0 then
exit;
Menu.caption := lista[i].caption //ocorre erro depois que a aplicação foi
carregada
end;
procedure TForm1.ADDToMenu(var Lista: TListaMenuDLL);
begin
if length(Lista) = 0 then
exit;
Menu.caption :='Teste' //sem erro
end;
Pesquisando, descobrir que se a dll aloca memória, ela também destrói. Eu
mantenho a dll na memória enquanto eu monto menu, só depois ela é liberada.
Mas eu não estou mais apontando para o array que a dll alocou, então o erro nao
deveria ocorrer.
Função da dll que me retorna o que preciso:
procedure MenuDLL(var Lista: TListaMenuDLL); stdcall ;
var Item : TMenuDLL;
begin
item := TMenuDLL.Create('DLL','FunçõesCliente');
item.Caption := 'DLL Funções de Clientes';
SetLength( Lista ,( length(lista)+1) );
Lista[length(lista)-1] := (item);
item := TMenuDLL.Create('DLL','CadastroCliente');
item.Caption := 'Cadastro de Cliente';
SetLength(Lista,length(lista)+1 );
Lista[length(lista)-1] := (item);
end;
//Array
type TListaMenuDLL = array of TMenuDLL;
//Tipo de dado
TMenuDLL = record
AssinaturaFuncao: string;
NomeDLL: string;
Caption: string;
end;
uso o delphi 2007
Se aguém puder dar alguma sugestão, Obrigado!
_
Deixe seu computador compatível com a sua vida. Clique para conhecer o Windows
7!
http://www.microsoft.com/brasil/windows7/default.html?WT.mc_id=1539
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda array dinamico DLL
Olá, Evaldo... TMenuDLL = record AssinaturaFuncao: string; NomeDLL: string; Caption: string; end; Bem, pra começar, que tal você trocar essas Strings por WideStrings??? Variáveis do tipo String realmente dão problemas em DLLs... -- --- 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 12.2 Kernel 2.6.27.8-i686-core2 --- [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda array dinamico DLL
Obrigado, mas preciso usar dll por causa de uma futura migração para C#. From: Rubem Nascimento da Rocha djpardalro...@hotmail.com To: delphi-br delphi-br@yahoogrupos.com.br Sent: Wed, January 13, 2010 12:05:20 PM Subject: RE: [delphi-br] Ajuda array dinamico DLL Quando utilizamos arrays dinâmicos do Delphi como parâmetros em funções de uma DLL, estes são tratados como ponteiros. Seu eu fosse vc, empacotaria essa sua rotina utilitária em um package. Com o package, você poderá declarar funções e rotinas que possam lidar tranquilamente tanto com arrays dinâmicos como com tipos de dados customizados criados por vc. Boa sorte. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda array dinamico DLL
Obrigado! vou tentar isso. From: Willian Jhonnes L. dos Santos willianjhon...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Wed, January 13, 2010 1:09:41 PM Subject: Re: [delphi-br] Ajuda array dinamico DLL Olá, Evaldo... TMenuDLL = record AssinaturaFuncao: string; NomeDLL: string; Caption: string; end; Bem, pra começar, que tal você trocar essas Strings por WideStrings? ?? Variáveis do tipo String realmente dão problemas em DLLs... [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda array dinamico DLL
Deu certinho com WideStrings! Muito obrigado! From: Evaldo evaldoave...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Wed, January 13, 2010 1:50:17 PM Subject: Re: [delphi-br] Ajuda array dinamico DLL Obrigado! vou tentar isso. _ _ __ From: Willian Jhonnes L. dos Santos willianjhonnes@ yahoo.com. br To: delphi...@yahoogrup os.com.br Sent: Wed, January 13, 2010 1:09:41 PM Subject: Re: [delphi-br] Ajuda array dinamico DLL Olá, Evaldo... TMenuDLL = record AssinaturaFuncao: string; NomeDLL: string; Caption: string; end; Bem, pra começar, que tal você trocar essas Strings por WideStrings? ?? Variáveis do tipo String realmente dão problemas em DLLs... [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] Ajuda array dinamico DLL
Se pensa em migrar pra C#, a melhor coisa a fazer é fazer essa DLL do tipo COM. Vai faciliar mais ainda. Sds. To: delphi-br@yahoogrupos.com.br From: evaldoave...@yahoo.com.br Date: Wed, 13 Jan 2010 07:49:28 -0800 Subject: Re: [delphi-br] Ajuda array dinamico DLL Obrigado, mas preciso usar dll por causa de uma futura migração para C#. From: Rubem Nascimento da Rocha djpardalro...@hotmail.com To: delphi-br delphi-br@yahoogrupos.com.br Sent: Wed, January 13, 2010 12:05:20 PM Subject: RE: [delphi-br] Ajuda array dinamico DLL Quando utilizamos arrays dinâmicos do Delphi como parâmetros em funções de uma DLL, estes são tratados como ponteiros. Seu eu fosse vc, empacotaria essa sua rotina utilitária em um package. Com o package, você poderá declarar funções e rotinas que possam lidar tranquilamente tanto com arrays dinâmicos como com tipos de dados customizados criados por vc. Boa sorte. _ Sabia que você tem 25Gb de armazenamento grátis na web? Conheça o Skydrive agora. http://www.windowslive.com.br/public/product.aspx/view/5?ocid=CRM-WindowsLive:produtoSkyDrive:Tagline:WLCRM:On:WL:pt-BR:SkyDrive [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda array dinamico DLL
Muito obrigado pela sugestão! Vai ser de grande valia. From: Rubem Nascimento da Rocha djpardalro...@hotmail.com To: delphi-br delphi-br@yahoogrupos.com.br Sent: Wed, January 13, 2010 1:56:15 PM Subject: RE: [delphi-br] Ajuda array dinamico DLL Se pensa em migrar pra C#, a melhor coisa a fazer é fazer essa DLL do tipo COM. Vai faciliar mais ainda. Sds. To: delphi...@yahoogrup os.com.br From: evaldoavelar@ yahoo.com. br Date: Wed, 13 Jan 2010 07:49:28 -0800 Subject: Re: [delphi-br] Ajuda array dinamico DLL Obrigado, mas preciso usar dll por causa de uma futura migração para C#. _ _ __ From: Rubem Nascimento da Rocha djpardalrocha@ hotmail.com To: delphi-br delphi...@yahoogrup os.com.br Sent: Wed, January 13, 2010 12:05:20 PM Subject: RE: [delphi-br] Ajuda array dinamico DLL Quando utilizamos arrays dinâmicos do Delphi como parâmetros em funções de uma DLL, estes são tratados como ponteiros. Seu eu fosse vc, empacotaria essa sua rotina utilitária em um package. Com o package, você poderá declarar funções e rotinas que possam lidar tranquilamente tanto com arrays dinâmicos como com tipos de dados customizados criados por vc. Boa sorte. _ _ _ _ _ _ Sabia que você tem 25Gb de armazenamento grátis na web? Conheça o Skydrive agora. http://www.windowsl ive.com.br/ public/product. aspx/view/ 5?ocid=CRM- WindowsLive: produtoSkyDrive: Tagline:WLCRM: On:WL:pt- BR:SkyDrive [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Multiplos post em um clientdataset
Pessoal, Tenho um clientdataset onde abro um registro especifico, faço algumas alterações em alguns campos e realizo um post! Até aqui tudo tranqüilo. Ai abro outro registro e faço novas alterações! E Post novamente... ou seja faço varias alterações e dou o post, mas não executo o applyupdates. Quando do o comando applyupdates no clientdataset especifico somente o último post é salvo! Minha pergunta é tem como se fazer várias alterações tipo com um dbgrid aberto e somente após todas as alterações realizar o applyupdates e tudo ser salvo? Se sim, o que preciso fazer. Att. Huander Leão [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [Off Topic] Oferta de Emprego
Em brancoPessoal, Desculpem o OFF, mas estamos com oferta de emprego na área de Análise / Desenvolvimento (Delphi / DataSnap). Buscamos profissionais com experiência e que tenham interesse em mudar de cidade (Jaraguá do Sul - SC). Interessados, podem entrar em contato em private. Atenciosamente, CLAIRTON ELOISIO MÜLLER Depto. Desenvolvimento | E-mail: clair...@dessis.com.br DESSIS SISTEMAS DE GESTÃO EMPRESARIAL Rua José Marangoni, 380 | Bairro Vila Nova | CEP 89259-500 | Jaraguá do Sul-SC Fone 55 (47) 3371-7842 | Site: http://www.dessis.com.br Antes de imprimir pense em seu compromisso com o Meio Ambiente. Isso também é Responsabilidade Social! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Fw: Delphi 2010 - Problemas no Editor de Código
Olá Srs Instalei o Delphi 2010 e percebi que no editor de código o sublinhado vermelho que aparece nas palavras não identificadas não está funcionado e também não funciona o recurso de Refactorings. Será que essas opções não estão ativas por default? Saudações Gilvan Costa [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Ref. Impressão direta porta US B002
tipo eu faco o seguinte, compartilho a impressora quando ela estar na porta
usb001 por com o nome lx300, ai vo la no porcedimento de impressao e na
porta coloco assim: \\meupc\lx300
ai quando coloco para imprimir ele impreme na porta usb
2010/1/12 Eduardo Silva dos Santos eduardo@gmail.com
Ok, o código é semelhante ao que usamos. Então você consegue imprimir
com sucesso numa porta virtual tipo USB001.
vou fazer um teste no windows vista/windows7 porque no XP realmente
não deu certo.. mandei imprimir nada.
Obrigado pela atenção.
Att,
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo@gmail.com eduardo.drd%40gmail.com
Site: http://www.drdsistemas.com.br/
...
2010/1/12 Nazareno Neto
nazareno.nobr...@gmail.comnazareno.nobrega%40gmail.com
:
IMPRESSORA:TextFile;
PORTA:String;
Arq : Tinifile;
//eu fico salvando as portas de impressao para venda, nota fiscal e etc
e,
um arquivo ini
//Verifica Impressora
Arq := TIniFile.Create('IMPRESSORA.INI');
//aqui eu pego a porta da impressao da NOTA
Vporta := Arq.ReadString ('NOTA','PORTA','');
//checo se tem algo, se nao tiver coloco na LPT1 mesmo
IF (Length(TRIM(Vporta))= 0) THEN
BEGIN
Arq.WriteString('NOTA','PORTA','LPT1');
Vporta := Arq.ReadString('NOTA','PORTA','');
END;
Arq.Free;
//Relaciona a variável impressora com a
//lpt1: - Poderia ser LPT, COM1,// Servidor/impressora
AssignFile(IMPRESSORA,Vporta);
//abre a porta da impressão
Rewrite(IMPRESSORA);
//reseta a impressora
Write(IMPRESSORA,#27+'x0');
Writeln(Impressora,Format('%87s',['Coloque aqui seu texto']));
// Fecha a porta de impressão
System.Close(Impressora);
//vale resaltar que isso eh mesma coisa de salvar em um arquivo, se na
porta vc colocar 'C:\TESTE.TXT' ele vai savar isso ai em um arquivo txt
//Se nao der pra enteder me fala ai q posso dar umas dicas!
2010/1/12 Eduardo Silva dos Santos
eduardo@gmail.comeduardo.drd%40gmail.com
Nazareno, se for possível poste uma parte do código de como você faz
isso, porque realmente não é tão trivial quanto imprimir direto na LPT
Att,
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo@gmail.com eduardo.drd%40gmail.com eduardo.drd%
40gmail.com
Site: http://www.drdsistemas.com.br/
...
2010/1/11 Nazareno Neto
nazareno.nobr...@gmail.comnazareno.nobrega%40gmail.com
nazareno.nobrega%40gmail.com
:
rapaz eu uso aqui sem problema hoje no windows 7 e antes tambem no
vista!
2010/1/11 Alex Antunes
alex.antu...@terra.com.bralex.antunes%40terra.com.br
alex.antunes%40terra.com.br
Detalhe,
Isso não fuciona apartir do Windows XP.
Alex
-Mensagem original-
De: delphi-br@yahoogrupos.com.br
delphi-br%40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.br [mailto:
delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.br] Em
nome de Omar Marques
Enviada em: segunda-feira, 11 de janeiro de 2010 12:54
Para: delphi-br@yahoogrupos.com.br
delphi-br%40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.br
Assunto: Res: RES: [delphi-br] Ref. Impressão direta porta USB002
Opa. tentei colocar o nome da minha maquina, mas ele não aceita.
f
Fui ao painel de controle/sistema/ e vi o nome do meu computador e
coloquei
mas deu erro 231
Usei assim: NET USE LPT1 \\ohaddad\GenericaUSB e deu o erro 231
abraço.
Omar M. Haddad
Analista de Sistemas
De: Alex Antunes alex.antu...@terra.com.bralex.antunes%40terra.com.br
alex.antunes%40terra.com.bralex.antunes%
40terra.com.br
mailto:alex.antunes%40terra.com.br
alex.antunes%2540terra.com.bralex.antunes%
2540terra.com.bralex.antunes%
2540terra.com.br
Para: delphi-br@yahoogrupos.com.br
delphi-br%40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.brmailto:
delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br
Enviadas: Segunda-feira, 11 de Janeiro de 2010 11:44:01
Assunto: RES: [delphi-br] Ref. Impressão direta porta USB002
Boa tarde.
Vc compartilha a impressora na sua estação.
E faz o net use LPT1 \\SUAMAQUINA\ IMPRESSORA_ COMPARTILHADA
E funciona !!!
Falowww.
Alex
-Mensagem original -
De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup
os.com.br
]
Em
nome de Omar Marques Enviada em: segunda-feira, 11 de janeiro de 2010
11:28
Para: delphi...@yahoogrup os.com.br
[delphi-br] Dica de conexão
Pessoal Hoje atualmente trabalho com delphi 7 + ibx + firebird 1.5 baixei a versao demo do delphi 2010 e gastaria de umas dicas: 1)estou querendo testar o sql server 2005, posso usar a versao express que é free? 2)na opniao de vcs qual seria a melhor conexao: ADO ou DBX? 3)se falei alguma besteira que me falem para nao perder todo o meu trabalho depois. Felicidades -- Nazareno Neto Programador 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]
[delphi-br] Re: Must apply updates before refreshing data
Bom Dia,
Antes do if do dbtippessoa, coloquei um showmessage mostrando o valor do
dbtippessoa e mostrou o valor igual a ZERO (primeira opcao = Pessoa Fisica).
Sendo assim, ele realmente eh diferente de -1.
To tentando ainda, mas nao consegui descobrir este erro misterioso.
Obrigado,
Gilmar
--- Em delphi-br@yahoogrupos.com.br, Cristiane Campanholo
criscampanh...@... escreveu
Será que DBtipPessoa.ItemIndex -1 realmente? Senão, cai direto no refresh.
Cristiane
- Original Message -
From: Gilmar Barbosa
To: delphi-br@yahoogrupos.com.br
Sent: Monday, January 11, 2010 5:53 PM
Subject: [delphi-br] Must apply updates before refreshing data
Boa Tarde,
Estou tendo um problema em um sistema, na tela para cadastro de clientes.
Estou usando Delphi 7, Firebird 2.1.3, DbExpress e IbExpert.
Quando estou clicando no botao Salvar esta dando a mensagem de erro do
Assunto:
Must Apply Updates Before Refreshing Data.
No meu DM, no ClientDataSet, no evento AfterPost, esta a seguinte linha de
comando:
tbCliente.ApplyUpdates(0);
Ja tentei mudar para -1, mas continua o mesmo erro.
O botao Salvar esta com a seguinte programacao:
procedure TFrmCliente.spbsalvarClick(Sender: TObject);
var i: integer;
begin
FrmCliente.SetFocus;
If DBtipPessoa.ItemIndex -1 then
if application.messagebox('Deseja Salvar Dados ?','Confirma
Dados',mb_yesno +mb_iconquestion) = idyes then
begin
if novo = 0 then
begin
Dm.StoredProc1.StoredProcName:= 'AUTO_CLI';
// Prepara para executar a Stored Procedure
if not Dm.StoredProc1.Prepared then
Dm.StoredProc1.Prepared:= true;
Dm.StoredProc1.ExecProc; // Executa
codcli:= Dm.StoredProc1.ParamByName('CODCLI').AsInteger;
Dm.StoredProc1.Close; // Pega o valor do Generator
dsCliente.DataSet.Edit;
DM.tbClienteCODIGO.AsInteger:= codcli;
dsCliente.DataSet.Post;
end else
begin
//DM.tbCliente.Edit;
dsCliente.DataSet.Edit;
dsCliente.DataSet.Post;
//DM.tbCliente.Post;
end;
DM.tbCliente.ApplyUpdates(0);
end else dsCliente.DataSet.Cancel;// DM.tbCliente.cancel;
// Irá desabilitar os botões para serem editados
for i := 0 to FrmCliente.ComponentCount -1 do
if FrmCliente.Components[i] is TCustomEdit then
(FrmCliente.Components[i] as TCustomEdit).Enabled:= false;
//dm.tbCliente.Refresh;
dsCliente.DataSet.Refresh;
lblqtd.Caption:= 'Clientes cadastrados:
'+inttostr(DM.tbCliente.recordCount);
DBtipPessoa.Enabled:= False;
DBEstadoCivilF.Enabled:= False;
DBtipoF.Enabled:= False;
DBResidenciaF.Enabled:= False;
DBEmiteCobF.Enabled:= False;
//DBEstadoCivilJ.Enabled:= False;
DBtipoJ.Enabled:= False;
//DBResidenciaJ.Enabled:= False;
DBEmiteCobJ.Enabled:= False;
spbnovo.enabled:=TRUE;
spbexcluir.enabled:=TRUE;
spbalterar.enabled:= TRUE;
spbfechar.enabled:= TRUE;
spbsalvar.enabled:= false;
spbcancelar.enabled:= false;
EDIT1.Enabled:= true;
end;
O que eu acho estranho eh que antes tava funcionando normalmente.
Depois comecou a dar este problema.
Ja verifiquei no Google, nas msgs anteriores da lista, mas ainda nao
consegui uma solucao para o meu problema.
Esta mesma programacao esta em todos os outros cadastros, mas soh o cliente
esta dando problema.
Obrigado, desde jah pela ajuda.
Gilmar
[As partes desta mensagem que não continham texto foram removidas]
--
E-mail verificado pelo Terra Anti-Spam.
Para classificar esta mensagem como spam ou não spam, clique aqui.
Verifique periodicamente a pasta Spam para garantir que apenas mensagens
indesejadas sejam classificadas como Spam.
--
Esta mensagem foi verificada pelo E-mail Protegido Terra.
Atualizado em 12/01/2010
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problema ao formatar
uses db
TfloatField(cds1.FieldByName('VALOR')).DisplayFormat := '#,##0.00';
[delphi-br] Componentes ACBr
Alguém aqui usa os componentes ACBr para emissão de nota fiscal eletrônica? Vocês recomendariam o uso do componente? Gostaria de inscrever em um grupo de discussão sobre o assunto. Instalei os componentes, mas quando tentei rodar um demo deu a seguinte mensagem : Unit ACBrNFeDANFERave wad compiled with a different version of RpRave.TRvProject.Open. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: RES: [delphi-br] Ref. Impressão direta porta US B002
Olá Nazareno, dessa forma sei que funciona, agora localmente você não
consegue imprimir, somente por outras máquinas da rede. é ai que porca
torce o rabo.
Att,
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo@gmail.com
Site: http://www.drdsistemas.com.br/
...
2010/1/13 Nazareno Neto nazareno.nobr...@gmail.com:
tipo eu faco o seguinte, compartilho a impressora quando ela estar na porta
usb001 por com o nome lx300, ai vo la no porcedimento de impressao e na
porta coloco assim: \\meupc\lx300
ai quando coloco para imprimir ele impreme na porta usb
2010/1/12 Eduardo Silva dos Santos eduardo@gmail.com
Ok, o código é semelhante ao que usamos. Então você consegue imprimir
com sucesso numa porta virtual tipo USB001.
vou fazer um teste no windows vista/windows7 porque no XP realmente
não deu certo.. mandei imprimir nada.
Obrigado pela atenção.
Att,
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo@gmail.com eduardo.drd%40gmail.com
Site: http://www.drdsistemas.com.br/
...
2010/1/12 Nazareno Neto
nazareno.nobr...@gmail.comnazareno.nobrega%40gmail.com
:
IMPRESSORA:TextFile;
PORTA:String;
Arq : Tinifile;
//eu fico salvando as portas de impressao para venda, nota fiscal e etc
e,
um arquivo ini
//Verifica Impressora
Arq := TIniFile.Create('IMPRESSORA.INI');
//aqui eu pego a porta da impressao da NOTA
Vporta := Arq.ReadString ('NOTA','PORTA','');
//checo se tem algo, se nao tiver coloco na LPT1 mesmo
IF (Length(TRIM(Vporta))= 0) THEN
BEGIN
Arq.WriteString('NOTA','PORTA','LPT1');
Vporta := Arq.ReadString('NOTA','PORTA','');
END;
Arq.Free;
//Relaciona a variável impressora com a
//lpt1: - Poderia ser LPT, COM1,// Servidor/impressora
AssignFile(IMPRESSORA,Vporta);
//abre a porta da impressão
Rewrite(IMPRESSORA);
//reseta a impressora
Write(IMPRESSORA,#27+'x0');
Writeln(Impressora,Format('%87s',['Coloque aqui seu texto']));
// Fecha a porta de impressão
System.Close(Impressora);
//vale resaltar que isso eh mesma coisa de salvar em um arquivo, se na
porta vc colocar 'C:\TESTE.TXT' ele vai savar isso ai em um arquivo txt
//Se nao der pra enteder me fala ai q posso dar umas dicas!
2010/1/12 Eduardo Silva dos Santos
eduardo@gmail.comeduardo.drd%40gmail.com
Nazareno, se for possível poste uma parte do código de como você faz
isso, porque realmente não é tão trivial quanto imprimir direto na LPT
Att,
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo@gmail.com eduardo.drd%40gmail.com eduardo.drd%
40gmail.com
Site: http://www.drdsistemas.com.br/
...
2010/1/11 Nazareno Neto
nazareno.nobr...@gmail.comnazareno.nobrega%40gmail.com
nazareno.nobrega%40gmail.com
:
rapaz eu uso aqui sem problema hoje no windows 7 e antes tambem no
vista!
2010/1/11 Alex Antunes
alex.antu...@terra.com.bralex.antunes%40terra.com.br
alex.antunes%40terra.com.br
Detalhe,
Isso não fuciona apartir do Windows XP.
Alex
-Mensagem original-
De: delphi-br@yahoogrupos.com.br
delphi-br%40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.br [mailto:
delphi-br@yahoogrupos.com.br
delphi-br%40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.br] Em
nome de Omar Marques
Enviada em: segunda-feira, 11 de janeiro de 2010 12:54
Para: delphi-br@yahoogrupos.com.br
delphi-br%40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.br
Assunto: Res: RES: [delphi-br] Ref. Impressão direta porta USB002
Opa. tentei colocar o nome da minha maquina, mas ele não aceita.
f
Fui ao painel de controle/sistema/ e vi o nome do meu computador e
coloquei
mas deu erro 231
Usei assim: NET USE LPT1 \\ohaddad\GenericaUSB e deu o erro 231
abraço.
Omar M. Haddad
Analista de Sistemas
De: Alex Antunes
alex.antu...@terra.com.bralex.antunes%40terra.com.br
alex.antunes%40terra.com.bralex.antunes%
40terra.com.br
mailto:alex.antunes%40terra.com.br
alex.antunes%2540terra.com.bralex.antunes%
2540terra.com.bralex.antunes%
2540terra.com.br
Para: delphi-br@yahoogrupos.com.br
delphi-br%40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.brmailto:
delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br
Enviadas: Segunda-feira, 11 de Janeiro de 2010 11:44:01
Assunto: RES:
Res: [delphi-br] Problema ao formatar
txtVLContrato.Text:=
Formatfloat('#,##0.00',strtofloat(fieldbyName('VLT').AsString));
De: humberto sales de oliveira humberto_...@yahoo.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 13 de Janeiro de 2010 17:57:33
Assunto: Re: [delphi-br] Problema ao formatar
uses db
TfloatField( cds1.FieldByName ('VALOR') ).DisplayFormat := '#,##0.00';
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: RES: [delphi-br] Ref. Impressão direta porta USB002
Ola amigo, para imprimir na usb local proceda assim
crie uma impressora generica, compartilhe ela
em propiedade da impressora generica, na aba portas
marque a opção ativar pool de impressão, depois selecione
a porta usb. eu fiz assim e funcionou.
para rede vc pode usar o net use.
vlw.
--- Em delphi-br@yahoogrupos.com.br, Nazareno Neto nazareno.nobr...@...
escreveu
IMPRESSORA:TextFile;
PORTA:String;
Arq : Tinifile;
//eu fico salvando as portas de impressao para venda, nota fiscal e etc e,
um arquivo ini
//Verifica Impressora
Arq := TIniFile.Create('IMPRESSORA.INI');
//aqui eu pego a porta da impressao da NOTA
Vporta := Arq.ReadString ('NOTA','PORTA','');
//checo se tem algo, se nao tiver coloco na LPT1 mesmo
IF (Length(TRIM(Vporta))= 0) THEN
BEGIN
Arq.WriteString('NOTA','PORTA','LPT1');
Vporta := Arq.ReadString('NOTA','PORTA','');
END;
Arq.Free;
//Relaciona a variável impressora com a
//lpt1: - Poderia ser LPT, COM1,// Servidor/impressora
AssignFile(IMPRESSORA,Vporta);
//abre a porta da impressão
Rewrite(IMPRESSORA);
//reseta a impressora
Write(IMPRESSORA,#27+'x0');
Writeln(Impressora,Format('%87s',['Coloque aqui seu texto']));
// Fecha a porta de impressão
System.Close(Impressora);
//vale resaltar que isso eh mesma coisa de salvar em um arquivo, se na
porta vc colocar 'C:\TESTE.TXT' ele vai savar isso ai em um arquivo txt
//Se nao der pra enteder me fala ai q posso dar umas dicas!
2010/1/12 Eduardo Silva dos Santos eduardo@...
Nazareno, se for possível poste uma parte do código de como você faz
isso, porque realmente não é tão trivial quanto imprimir direto na LPT
Att,
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo@... eduardo.drd%40gmail.com
Site: http://www.drdsistemas.com.br/
...
2010/1/11 Nazareno Neto nazareno.nobr...@...nazareno.nobrega%40gmail.com
:
rapaz eu uso aqui sem problema hoje no windows 7 e antes tambem no vista!
2010/1/11 Alex Antunes alex.antu...@...alex.antunes%40terra.com.br
Detalhe,
Isso não fuciona apartir do Windows XP.
Alex
-Mensagem original-
De: delphi-br@yahoogrupos.com.br
delphi-br%40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.br [mailto:
delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.br] Em
nome de Omar Marques
Enviada em: segunda-feira, 11 de janeiro de 2010 12:54
Para: delphi-br@yahoogrupos.com.br
delphi-br%40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.br
Assunto: Res: RES: [delphi-br] Ref. Impressão direta porta USB002
Opa. tentei colocar o nome da minha maquina, mas ele não aceita.
f
Fui ao painel de controle/sistema/ e vi o nome do meu computador e
coloquei
mas deu erro 231
Usei assim: NET USE LPT1 \\ohaddad\GenericaUSB e deu o erro 231
abraço.
Omar M. Haddad
Analista de Sistemas
De: Alex Antunes
alex.antu...@...alex.antunes%40terra.com.bralex.antunes%
40terra.com.br
mailto:alex.antunes%40terra.com.br
alex.antunes%2540terra.com.bralex.antunes%
2540terra.com.br
Para: delphi-br@yahoogrupos.com.br
delphi-br%40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.brmailto:
delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br
Enviadas: Segunda-feira, 11 de Janeiro de 2010 11:44:01
Assunto: RES: [delphi-br] Ref. Impressão direta porta USB002
Boa tarde.
Vc compartilha a impressora na sua estação.
E faz o net use LPT1 \\SUAMAQUINA\ IMPRESSORA_ COMPARTILHADA
E funciona !!!
Falowww.
Alex
-Mensagem original -
De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br
]
Em
nome de Omar Marques Enviada em: segunda-feira, 11 de janeiro de 2010
11:28
Para: delphi...@yahoogrup os.com.br
Assunto: [delphi-br] Ref. Impressão direta porta USB002
Salve Delphianos( as),
Tudo bem ? Desculpa, se estou sendo descuidado em algum sentido, mas
estou
precisando de uma rotina para imprimir diretamente em uma impressora
autenticadora, só que ela utiliza comunicação USB(está instalada na
porta
USB002);
Com impressão direta para LPT1 ou COM1, eu consigo trabalhar de boa, mas
abrir a porta USB para enviar meu relatório, por exemplo, com
Write(...),
não consigo.
Vi uma rotina na net, mas não consegui usar.
Vi também uma rotina usando NET USE para utilizar a USB002 como LPT1,
mas
na
minha máquina não consegui localizar a impressora.
Alguém tem alguma saída, código, dica sobre este assunto ?
PS: Tem algum adaptador físico que possa ajudar ou não
Grato a atenção dos nobres colegas.
Omar M. Haddad
Analista de
