-
Total de itens
9.657 -
Registro em
Tudo que Jhonas postou
-
Meu primeiro programa de automação comercial
pergunta respondeu ao Rangel Alves de Jhonas em Delphi, Kylix
Além do que já foi dito, existe um tópico versando sobre a homologação do software, mas não me lembro em qual pesquise no forum que voce encontra... abraço -
basta reinstalar a placa de rede novamente abraço
-
Não consigo instalar nem desinstalar programas.
pergunta respondeu ao nicolasbraz de Jhonas em Microsoft Windows
Para resolver ... baixe e execute http://www.baixaki.com.br/download/microsoft-fix-it.htm abraço -
Falha de página na àrea não paginada Faça formatação física do HD... esse erro ocorre quando existem trilhas ou setores com Bad Clusters, e durante a instalação não é possivel usar o endereçamento correto. abraço
-
veja http://www.google.com.br/search?hl=pt-BR&a...vidor+web&o que=criar+servidor+&aq=3&aqi=g10&aql=&gs_sm=e&gs_upl=1563l8433l0l11787l15l12l0l1l1l0l420l2833l2-3.4.2l9l0 abraço
-
Meu primeiro programa de automação comercial
pergunta respondeu ao Rangel Alves de Jhonas em Delphi, Kylix
Pesquise no forum... vai encontrar algumas respostas http://scriptbrasil.com.br/forum/index.php...ite=nota+fiscal http://scriptbrasil.com.br/forum/index.php...4146&hl=cef http://scriptbrasil.com.br/forum/index.php...2060&hl=nfe http://scriptbrasil.com.br/forum/index.php...2512&hl=nfe outros sobre automação http://scriptbrasil.com.br/forum/index.php...e=automa%E7%E3o importante http://www.presence.com.br/site/pagina_tef...099,00124,00129 abraço -
te passei varios exemplos, o mais simples seria: ClientDataSet1.SaveToFile('c:\teste.xml',dfXML); Para alterar o XML para um formato de sua escolha, va no menu principal do delphi > Tools e escolha a opção XML Mapper para gerar o arquivo de conversao. abraço
-
(Resolvido) Dump em MySQL via Programação
pergunta respondeu ao aprediz12 de Jhonas em Delphi, Kylix
o correto é : procedure TForm1.Button1Click(Sender: TObject); var vFile : PAnsiChar; s : string; begin if SaveDialog1.execute then begin S := 'C:\Arquivos de programas\MySQL\MySQL Server 5.1\bin'; // caminho para o MYSQL ( pasta bin ) ChDir(s); vFile := PAnsiChar('cmd /c mysqldump -u root -p --password=minhasenha -c -e --databases dados >'+PAnsiChar(SaveDialog1.Filename)); WinExec(vFile ,SW_HIDE); end; end; OBS: se voce não colocar o caminho para o executavel ( mysqldump.exe ) não funciona abraço -
(Resolvido) AlphaControls 7.47 - Ferramenta de SKIN
pergunta respondeu ao jaumDoDelphi de Jhonas em Delphi, Kylix
a limitação é que voce só pode usar as skins que estão no programa obs: veja tambem se não aparece a mensagem demo nas skins abraço -
http://pt.wikipedia.org/wiki/Embarcadero_Delphi http://www.hardware.com.br/tutoriais/perso...and-delphi.html voce vai encontrar no proprio forum tópicos indicando apostilas e muitos exemplos em tutorias e dicas delphi abraço
-
veja esse tópico http://scriptbrasil.com.br/forum/index.php?showtopic=139898 abraço
-
(Resolvido) Dump em MySQL via Programação
pergunta respondeu ao aprediz12 de Jhonas em Delphi, Kylix
veja http://www.clubedainformatica.com.br/site/...oda-base-mysql/ ou http://www.google.com.br/search?hl=pt-BR&a...l2645l2-5.4l9l0 abraço -
OBS: Voce pode fazer a mesma coisa com o delphi, é só usar os componentes corretos ========================================================= manual completo usando o delphi, mas em ingles http://keith-wood.name/DelphiXML/BookCode/index.html outra dica http://www.delphi3000.com/articles/article_1036.asp?SK= abraço
-
Inserindo Resgistro no SQLServer pelo Delphi
pergunta respondeu ao Lukkas de Jhonas em Delphi, Kylix
OK ... só fiquei em dúvida quanto a aspa simples no final como voce pode perceber, o erro refere-se ao tipo do campo imagino que o campo Codigo_Cliente seja inteiro e nesse caso voce não pode usar edtCodigo.Text e se edtCodigo é um Edit, então voce deve fazer a conversão de tipos, e nesse caso ficaria strtoint(edtCodigo.Text) o mesmo vale para RG e CPF se ambos os campos forem inteiros abraço -
algumas dicas: http://www.google.com.br/url?sa=t&sour...qCPkahkNhNLE9hg http://pt.w3support.net/index.php?db=so&id=111287 http://www.planetadelphi.com.br/dica/6996/...o-xml-no-delphi http://www.linhadecodigo.com.br/ArtigoImpressao.aspx?id=18 http://www.devmedia.com.br/post-3193-Clien...em-Memoria.html http://www.clubedainformatica.com.br/site/...-clientdataset/ abraço
-
Form criado no execute da thread
pergunta respondeu ao Vitor Eduardo da Silva de Jhonas em Delphi, Kylix
Achei que por ser dentro da thread o form rodaria dentro de uma outra linha de execução e por isso ele funcionaria separadamente de meu loop que colhe informações através de um webservice um processo em loop ou que exija 100 % do processamento vai impedir outro processo de executar veja prioridade de processamento http://scriptbrasil.com.br/forum/index.php...st&p=570616 uma solução seria voce fazer com que durante o loop possa ser detectado o botão cancelar da thread coloque no código do loop application.processmessages; // para considerar algo que aconteça durante o loop abraço -
Inserindo Resgistro no SQLServer pelo Delphi
pergunta respondeu ao Lukkas de Jhonas em Delphi, Kylix
tente uma das duas maneiras (''''+edtCodigo.Text+''''+''''+edtNome.Text+''''+''''+edtEndereco.Text+''''+''''+edtCidade.Text+''''+''''+edtRG.Text+''''+''''+edtCPF.Text+'''') '); (''''+edtCodigo.Text+''''+''''+edtNome.Text+''''+''''+edtEndereco.Text+''''+''''+edtCidade.Text+''''+''''+edtRG.Text+''''+''''+edtCPF.Text+''''+') '); abraço -
(Resolvido) Dump em MySQL via Programação
pergunta respondeu ao aprediz12 de Jhonas em Delphi, Kylix
WinExec('cmd /c mysqldump -u root -p --password=minhasenha -c -e --databases dados >c:\Pasta1\backupTeste.sql' ,SW_HIDE); minhasenha = senha do banco dados = nome do banco de dados abraço -
OK.. nesse caso veja esse link.. vai te dar uma idéia de como proceder http://social.technet.microsoft.com/Forums...2b-457d3cb80b77 abraço
-
Se voce usar esse código não tem o que errar... http://scriptbrasil.com.br/forum/index.php...st&p=569621 Amigo, a sua dificuldade está em não saber onde usar o código ... na verdade ele deve ser o primeiro código a ser executado, logo após a criação do form exemplo: se voce usa um form de login para entrar no programa, voce deve executar o código abaixo, assim que ele form criado e mostrado na tela Uses IsAdministrator; procedure TForm1.Button1Click(Sender: TObject); begin if IsAdmin = true then showmessage('O usuário logou como Administrador') else begin showmessage('O usuário não é Administrador'); Application.Terminate; end; end; dessa forma se o usuario não tiver logado como administrador, o programa não será executado abraço
-
veja http://javafree.uol.com.br/artigo/871492/J...a-e-Delphi.html abraço
-
Pessoal, pesquisando na net, vi que muitos se interessam por terem em seus projetos um webservice que de em tempo real a cotação de moedas, porem, não existem exemplos praticos que possibilitem o seu uso sem muitas complicações... então resolvi disponibilizar a todos um exmplo feito em delphi 7, mas creio que não aja problemas em outras versões tambem. Em um form coloque um botão e um StringGrid No StringGrid, modifique as propriedades: ColCount = 2 DefaultColWidth = 200 RowCount = 9 agora vamos ao código: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids; type TForm1 = class(TForm) Button1: TButton; StringGrid1: TStringGrid; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} uses UrlMon; procedure TForm1.Button1Click(Sender: TObject); var caminho, linha, s, f, g : string; arq : TextFile; cc, x, y, z : integer; Function Download(FSource, FDest: String): Boolean; begin try Result := UrlDownloadToFile(nil, PChar(Fsource),PChar(FDest), 0, nil) = 0; except Result := False; end; end; begin // WEB SERVICE DE COTAÇÃO DO DOLAR cc := 0; x := 0; y := 0; z := 0; caminho := 'C:\cotacao.htm'; Download('http://cotacao.republicavirtual.com.br/web_cotacao.php?formato=javascript', caminho); AssignFile ( arq, caminho); Reset ( arq ); while not Eof(arq) do begin inc(cc); Readln ( arq, linha); s := trim(linha); while Pos('''', S) > 0 do S[Pos('''', S)] := ' '; if cc > 2 then begin if Pos(':',s) > 0 then begin f := trim(copy(s,1,Pos(':',s)-1)); g := trim(copy(s,Pos(':',s)+1,20)); // MOSTRAR A COTAÇÃO EM UM STRINGGRID StringGrid1.Cells[0,0]:= 'MOEDA'; StringGrid1.Cells[1,0]:= 'COTAÇÃO'; StringGrid1.Cells[0,cc-2]:= f; StringGrid1.Cells[1,cc-2]:= g; end; end; end; CloseFile ( arq ); end; end. O resultado no StringGrig será parecido com isso o webservice é disponibilizado por este link http://www.republicavirtual.com.br/cotacao/exemplos.php OBS: voces poderão observar que é feito o download do arquivo (usei o Formato de retorno: javascript) para ser manipulado e disposto num StringGrid URL: http://cotacao.republicavirtual.com.br/web...mato=javascript abraços
-
(Resolvido) webservice para cotação
pergunta respondeu ao Vitor Eduardo da Silva de Jhonas em Delphi, Kylix
veja http://www.republicavirtual.com.br/cotacao/exemplos.php Para quem quiser saber mais a respeito http://www.giovani.inf.br/adm_inf/trabalho...WebServices.pdf abraço -
(Resolvido) Problema ao pegar teclas para macro
pergunta respondeu ao njorge de Jhonas em Delphi, Kylix
No exemplo anterior, a captura é feita em cima do Memo nesse é feita em cima do form unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; procedure FormDestroy(Sender: TObject); procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure FormKeyPress(Sender: TObject; var Key: Char); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; MacroHook: HHook; function KeyboardHookProc(Code: Integer; WordParam: Word; LongParam: LongInt): LongInt; stdcall; implementation {$R *.dfm} function KeyboardHookProc(Code: Integer; WordParam: Word; LongParam: LongInt) : LongInt; begin case WordParam of vk_Return: Form1.Memo1.Lines.Add( 'vk_return' ); vk_Space: Form1.Memo1.Lines.Add( 'vk_space' ); vk_Right: Form1.Memo1.Lines.Add( 'vk_right' ); vk_Left: Form1.Memo1.Lines.Add( 'vk_left' ); vk_Up: Form1.Memo1.Lines.Add( 'vk_up' ); vk_Down: Form1.Memo1.Lines.Add( 'vk_down' ); else Form1.Memo1.Lines.Add( format( '[%d]',[WordParam] )+ ' ' + chr(WordParam)); end; {case} Result:=0; end; procedure TForm1.FormDestroy(Sender: TObject); begin UnHookWindowsHookEx(MacroHook); end; procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin UnHookWindowsHookEx(MacroHook); MacroHook:=SetWindowsHookEx(WH_KEYBOARD, @KeyboardHookProc, HInstance, GetCurrentThreadId()); end; procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin UnHookWindowsHookEx(MacroHook); end; procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin UnHookWindowsHookEx(MacroHook); end; procedure TForm1.FormCreate(Sender: TObject); begin KeyPreview := true; end; end. abraço -
(Resolvido) Problema ao pegar teclas para macro
pergunta respondeu ao njorge de Jhonas em Delphi, Kylix
vi que voce não conseguiu a resposta em outros foruns ... para resolver o problema, voce deve desativar a interceptação de teclado, depois de teclar exemplo: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; procedure FormDestroy(Sender: TObject); procedure Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure Memo1KeyPress(Sender: TObject; var Key: Char); procedure Memo1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); private { Private declarations } public { Public declarations } end; var Form1: TForm1; MacroHook: HHook; function KeyboardHookProc(Code: Integer; WordParam: Word; LongParam: LongInt): LongInt; stdcall; implementation {$R *.dfm} function KeyboardHookProc(Code: Integer; WordParam: Word; LongParam: LongInt) : LongInt; begin case WordParam of vk_Return: Form1.Memo1.Lines.Add( 'vk_return' ); vk_Space: Form1.Memo1.Lines.Add( 'vk_space' ); vk_Right: Form1.Memo1.Lines.Add( 'vk_right' ); vk_Left: Form1.Memo1.Lines.Add( 'vk_left' ); vk_Up: Form1.Memo1.Lines.Add( 'vk_up' ); vk_Down: Form1.Memo1.Lines.Add( 'vk_down' ); else Form1.Memo1.Lines.Add( format( '[%d]',[WordParam] )+ ' '); end; {case} Result:=0; end; procedure TForm1.FormDestroy(Sender: TObject); begin UnHookWindowsHookEx(MacroHook); end; procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin UnHookWindowsHookEx(MacroHook); end; procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char); begin UnHookWindowsHookEx(MacroHook); end; procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin UnHookWindowsHookEx(MacroHook); MacroHook:=SetWindowsHookEx(WH_KEYBOARD, @KeyboardHookProc, HInstance, GetCurrentThreadId()); end; end. os links abaixo, vão ajudar a melhorar o código http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=452 http://en.allexperts.com/q/Delphi-1595/set...owsHookEx-1.htm http://www.mail-archive.com/delphi@delphi....z/msg02198.html http://www.delphifaq.com/faq/delphi_windows_API/f512.shtml abraço