Jhonas

Experimente desabilitar o Debugger do delphi, quando ele está habilitado ele pode apresentar este tipo de mensagem sem necessariamente ser erro. ou tente fazer uma reinstalação, mas limpe os registros do windows depois de desinstalar ( use o easycleaner para isto ) http://superdownloads.uol.com.br/download/73/easycleaner/ abraço

Este software te dá o nível de segurança que voce está querendo. Instruções sobre o produto http://www.security-setup.dk/introduction.htm Download do programa ( trial 20 dias ) http://www.security-setup.dk/download/ssu20l.zip abraço

A Violação de Acesso no modulo ntdll.dll, diz basicamente que você tentou usar memória não disponível "!. O programa tentou ler um pedaço ou escrever em um pedaço de memória que não tinha acesso (neste caso tentou ter acesso a memória de sistema reservada a um outro endereço). sugestões: 1 - reinicie o computador e rode o programa novamente e veja se o erro desaparece. 2 - use o debug do delphi para descobrir o problema 3 - troque a dll 4 - reinstale o zeos abraço

Veja estes posts http://scriptbrasil.com.br/forum/index.php...st&p=495893 http://scriptbrasil.com.br/forum/index.php...st&p=440416 http://scriptbrasil.com.br/forum/index.php...st&p=482620 http://scriptbrasil.com.br/forum/index.php...st&p=472589 abraço

Veja se este post ajuda http://scriptbrasil.com.br/forum/index.php...st&p=529147 abraço

voce pode mudar as propriedade regionais do windows no formato da data que deseja dd/mm/aa ai não precida mudar nada no programa outra solução é copiar parte da string do ano exemplo procedure TForm1.Button1Click(Sender: TObject); var Present: TDateTime; Ano, Mes, Dia: Word; begin Present:= Now; DecodeDate(Present, Ano, Mes, Dia); Label1.Caption := 'Hoje é dia ' + IntToStr(Dia) + ' do mês ' + IntToStr(Mes) + ' do ano ' + copy(IntToStr(Ano),3,2); // ultimos 2 digitos do ano end; exemplo procedure TForm1.Edit1Exit(Sender: TObject); begin Edit1.Text := FormatFloat('000',StrToFloat(Edit1.Text)); end; outro exemplo procedure TForm1.Button1Click(Sender: TObject); var n : integer; begin n := 2; Edit1.Text := FormatFloat('000',StrToFloat(inttostr(n))); end; abraço

uma das atualizações do windows ( KB... ) bloqueia ( ainda não sei qual é ) o executavel em delphi que usa banco de dados . se voce instalar o windows xp sp3 e não fizer as atualizações ele funciona EPrivilege é a classe de exceção para violações de privilégio de processador. Unit sysutils Descrição EPrivilege é elevado quando uma aplicação tentar executar uma instrução de processador que é inválido para o nível de privilégio de processador atual. Como um descendente de EExternal, EPrivilege salva a janela de exceção em um registro (se há um) em sua estrutura de dados ExceptionRecord. abraço

Voce não tem que mapear a rede, apenas faça o compartilhamento do drive do servidor da rede no componente ADOConnection1 na propriedade ConnectionString voce coloca o nome do caminho do servidor para usar uma conexão cliente e o resto das configurações procedure TForm1.FormCreate(Sender: TObject); var s, caminho : string; begin caminho := '\\SERVIDOR\C:\MEUPROG\Dados\DADOS.MDB'; s := 'Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;'+ 'Data Source='+caminho+';Mode=Share '+ 'Deny None;Extended Properties=Excel 8.0;Jet OLEDB:System database="";'+ 'Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";'+ 'Jet OLEDB:Engine Type=35;Jet OLEDB:Database Locking Mode=0;'+ 'Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;'+ 'Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;'+ 'Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don''''t Copy Locale on Compact=False;'+ 'Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False'; ADOConnection1.ConnectionString := s; ADOConnection1.Connected := true; end; abraço

Eles já tiraram este versão do link entretanto voce pode usar esta que vai do delphi 7 até o delphi 2009 http://zeosdownload.firmos.at/downloads/re...BO-6.6.2-rc.zip http://zeosdownload.firmos.at/downloads/re....6.2-rc_doc.zip abraço

Acho que o que voce está querendo seria isto procedure TForm1.Button1Click(Sender: TObject); var i : Integer; begin for i := 0 to ComponentCount -1 do begin if Components[i] is TLabel then begin if TLabel(Components[i]).Name = 'Label1' then TLabel(Components[i]).Caption := 'A'; end; end; end; ou ainda dessa maneira procedure TForm1.Button1Click(Sender: TObject); var i : Integer; s : string; begin for i := 0 to ComponentCount -1 do begin s := 'Label'+ inttostr(i+1); if Components[i] is TLabel then begin if TLabel(Components[i]).Name = s then TLabel(Components[i]).Caption := 'A'; end; end; end; abraço

Acho que este tópico vai lhe ajudar http://scriptbrasil.com.br/forum/index.php...st&p=474857 ou http://scriptbrasil.com.br/forum/index.php?showtopic=115462 abraço

Eu utilizo o Zeos sem problemas http://ufpr.dl.sourceforge.net/sourceforge...39;,'2' http://www.ziggi.com.br/downloads/zeoslib abraço

Experimente dessa maneira procedure TForm1.Button1Click(Sender: TObject); var i : Integer; begin for i := 0 to ComponentCount -1 do begin if Components[i] is TDBGrid then begin TDBGrid(Components[i]).Columns.SaveToFile(ExtractFilePath(Application.ExeName) + 'GridSai.ini'); TDBGrid(Components[i]).Columns.LoadFromFile(ExtractFilePath(Application.ExeName) + 'GridSai.ini'); end; end; end; abraço

Help do Delphi Servidor Remoto - O nome do caminho do servidor para usar uma conexão cliente abraço

fica assim if (LblStatus.caption <> '') and QrLeitura.FieldValues['sequencia']=null then Se não Tiver nenhum Registro recebe 1 begin cont:=1; QrLeitura.Append; QrLeitura.Edit; QrLeitura.FieldValues ['Cracha']:=Dblogin.text; QrLeitura.FieldValues ['data']:=now; QrLeitura.FieldValues ['Produto']:=DbProdutos.Text; QrLeitura.Fieldvalues ['medida']:=SttPeso.caption; QrLeitura.FieldValues ['Status']:=LblStatus.Caption; QrLeitura.FieldValues ['Funcionario']:=DbOpe.Text; QrLeitura.FieldValues ['sequencia']:=cont; QrLeitura.Post; QrLeitura.close; QrLeitura.open; end else if (LblStatus.Caption <> '')and (QrLeitura.FieldValues['sequencia']<>null) then begin QrLeitura.Last; // ultimo registro cont:=QrLeitura.FieldValues['sequencia']; // cont recebe o valor do ultimo registro QrLeitura.Append; QrLeitura.Edit; QrLeitura.FieldValues ['Cracha']:=Dblogin.text; QrLeitura.FieldValues ['data']:=now; QrLeitura.FieldValues ['Produto']:=DbProdutos.Text; QrLeitura.Fieldvalues ['medida']:=SttPeso.caption; QrLeitura.FieldValues ['Status']:=LblStatus.Caption; QrLeitura.FieldValues ['Funcionario']:=DbOpe.Text; QrLeitura.FieldValues ['sequencia']:=cont+1; // o valor de cont é somado QrLeitura.Post; QrLeitura.close; QrLeitura.open; end end; abraço

ok... entendi errado ... neste caso voce pode usar um select para os 50 pedidos e depois na hora de imprimir voce deve usar uma banda QRGroup para separá-los , desta maneira cada pedido saira em uma folha e todos de uma só vez. faça uma busca no forum pela palavra quickreport ou report abraço

Colega... sugiro a voce fazer buscas no forum usando palavras chaves como: apostilas delphi, botão, access ...etc voce encontrará dúvidas como as suas já solucionadas aproveite e leia as apostilas e as dicas e tutorias dephi http://scriptbrasil.com.br/forum/index.php?showforum=69 abraço

Se interessar .... outros tipos de codigos de barras http://superdownloads.uol.com.br/lista/cod...c234o4s1y1.html abraço

Use um componente TImage voce pode abrir a imagem com o OpenPictureDialog e depois carregá-la no TImage ... ele suporta as seguintes extensões *.gif *.jpg *.jpeg *.bmp *.ico *.emf *.wmf abraço

o caminho está errado veja este exemplo: se fosse na máquina local procedure TForm1.Button1Click(Sender: TObject); var s2 : string; begin if OpenDialog1.Execute then begin if FileExists(OpenDialog1.FileName) then begin s2 := OpenDialog1.FileName; WinExec(pchar('C:\Arquivos de programas\Microsoft Office\Office10\WINWORD.EXE ' + s2), 1); end else MessageDlg('Arquivo não encontrado!!!' , mtInformation,[mbOk], 0); end; end; na rede seria tipo procedure TForm1.Button1Click(Sender: TObject); var s2 : string; begin if OpenDialog1.Execute then begin if FileExists(OpenDialog1.FileName) then begin s2 := OpenDialog1.FileName; WinExec(pchar('\\192.168.1.101\C:\Arquivos de programas\Microsoft Office\Office10\WINWORD.EXE ' + s2), 1); end else MessageDlg('Arquivo não encontrado!!!' , mtInformation,[mbOk], 0); end; end; abraço

um exemplo bem simples for i:= 1 to copias do begin QRFicha1.Prepare; QRFicha1.Print; end; na variavel copias voce coloca o numero de copias que deseja abraço

última tentativa: altere as propriedades do xmldocument nodeident para <tab> e options do nodeautoindente para true e o seu xml fica identado ................................................................................... outras alternativas de pesquisa http://japs.etc.br/category/programacao/page/3/ http://weblogs.pontonetpt.com/smoreira/posts/26400.aspx http://www.macoratti.net/vbn5_xtv.htm http://wiki.freepascal.org/XML_Tutorial/pt http://forum.imasters.uol.com.br/index.php?showtopic=320091 http://www.swise.com.br/uploads/cursovs/VbNet/06-01.pdf abraço

utilize a função que verifica sábados e domingos e acrescente ao código uma rotina que leia uma matriz com as datas de feriados. caso seja encontrado na data de vencimento uma data de feriado e a data posterior seja um sabado ou domingo, voce faz o controle da data. abraço

Veja nestes endereços http://www.google.com.br/search?hl=pt-BR&a...uisar&meta= abraço

1 - existem descompiladores em delphi, mas não são 100 %, no maximo voce consegue descompilar 70% do executavel, mas não de maneira muito proveitosa. 2 - voce pode transformar seu executavel de .exe para .com usando um conversor de codigo ( fica muito mais dificil descompilar ) procure na net por 'convert exe to com delphi' abraço