Jhonas

Elements := WebBrowser1.OleObject.Document.forms.item(0).elements; for i := 0 to (Elements.Length - 1) do begin if (Elements.item(i).tagName = 'INPUT') and (Elements.item(i).type = 'submit') and (Elements.item(i).Value = 'Continuar') then Elements.item(i).Click; end; OBS: quanto ao type e o Value estão corretos mas veja se o tagName é realmente INPUT ou outro nome ( ver tambem diferença entre maiuscula e minuscula ) abraço

exemplos: http://www.aprendaefaca.com/site/2010/08/criando-conexao-ado-no-delphi/ http://www.planetadelphi.com.br/artigo/45/aplicativos-com-base-de-dados-em-rede./ abraço

voce quer pesquisar dentro do xml ?

tente esse exemplo uses ...OleCtrls, SHDocVw, MSHTML; procedure TForm1.FormCreate(Sender: TObject); var Url, Flags, TargetFrameName, PostData, Headers: OleVariant; begin Url := ExtractFilePath(Application.ExeName) + 'Test.htm'; WebBrowser1.Navigate2(Url, Flags, TargetFrameName, PostData, Headers); end; procedure TForm1.Button1Click(Sender: TObject); var doc: IHtmlDocument2; i: integer; ov: OleVariant; disp: IDispatch; collection: IHTMLElementCollection; inputelement: HTMLInputImage; begin WebBrowser1.ControlInterface.Document.QueryInterface(IHtmlDocument2, doc); if not Assigned(doc) then begin Exit; end; ov := 'INPUT'; disp := doc.all.tags(ov); if Assigned(disp) then begin disp.QueryInterface(IHTMLElementCollection, collection); if Assigned(collection) then begin for i := 1 to collection.Get_length do begin disp := collection.item(pred(i), 0); disp.QueryInterface(HTMLInputImage, inputelement); if Assigned(inputelement) then begin if inputelement.Name = 'submit then begin inputelement.Click; end; end; end; end; end; end; abraço

passa o codigo dessa janela

voce pode selecionar as colunas da tabela usando sql exemplo select cod_produto, cod_barras, descricao from tabela ou select descricao, preço, cod_produto from tabela dessa forma o seu ClientDataSet_estoque vai conter apenas as colunas que voce definiu no select abraço

faça uma pesquisa nesses links do forum http://www.google.com.br/search?q=clicar+webbrowser1+script+brasil+site:www.scriptbrasil.com.br&hl=pt&gbv=2&sa=X&ei=ttAuVeevEIm7ggSK64C4DQ&ved=0CB4QrQIwAA abraço

não tenho certeza quanto ao webbrowser, mas com certeza outros pacotes de componentes foram melhorados qual é a sua dificuldade para trabalhar com Webbrowser do delphi 7 ?

exemplo unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtDlgs; type TForm1 = class(TForm) OpenPictureDialog1: TOpenPictureDialog; Button1: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin // PEGAR SOMENTE O NOME DA IMAGEM if OpenPictureDialog1.Execute then Edit1.Text :=ExtractFileName(OpenPictureDialog1.FileName); end; end. abraço

a TV funciona em uma frequencia de 60 Hz, então verifique se o seu monitor está configurado para essa frequencia abraço

C:\Relatório.txt esse relatório já esta pronto no arquivo .txt ? e voce quer selecionar as colunas nesse .txt para imprimir ?

a barra lateral tem essa função ( subir ou descer a imagem ) se voce esta usando o mouse interno, verifique se o botão não está emperrado ou com defeito abraço

veja http://www.hardware.com.br/comunidade/dias-programa/1086325/ http://forum.clubedohardware.com.br/topic/864371-dias-entre-duas-datas-em-linguagem-c/ abraço

Ok... ficou bom abraço

<Brand>AMERICAN EXPRESS</Brand> <SubBrand /> observe que existem 2 strings que contem a substring Brand nesse caso voce deve usar um diferencial para que o valor correto seja pego <Brand>AMERICAN EXPRESS</Brand> <SubBrand /> então voce deve usar o Brand> procedure TForm1.Button1Click(Sender: TObject); var s, cartao, tipo, cidade, banco, bandeira : string; i : integer; begin for i := 0 to Memo1.Lines.Count-1 do begin s := Memo1.Lines.Strings[i]; if pos('Brand>',s) > 0 then bandeira := UpperCase(copy(s,pos('Brand',s)+6,pos('</Brand',s)-8)); if pos('Bank',s) > 0 then banco := UpperCase(copy(s,pos('Bank',s)+5,pos('</Bank',s)-7)); if pos('CountryName',s) > 0 then cidade := UpperCase(copy(s,pos('CountryName',s)+12,pos('</CountryName',s)-14)); if pos('CardCategory',s) > 0 then cartao:= UpperCase(copy(s,pos('CardCategory',s)+13,pos('</CardCategory',s)-15)); if pos('CardType',s) > 0 then tipo:= UpperCase(copy(s,pos('CardType',s)+9,pos('</CardType',s)-11)); edit2.Text := banco + ' | ' + tipo + ' ' + cartao + ' | ' + cidade + ' | ' + bandeira; end; end; poderia me explicar Os números nas funções +12,pos('</CountryName',s)-16 ???? faça a correção cidade := UpperCase(copy(s,pos('CountryName',s)+12,pos('</CountryName',s)-14)); veja <CountryName>Brazil</CountryName> tem 12 caracteres ... depois disso vem a palavra Brazil <CountryName>Brazil</CountryName> tem 13 caracteres + 1 ... como quero pegar somente a palavra Brazil tenho que eliminar os caracteres que estão depois da palavra Brazil Abraço

jogue o conteudo da pagina em um memo faça da mesma forma que te expliquei unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; Edit1: TEdit; Edit2: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var s, cartao, tipo, cidade, banco : string; i : integer; begin for i := 0 to Memo1.Lines.Count-1 do begin s := Memo1.Lines.Strings[i]; if pos('Bank',s) > 0 then banco := UpperCase(copy(s,pos('Bank',s)+5,pos('</Bank',s)-7)); if pos('CountryName',s) > 0 then cidade := UpperCase(copy(s,pos('CountryName',s)+12,pos('</CountryName',s)-14)); if pos('CardCategory',s) > 0 then cartao:= UpperCase(copy(s,pos('CardCategory',s)+13,pos('</CardCategory',s)-15)); if pos('CardType',s) > 0 then tipo:= UpperCase(copy(s,pos('CardType',s)+9,pos('</CardType',s)-11)); edit2.Text := banco + ' | ' + tipo + ' ' + cartao + ' | ' + cidade; end; end; end. resultado BANCO BRADESCO CARTOES, S.A. | CREDIT INFINITE | BRAZIL abraço

Seja bem vinda ao Forum ... OBS: Favor postar suas duvidas no forum correto abraço

exemplos usando nrComm Lib Component library for Delphi (VCL) http://www.deepsoftware.ru/nrcomm/ ou tente esse link http://www.google.com.br/search?q=modem+3g+usb+delphi&hl=pt&gbv=2&o que=modem+3g+usb+delphi&gs_l=heirloom-serp.12...1929948.1929948.0.1931340.1.1.0.0.0.0.385.385.3-1.1.0.msedr...0...1ac.1.34.heirloom-serp..1.0.0.Nz9BafOLqnE abraço

OBS: os links não estão funcionando "brand":"MASTERCARD" "country_name":"Brazil" "bank":"CAIXA ECONOMICA FEDERAL" "card_type":"CREDIT" voce pode usar essas palavras chaves para procurar as strings dentro de ( por exemplo ) um memo {"bin":"548826","brand":"MASTERCARD","sub_brand":"","country_code":"BR","country_name":"Brazil","bank":"CAIXA ECONOMICA FEDERAL","card_type":"CREDIT","card_category":"STANDARD","latitude":"-10","longitude":"-55","query_time":"344.902µs"} exemplo unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var s, cartao, tipo, cidade, banco : string; i : integer; begin s := Memo1.Lines.text; if pos('brand',s) > 0 then begin tipo := copy(s,pos('brand',s)+8,10); showmessage(tipo); end; if pos('country_name',s) > 0 then begin cidade := UpperCase(copy(s,pos('country_name',s)+15,6)); showmessage(cidade); end; if pos('bank',s) > 0 then begin banco := UpperCase(copy(s,pos('bank',s)+7,25)); showmessage(banco); end; if pos('card_type',s) > 0 then begin cartao:= UpperCase(copy(s,pos('card_type',s)+12,6)); showmessage(cartao); end; end; end. OBS: Faça as mudanças necessarias para o seu uso abraço

veja http://www.google.com.br/search?q=restaurar+arquivo+pst+outlook+2007&hl=pt&gbv=2&o que=restaurar+arquivo+pst&gs_l=heirloom-serp.1.2.0j0i10j0l2j0i22i10i30j0i22i30l5.916979.923830.0.927600.21.20.0.1.1.1.232.3199.5j5j10.20.0.msedr...0...1ac.1.34.heirloom-serp..5.16.2192.8jOzaQ8DSKw abraço

Seja bem vindo ao Forum ... OBS: Favor postar suas duvidas no forum correto abraço

veja esse post https://www.scriptbrasil.com.br/forum/topic/176844-resolvidocupom-não-fiscal/ procure no manual pelo comando para limpar buffer ou reset http://www.google.com.br/url?q=http://www.bematech.com.br/administrador/files/equipamento/suporte/18/1394308867-Impressora_MP-20MI_Manual_02_Manual_do_Usuario.pdf&sa=U&ei=4HYVVcu9HrDgsASA3YCgDA&ved=0CBkQFjAB&usg=AFQjCNHCNJox9Ud60ZRUGHXjUOKK9s_i_g abraço

Simplesmente dando um duplo click na função já existente não acontece nada. pois deveria acontecer ... ou seja, o ponteiro do mouse deveria ir para a procedure procedure TForm1.DBGrid1TitleClick(Column: TColumn); begin // códigos end; se não aconteceu nada ( nem criou uma nova procedure ) dê um Build All Projects no seu projeto ========================================================================== não tenho o Delphi XE, entretanto tinha alguns projetos em Delphi 5 e resolvi compila-los em Delphi 7 com pouquissimas excessões, precisei alterar os projetos em apenas 5% do código para o Delphi 7, o código restante ficou como estava. especificamente no uso de DBGrids não precisei alterar nada OBS: Procure usar o Debugger do Delphi para acompanhar o caminho do processamento abraço

Se eu criar um novo DBGrid, e copiar as funções do antigo, funciona. os arquivos Grids.pas e DBGrids.pas do Delphi 7 são diferentes do Delphi XE. quando voce coloca no projeto um novo dbgrid, voce esta trocando os arquivos .pas que são do Delphi XE. Existe uma maneira de recuperar esta função, sem ter que refazer todos os DBGrids ? tente dar um duplo clique com o mouse no evento OnTitleClick e veja se ele cria outra procedure no código abraço

seu arquivo .pst está muito grande ... crie outro novo os seus arquivos antigos podem ser utilizados quando voce precisar novamente ( somente leitura ) abraço