Jhonas

tente esse http://download.fyxm.net/download-file-51478.html http://magic.shabgard.org/MagicApiHook.zip abraço

tente esse código uses printers; procedure TForm1.Button1Click(Sender: TObject); var f:TextFile; linha:String; begin with Printer do begin BeginDoc; AssignFile(f,'USB001'); Rewrite(f); Writeln(f,'Q320,019'); Writeln(f,'q831'); Writeln(f,'rN'); Writeln(f,'S4'); Writeln(f,'D7'); Writeln(f,'ZT'); Writeln(f,'JB'); Writeln(f,'OD'); Writeln(f,'R56,0'); Writeln(f,'N'); Writeln(f,'A105,45,2,3,1,1,N,"110,00"'); Writeln(f,'A219,40,2,1,1,1,N,"A Vista R$"'); Writeln(f,'A227,103,2,2,1,1,N,"CALCINHA DE RENDA"'); Writeln(f,'A146,151,2,3,1,1,N,"12563"'); Writeln(f,'A166,277,2,2,1,1,N,"DEVMEDIA"'); Writeln(f,'B57,154,0,2,2,5,72,N,"123456"'); Writeln(f,'A345,45,2,3,1,1,N,"110,00"'); Writeln(f,'A459,40,2,1,1,1,N,"A Vista R$"'); Writeln(f,'A467,103,2,2,1,1,N,"CALCINHA DE RENDA"'); Writeln(f,'A386,151,2,3,1,1,N,"12563"'); Writeln(f,'A406,277,2,2,1,1,N,"DEVMEDIA"'); Writeln(f,'B297,154,0,2,2,5,72,N,"123456"'); Writeln(f,'A585,45,2,3,1,1,N,"110,00"'); Writeln(f,'A699,40,2,1,1,1,N,"A Vista R$"'); Writeln(f,'A707,103,2,2,1,1,N,"CALCINHA DE RENDA"'); Writeln(f,'A626,151,2,3,1,1,N,"12563"'); Writeln(f,'A646,277,2,2,1,1,N,"DEVMEDIA" Writeln(f,'B537,154,0,2,2,5,72,N,"123456" Writeln(f,'P1'); CloseFile(f); EndDoc; end; end; abraço

veja http://www.brothersoft.com/api-hook-sdk-download-25831.html abraço

Paulo.... fiz um teste aqui com esse código e está imprimindo corretamente OBS: coloquei aspas nas variaveis somente para testar uses printers; procedure TForm1.Button1Click(Sender: TObject); var f:TextFile; linha:String; begin with Printer do begin BeginDoc; AssignFile(f,'USB001'); Rewrite(f); Writeln(f,'N'); writeln(f,'D10'); Writeln(f,'S3'); Writeln(f,'A70,10,0,2,1,1,N,'+'"'+'descricao'+'"'); Writeln(f,'B50,50,0,'+'cod'+',2,3,50,'+'imp'+',"'+'prod1'+'"'); CloseFile(f); EndDoc; end; end; abraço

voce vai achar em um dos posts relacionados no link http://scriptbrasil.com.br/forum/index.php...te=SelectedRows abraço

tem sim... a primeira coisa é desligar e ligar o seu micro. se a impressora estiver ok, ela vai resetar junto com o micro ( faz um barulho quando o micro é ligado ) Em propriedades da Impressora > Portas > voce vai marcar USB e selecionar : Ativar suporte bidirecional e Atival Pool de impressão Para a porta USB se você usar o comando: "AssignFile(Imp, 'USB001');" abraço

Vou mover o seu tópico para a área especifica de jogos ... ok ? abraço

SOUND.DB - 120 of 168 MB. All unpacked files in MP3. TEXT.DB - nothing unpacks. SEPTERRA.DB - nothing unpacks. LEVEL.DB - nothing unpacks. Found MPEG data, but this most likely error. ANIM.DB - nothing unpacks. Need help with unpacking. With movies(M1-9B.DB, MONOLITH.DB, TOPWARE.DB, VALKYRIE.DB) no problems. files: http://www.megaupload.com/?d=63CZGO8Y http://www.megaupload.com/?d=I1RLWE55 http://www.megaupload.com/?d=CMNFI4RM http://www.megaupload.com/?d=Q5RLINMO http://www.megaupload.com/?d=PZOR6TFR SOUND.DB is MP3 file. For playing need cut bytes to VSSF header, which late be data. No music - voices only. LEVEL.DB cannot be analyse in IDA Pro(see error). ANIM.DB, SEPTERRA.DB, TEXT.DB is compressed data. TEXT.DB contain TX00 header files. ANIM.DB dont have header and maybe I think contain compressed animation sprites. SEPTERRA.DB contain CH14 header files. Main part of graphics is 16 bit. Portaits is 8 bit, not fully decode palette, maybe BlackBody-styled. Memory dump cut - http://www.mediafire.com/?42h228ly1j2q8bx ======================================================================== SOUND.DB é o arquivo MP3. Para jogar precisa cortar bytes para o cabeçalho VSSF. Nenhuma música - apenas vozes. LEVEL.DB não pode ser analisada na IDA Pro (ver erro). ANIM.DB, SEPTERRA.DB, TEXT.DB é arquivo de dados comprimido. TEXT.DB conter TX00 arquivos de cabeçalho. ANIM.DB não tem cabeçalho e talvez contênha sprites de animação comprimido. SEPTERRA.DB contem CH14 arquivos de cabeçalho. Parte principal dos gráficos é de 16 bit. Portaits é de 8 bits, e não pode decodificar totalmente a paleta. ======================================================================== link para o Septerra Creator http://www.torrentreactor.net/torrents/160...-of-the-Creator Pesquise na Internet sobre o assunto http://www.google.com.br/search?q=septerra...p;aqi=&aql= OBS: este é um forum de delphi, e não de jogos ...ok ? abraço

voce tem que informar qual é o banco de dados que esta usando ( Paradox 5 ou Paradox 7), e quais os componentes de acesso ao banco e a versão do seu delphi seja sempre explicito nas informações, para poder ajudar o primeiro link tem um programa pronto que voce pode adptar ao seu executavel http://www.bonecosoftware.com.br/reparacao.htm os demais são componentes de reparo http://www.planetadelphi.com.br/download/8...tabelas-paradox http://www.programmersheaven.com/download/5896/download.aspx http://www.meusdownloads.com.br/p.jsp?ppID=eb15 abraço

pois são arquivos do jogo se são arquivos de jogo, então possivelmente eles estejam codificados, e só podem ser decodificados pelo proprio código do jogo nesse caso fica dificil ... abraço

Sim ... se a impressora não estiver instalada como quer imprimir ? voce pode instalar a impressora na posta USB ou na serial obs: ao invés de colocar o nome do arquivo, coloca o caminho da impressora na geração. EX: AssignFile(F, <caminho_da_impressora>); ---- \\127.0.0.1\ZebraTLP outros exemplos: http://atacadaodeembalagens.com.br/rcky/bl...ra-zebra-tlp228 http://www.devmedia.com.br/post-9735-Integ...4-parte-ii.html http://www.planetadelphi.com.br/delphi/exe...os/00003840.zip abraço

O erro indica: Leitor de Entrada Corrompido a informação necessaria para fazer isso, não existe mais ( foi corrompida ) ... veja se consegue outra copia do arquivo abraço

Em um dos links voce acharia esse post http://scriptbrasil.com.br/forum/index.php?showtopic=153354 e dentro dele voce acharia http://www.baixaki.com.br/download/impressora-zebra-zpl2.htm OBS: use Begindoc / Enddoc exemplo: with Printer do begin BeginDoc; AssignFile(f,'COM5'); Rewrite(f); Writeln(f,'N'); writeln(f,'D10'); Writeln(f,'S3'); Writeln(f,'A70,10,0,2,1,1,N,'+'"'+descricao+'"'); Writeln(f,'B50,50,0,'+cod+',2,3,50,'+imp+',"'+prod1+'"'); CloseFile(f); EndDoc; end; pesquise no forum ... tem outros exemplos abraço

veja esses links http://www.cs.utexas.edu/~cline/CS323H/Par...ssingMatlab.pdf http://www.mathworks.com/help/techdoc/matl...nal/f42387.html http://www.mathworks.com/help/techdoc/ref/plus.html http://www.mathkb.com/Uwe/Misc/SR.aspx?p=P...cy)%2cz)+matlab http://www.enautica.pt/publico/professores...Lab_Ficha_02.pd abraço

Erro: Instrução Invalida para o Sufixo 'push' Erro: Instrução Invalida para o Sufixo 'pop' vai achar a resposta aqui, mas em ingles http://support.amd.com/us/Processor_TechDocs/24594.pdf abraço

A idéia é essa mesmo: procedure TForm1.Button1Click(Sender: TObject); var i : Integer; begin for i := 0 to ComponentCount -1 do begin if Components[i] is TEdit then if TEdit(Components[i]).Text = '' then showmessage('Existem Campos Não Preenchidos'); end; end; abraço

exemplo: http://www.devmedia.com.br/post-9510-Integ...44-Parte-1.html ou no forum http://scriptbrasil.com.br/forum/index.php...;highlite=zebra abraço

O erro indica: Leitor de Entrada Corrompido OBS: Não existem dados nesse arquivo que indiquem que seja uma tabela paradox abraço

se quiser abrir um arquivo paradox, o proprio delphi faz isso vá em Menu > Tools > Database Desktop obs: caso o arquivo esteja corrompido ou o arquivo de indices ... use http://repair-paradox-database.fyxm.net/ abraço

baixe a versão mysql-essential-5.1.41-win32.msi para outras versões http://www.kerodownload.com/s-fx_info-id-35244.html abraço

esse tipo de problema ocorre, quando acontece uma queda de energia ... o MYSQL faz um rollback automático para não danificar o banco de dados abraço

se voce estiver usando o delphi, pode usar o componente webbrowser para isso abraço

"nenhuma das bibliotecas dinâmicas foram encontradas: libmysql51.dll, libmysql50.dll, libmysql.dll" essas dlls devem estar na pasta c:\windows\system32 se não estiverem procure no seu micro ou na internet abraço

veja http://www.gacetadelinux.com/pr/lg/issue84/hawk.html http://fergonez.net/tutoriais/fergo/reveng...ut_engrev1.html abraço

Eu não tenho como testar o seu código aqui, mas pela lógica... veja se voce quer começar o s = 100 e ir incrementando s=2; i=0; while teta~=2, s=100+s; então a cada execução do while teremos o valor de s alterado 100, 102, 104, 106, 108 , 110 .... etc se voce quer começar o s = 0 e ir e incrementando s=0; i=0; while teta~=2, s=s+2; então a cada execução do while teremos o valor de s alterado 2, 4, 6, 8, 10, 12 ... etc OBS: faça algumas mudanças e veja o que ocorre abraço