robinhocne

opa obrigado Jhonas.....

infelizmente não... Esses comandos são explanados ( descritos ) em detalhes na seção Referência de Comandos deste guia OBS: Melhor usar um tradutor da Net para poder entender o manual abraço realmente está dificl, pois traduzi umas coisas, mas não consigo entender, peguei uns codigos e comecei a editar, mas já deu nó na minha cabeça, infelizmente não consigo...... esse negocio de etiqueta termica é pra acabar a vida! :angry:

realmente esqueci de um detalhe, criar ele.....rsrsrs por isso é bom esfriar a cabeça......

Pessoal estou pegando os dados do banco de dados e passando em uma tabela temporário, mas ai na hora que vou passar os dados da tabela temporario está dando erro. fiz assim, Comando : TStringList; //TblEtiq é a tabela temporária While not TblEtiq.eof do begin Comando.Add(TblEtiqComando.AsString); TblEtiq.next; end; na hora que chega na linha Comando.Add, para adicionar dá erro assim: Project Loja.exe raised exception class EAcessViolation with message 'Access vilation at address 007B00F2 in module 'Loja.exe'. Read of address 51EC8B8D'.Process sotpped.Use Step or Run to continue. o que estou fazendo de errado ??

Boa Tarde Pessoal, Estou inserindo dados num RxMemoryData, mas quando eu passo o comando insert ele insere sempre na primeira linha, mas eu queria que inseria na linha debaixo, pra ficar em ordem, alguém sabe como eu faço ?

tem execicios e explicação disso no manual ... ( em ingles ) abraço o problema é esse, sei bem pouco de ingles e não achei nada em portugues pra me ajudar, alguém tem um manual em portugues ???

Boa Noite, Creio que consegui 80% do que eu preciso, na impressão em porta USB consegui fazer, vou explicar e detalhar tudo após eu terminar de configurar(deixo minha palavra escrita). Agora 20 % creio eu, srsrsrs ainda está meio escuro para mim e não sei se seria melhor abrir outro tópico, mas como o assunto é o mesmo vou nesse mesmo, Jhonas se eu estiver errado me informa que abro outro e depois concluo esse após o termino. Só ainda está meio escuro em questão dos códigos, vejamos bem; A105, 45, 2, 3, 1, 1, N, "12,99" A105 = Posição da Coluna 45 = Posição da Linha 2 = Rotação da letra 3 = Tipo de Fonte 1 = Multiplicador da Largura dos Caracteres 1 = Multiplicador da Altura dos Caracter N = Sempre N "12,99" = Campo a ser impresso Pois bem, ai só tenho a posição da linha se é um pouco para baixo ou para cima, mas a posição da linha mas para o lado direito ou esquerdo da etiqueta, simplificando a minha posição horizontal eu sei mas e a posição vertical ? Outro é como faço para que todas as etiquetas sai na posição certa, porque eu imprimo ai destaco, mas se mando de novo já sai errado, simplificado minha etiqueta é de 3 colunas, mas não consigo posicionar certo para imprimir na proxima linha de etiqueta, como faço isso ???

Jhonas, já revirei o site da zebra, mas não encontrei nada sobre a dll, achei um software deles mesmo para imprimir em usb, mas nada sobre a dll. alguém tem a dll ai ? e também eu estava precisando de uma ajuda pra montar os codigos para imprimir na usb, alguém pode me ajudar ??

e onde eu consigo essa dll ????

Boa Noite pessoal, Pessoal algém sabe como imprimir na impressora Termica Zebra TLP 2844, mas na porta USB, não consigo fazer, estou começando a criar esse recurso no meu sistema. Alguém poderia dar uma ajuda pra mim ?

Olá pessoal, estou querendo fazer assim no IbExpert.... Select * From Adm_Cad_Endereco E, Adm_Cad_Bairro B where E.CodBairro = B.Codigo and (B.Codigo >= :Cod1) and (B.Codigo <= :Cod2) order by B.Codigo e ai apos o select rodar um while desse select e ai vai comparando....e dentro do while vou colocar um insert... pois hoje eu faço isso tudo no delphi.....mas está demorando um pouco...qero mais agilidade....

resolvido....obrigado!

Pessoal estou fazendo um while e dentro dele eu verifico se o Codigo é igual ao CodBairro, isso por dentro de outro while, o que eu quero é que quando for igual ao outro parar o while do QryBai e ai partir para o proximo registro do QryEnd e ai voltar dentro do while do QryBai se ele achar o registro igual ele deve sair do while do QryBai e pular pra proxima linha do while do QryEnd e volta novamente no QryBai, sempre quando ele volta no QryBai ele começa do primeiro registro....estou precisando de ajuda nisso..... while not QryEnd.Eof do begin QryBai.First; while not QryBai.Eof do begin if QryBai.FieldByName('Codigo').AsInteger = QryEnd.FieldByName('CodBairro').AsInteger then begin with TblUniao do begin insert; TblUniaoCep.AsString := QryEnd.FieldByName('Cep').AsString; TblUniaoLogradouro.AsString := QryEnd.FieldByName('Logradouro').AsString; TblUniaoNumero.AsString := QryEnd.FieldByName('Numero').AsString; TblUniaoBairro.AsString := QryBai.FieldByName('Bairro').AsString; TblUniaoComplemento.AsString := QryEnd.FieldByName('Complemento').AsString; TblUniaoCodCidade.AsString := QryBai.FieldByName('CodCidade').AsString; post; end; end; QryBai.Next; end; QryEnd.Next; end;

Tem como eu colocar um Progress na Consulta ???? não dentro do while.....porque ai o que eu busco da Consulta eu deixo dentro de uma Query que automaticamente joga no meu DbGrid

então fiz dessa maneira ai mas ele não fica contando..... with QryCid do begin close; sql.Clear; sql.Add('Select E.Cep, E.CodBairro, B.Codigo, B.CodCidade, B.Bairro,C.Codigo, C.Cidade, E.logradouro, U.Sigla'); sql.Add('From Adm_Cad_Endereco E, Adm_Cad_Bairro B, Adm_Cad_Cidade C, Adm_Cad_Uf U where E.Cep =:Cep and'); sql.Add('E.CodBairro = B.Codigo and B.CodCidade = C.Codigo and C.CodUf = U.Codigo'); sql.Add('group by E.Cep, E.CodBairro, B.Codigo, B.CodCidade, B.Bairro, C.Codigo, C.Cidade, E.Logradouro, U.Sigla'); ParamByName('Cep').AsString := TxtCep.Text; open; end; JvGradientProgressBar1.Max := QryCid.RecordCount; while not QryCid.Eof do begin with TblCid do begin insert; TblCidCep.AsString := QryCid.FieldByName('Cep').AsString; TblCidEstado.AsString := QryCid.FieldByName('Sigla').AsString; TblCidCidade.AsString := QryCid.FieldByName('Cidade').AsString; TblCidEndereco.AsString := QryCid.FieldByName('Logradouro').AsString; TblCidBairro.AsString := QryCid.FieldByName('Bairro').AsString; post; end; JvGradientProgressBar1.Position := JvGradientProgressBar1.Position + 1; QryCid.Next; end;

Olá pessoal, eu peguei um exemplo de um arquivo de ajuda do delphi, mas ele é tão antigo que foi feito no delphi 3 e estou com problemas na variavel. Declarei na Uses do Formulario BDE Variaveis private FCBPROGRESSDesc: pCBPROGRESSDesc; FProgressCallback: TBDECallback; function GetDataCallback(CBInfo: Pointer): CBRType; está dando erro nessa variavel falando que não está declarada, no exemplo falou que caso acontece isso colocar na uses do programa o BDE e após o {$R *.res} begin Application.Initialize; DbiInit(nil); ai já coloquei e mesmo assim continua dando erro...... abaixo o resto do codigo function TFAdmPes007.GetDataCallback(CBInfo: Pointer): CBRType; begin Result := cbrCONTINUE; with pCBPROGRESSDesc(CBInfo)^ do begin if iPercentDone < 0 then begin Label1.Caption := szMsg; Label1.Refresh; JvGradientProgressBar1.StepIt; {Apenas para ficar rodando o gauge} end else begin JvGradientProgressBar1.Position := iPercentDone; end; end; end; procedure TFAdmPes007.FormCreate(Sender: TObject); begin FCBPROGRESSDesc := AllocMem(SizeOf(CBPROGRESSDesc)); FProgressCallback := TBDECallback.Create(Self, Query1.Handle, cbGENPROGRESS, FCBPROGRESSDesc, SizeOf(CBPROGRESSDesc), GetDataCallback, True); end; procedure TFAdmPes007.FormDestroy(Sender: TObject); begin FProgressCallback.Free; FreeMem(FCBPROGRESSDesc, SizeOf(CBPROGRESSDesc)); end;

Bom pessoal, utilizo o Firebird e ainda não trabalhei com StoreProcedure nele, então eu queria fazer um Stored Procedure onde vou colocar alguns filtros de entrada...ai uns de retornos.....mas os filtros de entrada não tinha q ser obrigatorio....tipo se eu não colocar nada ele vai buscar tudo daqle filtro! to meio atrapalhado aqui..... CREATE PROCEDURE CONSULTACEP ( cBai varchar(100), cCid varchar(200), cCep varchar(8) ) returns ( Bairro varchar(100), Cidade varchar(200), Cep varchar(8)) as declare variable SQLTEXT varchar (300); BEGIN SQLTEXT =' Select B.Bairro, B.Codigo, C.Cidade, C.Codigo, C.CodBairro, C.Cep From adm_cad_bairro b, adm_cad_cidade c Where B.Codigo=C.CodBairro' então...o cBai, cCid, cCep são os filtros q podem ter.....mas eles também podem fazer o filtro junto ou não....posso filtrar o cBai com o cCid e ai vai.... me ajuda a terminar...., alguém poderia me ajudar ??

Ou então carregue no speedbutton via código: SpeedButton1.Glyph.Assign(nil); ImageList1.GetBitmap(0, SpeedButton1.Glyph); Abraços na questão de ativar e desativar não deu certo mesmo, mas via codigo ficou show de bola, valeu obrigado!

opa..isso deu certo também, mas eu também estava colocando em lugar errado para criar!

Resolvido...... unit Unit2; interface uses Buttons,ExtCtrls,Menus,windows,SysUtils,classes; type TMySpeed = class private FSbtn:TSpeedButton; FPopAdmRel: TPopupMenu; FTimer:TTimer; Fxmax:integer; Fxmin:integer; Fymin:integer; FyMax:integer; procedure MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer); procedure Timer(Sender: TObject); public Constructor Create(cSbtn:TSpeedButton;cPopAdmRel: TPopupMenu);reintroduce; Destructor Destroy;Override; end; implementation { TMySpeed } constructor TMySpeed.Create(cSbtn: TSpeedButton; cPopAdmRel: TPopupMenu); begin FSbtn:=cSbtn; FPopAdmRel:=cPopAdmRel; cSbtn.OnMouseMove:=MouseMove; FTimer:=TTimer.Create(nil); FTimer.Interval:=100; FTimer.Enabled:=false; FTimer.OnTimer:=Timer; end; destructor TMySpeed.Destroy; begin FTimer.Free; inherited; end; procedure TMySpeed.MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var crPos:TPoint; begin { if not assigned(FTimer) then begin FTimer:=TTimer.Create(nil); FTimer.Interval:=100; FTimer.Enabled:=false; FTimer.OnTimer:=ObjSpeed.Timer; end;} GetCursorPos(CrPos); with FSbtn do begin Fxmax:=(ClientOrigin.X +ClientWidth); Fxmin:=ClientOrigin.X; Fymin:= (ClientOrigin.Y); FyMax:=ClientOrigin.Y+ ClientHeight; FTimer.Enabled:=true; FPopAdmRel.Popup(Fxmax,Fymin); end; end; procedure TMySpeed.OnTimer(Sender: TObject); const WidtItemMenu = 75; HeightItemMenu = 25; var crPos:TPoint; begin GetCursorPos(CrPos); if (CrPos.x > Fxmax+WidtItemMenu )or (CrPos.x < Fxmin)or (CrPos.y > FyMax + HeightItemMenu*FPopAdmRel.Items.Count)or (CrPos.y < FyMin) then begin keybd_event(vk_escape,0,0,0); FTimer.Enabled:=false; end; end; No Formulario defina uma Variavel do Tipo TMySpeed pois agora iremos Instancia-la procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } ObjSpeed:TMySpeed; public No evento OnShow Instancie o Objeto procedure TForm1.FormShow(Sender: TObject); begin ObjSpeed:=TMySpeed.Create(SpeedButton1,PopupMenu1); end; e No Evento OnClose Destrua-0 procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin ObjSpeed.FREE; end; Não esqueça de Definir a Uses da Classe Agora na Secção Interface e não mais na Secçao Implementation

Olá pessoal estou criando varios Speed Button em tempo de execução, depende do quantos o usuario qer, mas eu utilizo o Vcl Skin para mudar a aparencia da minha aplicação e quando eu crio ele em tempo de execução o SppedButton não fica com a aparencia dos outros.....do VclSkin.... alguém sabe como me ajudar ?

Sim até tenho ele e coloquei, mas como uso o VclSkin para mudar a aparencia do sistema, ai por causa de conflito não sei...ele não aparece....!

Estou fazendo um Short Cut onde o usuario vai montar seu proprio atalho e ai já estou coloando em uma ImageList para ele escolher a imagem desse botão, mas no speedbutton eu não consigo ligar o ImageList.... tem como eu fazer isso ? ou alguém teria alguma ideia pra me ajudar ?? porque eu não qero deixar uma pasta la com as imagens, e caregar na hora, qeria q o sistema já trazesse !

Na propriedade Items do PopupMenu adicione um item < Sair > e não coloque nenhum código para este item O PopupMenu só é fechado quando voce escolhe um dos itens ... se voce tiver um item sem código, fechará o PopupMenu sem executar nada abraço Hum entendi...... mas ainda não seria a maneira certa que eu queria! Não tem nenhum outro jeito de que quando tirar o mouse de cima do botão o PopUpMenu sumir ???

neste caso voce deverá criar o PopupMenu em tempo de execuçao, para poder destruí-lo quando o cursor sair da área do PopupMenu. Caso contrário deverá criar um item dentro do PopupMenu para fecha-lo sem executar nada. Um exemplo http://forum.devmedia.com.br/viewtopic.php...c7f7cc8940fc988 abraço Creio que se criar em tempo de execução não vai ficar muito bom, pois são varios PopUpMenus diferentes e eu teria que deixar eles criados já seria uma boa para mim, pois em tempo de execução na hora que eu for liberar SubMenu para os usuarios vai dar mais trbalho e já criado não! agora sobre criar o item eu não entendi ! você poderia me ajudar ?