Jhonas

está faltando o operador AND ou OR dentro comando. fEstoque.ClientDataSet_estoque.Filter := 'COD_PRODUTO>='''+(Edit_cod_inicial.Text+''''+ ' AND COD_PRODUTO<='''+Edit_cod_final.Text)+''''; abraço

nesse caso não sei te dizer ... teria que pesquisar acho que isso é uma função "javascript: eventbriteCheckout();"

procurei mais no meu object não achei essa propriedade ResquestLive... OBS: Amigo tem muitos exemplos na pasta Demo do delphi o componente TQuery e IBQuery fazem a mesma coisa, só que, com banco de dados diferentes ( um usado com Paradox e o outro usando com Interbase ou Firebird ) como usar o TQuery ( o mesmo aplica-se para o IBQuery ) http://www.uwgb.edu/mielkeb/cs371/Borland/tquery.htm abraço

No IBQuery deixe a propriedade ResquestLive como true se não voce não consegue salvar os dados abraço

Estou com aquele problema da atualização em tempo de execução, não sei como devo seguir quanto a isto. usando o IBTable, voce atualiza a tabela com o comando Table1.Refresh; ou tambem usando os comandos abaixo, mas prefira o comando acima Table1.Close; Table1.Open; Não consegui conectar com o Ibquery que você tinha falado para mim, ele monstra um erro Empty Sql. isso porque voce não colocou nenhum comando na propriedade SQL exemplo: Select * from tabela esse comando vai selecionar todos os registros de sua tabela ( onde tabela é o nome da sua tabela ) veja mais nesses links http://www.subrotina.com.br/conhecendo-o-componente-query/ http://www.google.com.br/search?q=IBQuery++delphi&hl=pt&gbv=2&o que=IBQuery++delphi&gs_l=heirloom-serp.3..0i7i30l9j0i7i10i30.248175.249899.0.250950.7.7.0.0.0.0.1010.2011.7-2.2.0.msedr...0...1ac.1.34.heirloom-serp..6.1.1001.st0LDtjpCmg abraço

verifique se é isso paginas 2 a 4 http://www.google.com.br/url?q=http://www.inf.ufrgs.br/~roesler/disciplinas/LabRedes/02_Interfaces/02_laboratorio_interfaces_comunicacao_assincrona.pdf&sa=U&ei=uitAVZKvKcW-ggSkjYHoDg&ved=0CCYQFjAD&usg=AFQjCNE9GBmsBR494TpwlNq1LCdpcbwU5A abraço

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

ok ... usando o IBTable e o DataSource O DataSource é ligado ao IBTable pela propriedade DataSet O IBTable é ligado ao IBDataBase pela propriedade DataBase Selecione a Tabela no IBTable na propriedade TableName No DBLookupComboBox1 na propriedade ListSource voce coloca o DataSource No DBLookupComboBox1 na propriedade ListField voce seleciona o campo da sua tabela No DBLookupComboBox1 na propriedade KeyField voce seleciona o campo da sua tabela que servirá de chave Quando voce ativar a tabela no DBLookupComboBox1 vai aparecer os registros do campo da tabela OBS: Se ainda estiver com dúvidas, veja esses links http://www.google.com.br/search?q=dblookupcombobox+delphi+7&hl=pt&gbv=2&revid=892602473&o que=dblookupcombobox+delphi&gs_l=heirloom-serp.1.1.0i67l3j0i30l7.456486.466039.0.470826.8.6.0.2.2.1.409.1176.1j2j2j0j1.6.0.msedr...0...1ac.1.34.heirloom-serp..2.6.548.DZHgYqezvTM abraço

Só que quando conecto as propriedades do DbLookupComBox, Da a seguite mensagem de erro, "Circular Data Links are not Allowed. na propriedade ListSource coloque o seu DataSource na propriedade ListField coloque o campo de sua tabela OBS: Não use as propriedades DataSource e nem a DataField para a mesma tabela senão ocorre o erro : "Circular Data Links are not Allowed." o DataSource e o DataField são usados quando voce quer jogar o conteudo do campo da tabela linkada no ListSource para outra tabela abraço

junto com o celular deve ter vindo um cabo USB para conectar no micro e no seu celular depois de conectado, voce vai ver todas as pastas e arquivos que contem no celular veja qual é a pasta onde ficam os aplicativos e copie para essa pasta o seu aplicativo depois tente executa-lo pelo proprio celular se não executar, significa que falta algum arquivo ( dll, ou outro ) que não foi instalado junto com o seu delphi e que não foi agregado ao executavel

amigo, voce pode usar o photoshop para isso ou voce terá que disponibilzar as fotos em algum site para que alguém faça isso por voce abraço

Em target deveria mostrar o meu dispositivo conectado ao computador para que eu rode a aplicação diretamente nele, porém está assim: OBS: mesmo que ele não apareça no delphi, desenvolva um programinha bem simples, jogue no celular e veja se roda

Uso um DataSourse, DataBase, IbTable, IbTransaction. prefira usar esses componentes IBDataBase e IBTransaction para conexão com o banco de dados IBQuery ....... no lugar o IBTable /// para conexão com as tabelas do banco de dados DataSetProvider ClientDataSet e DataSource só quando eu fecho a aplicação e a-Abro de volta, ai sim ele atualiza para evitar isso, basta voce dar um refresh na tabela ClientDataSet.Refresh; ou fechar e abrir o ClientDataSet ClientDataSet.close; ClientDataSet.open; abraço

veja se o dispositivo movel aparece na pasta Meu Computador

use o componente DBCombobox do delphi http://www.google.com.br/search?q=dbcombobox+delphi+exemplo&hl=pt&gbv=2&o que=dbcombobox+delphi&gs_l=heirloom-serp.1.1.0l2j0i7i10i30j0i7i30l2j0i30l4j0i10i30.95805.100144.0.102653.12.12.0.0.0.0.216.2064.2j9j1.12.0.msedr...0...1ac.1.34.heirloom-serp..2.10.1684.pNDMAIIXejw abraço

ok... distração minha não sei se voce vai achar alguma para isso mas me lembrei desse link ... um conversor de java para delphi ( quem sabe resolve ) http://www.borlandforum.com/impboard/attach/0000097226/java2delphi.20070629.zip nesse link tem um exemplo de conversão http://www.delphipages.com/forum/archive/index.php/t-197212.html abraço

pesquise na net por algum conversor de linguagem "convert java to delphi" abraço

exemplo unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; continuar : integer = 1; y : integer = 1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); label voltar; var x: integer; begin for x := 1 to 20 do begin Memo1.Lines.Add(inttostr(x)); sleep(500); Application.ProcessMessages; if continuar = 0 then break; voltar: continue; end; if application.MessageBox('continuar o loop', '', MB_YESNO) = id_Yes then begin if continuar = 0 then begin continuar := 1; goto voltar; end; end; end; procedure TForm1.Button2Click(Sender: TObject); begin inc(y); if y = 1 then continuar := 1 else begin continuar := 0; y := 1; end; Application.ProcessMessages; end; end. abraço

lógica do processamento: 1 - abrir arquivo txt e ler código de rastreio => PI318859597BR 2 - usar o webbrowser para chamar a pagina dos correios passando como parametro o código de rastreio exemplo: http://websro.correios.com.br/sro_bin/txect01$.QueryList?P_ITEMCODE=&P_LINGUA=001&P_TESTE=&P_TIPO=001&P_COD_UNI=PI318859597BR 3 - ler o conteudo da pagina ou jogar em um memo } document.onmousedown=verfonte //--> </SCRIPT> <BODY BGCOLOR="d8e6ed" TEXT="0000FF" LINK="000000"VLINK="800040" ALINK="0FF000"> <FORM ACTION="txect01$.ResultList" METHOD="POST"> <INPUT TYPE="hidden" NAME="Z_START" VALUE="1"> <INPUT TYPE="hidden" NAME="P_ITEMCODE" VALUE="PI318859597BR"> <INPUT TYPE="hidden" NAME="P_LINGUA" VALUE="001"> <INPUT TYPE="hidden" NAME="P_COD_UNI" VALUE="PI318859597BR"> <INPUT TYPE="hidden" NAME="P_COD_INI" VALUE=""> <INPUT TYPE="hidden" NAME="P_COD_FIN" VALUE=""> <INPUT TYPE="hidden" NAME="P_COD_LIS" VALUE=""> <INPUT TYPE="hidden" NAME="P_TESTE" VALUE=""> <INPUT TYPE="hidden" NAME="P_TIPO" VALUE="001"> <H1> </H1> <img align=absmiddle src=../correios/Img/correios.gif><FONT face=Arial size=3 color="#000000"><b> PI318859597BR - Histórico do Objeto</b></font> <font face=Arial color=black size=2> <br>O horário não indica quando a situação ocorreu, mas sim quando os dados foram recebidos pelo sistema, exceto no caso do <b>SEDEX 10 e do SEDEX Hoje, </b>em que ele representa o horário real da entrega.<p> <table border cellpadding=1 hspace=10> <colgroup style='font:8pt Tahoma;color=Black' valign=top><colgroup style='font:8pt Tahoma; color=Navy'><colgroup style='font:8pt Tahoma;color=Maroon'> <tr> <td><font FACE=Tahoma color='#CC0000' size=2><b>Data</b></font></td> <td><font FACE=Tahoma color='#CC0000' size=2><b>Local</b></font></td> <td><font FACE=Tahoma color='#CC0000' size=2><b>Situação</b></font></td> </tr> <tr><td rowspan=2>22/04/2015 11:25</td><td>CEE PALMAS - Palmas/TO</td><td><FONT COLOR="000000">Encaminhado</font></td></tr> <tr><td colspan=2>Em trânsito para CTE SALVADOR - Salvador/BA</td></tr> <tr><td rowspan=2>20/04/2015 16:22</td><td>AC PALMAS - Palmas/TO</td><td><FONT COLOR="000000">Encaminhado</font></td></tr> <tr><td colspan=2>Em trânsito para CEE PALMAS - Palmas/TO</td></tr> <tr><td rowspan=1>20/04/2015 16:09</td><td>AC PALMAS - Palmas/TO</td><td><FONT COLOR="000000">Postado</font></td></tr> </TABLE> <hr width=500 color='#FFCC33' size=1 align=left><FONT face=Tahoma size=2 color=black><center><br><p><a href="https://play.google.com/store/apps/details?id=br.com.correios.srocorreios" target="_blank">SRO Mobile</a> - Conheça nosso aplicativo oficial de Rastreamento.<p><p><a href="https://play.google.com/store/apps/details?id=br.com.correios.srocorreios"><img src="../correios/Img/google-play.png" border="0"></a><p><p> <img src="http://chart.googleapis.com/chart?chs=150x150&cht=qr&chl=PI318859597BR" border="0"> <input type=hidden name="Z_ACTION"> <input type=button name="done" value="Nova Consulta" onClick="BT_NEWP_OnClick(this)"> <input type=button name="Print" value="Print" onClick="IMPRIMIR(this)"> </BODY> </HTML> 4 - pesquisar no memo pela palavra chave colspan=2> e verificar se o conteudo é : "Em rua para ser entregue" 5 - caso positivo, exibir notificação e voltar ao passo 1. caso negativo, exibir aviso e voltar ao passo 1 OBS: veja se consegue desenvolver alguma coisa com esses passos. abraço

esse link vai te ajudar http://www.forum-invaders.com.br/vb/showthread.php/40318-D%C3%BAvida-Clicar-em-Elemento-HTML-TWebBrowser abraço

veja se é isso http://www.ispirer.com/application-conversion/delphi-to-java-migration http://javafree.uol.com.br/artigo/871492/JNI-Interacao-Java-e-Delphi.html abraço

faça isso para saber o conteudo do elemento Elements := WebBrowser1.OleObject.Document.forms.item(0).elements; for i := 0 to (Elements.Length - 1) do begin showmessa(Elements.item(i).tagName ); showmessa(Elements.item(i).type ); showmessa(Elements.item(i).Value); end; abraço

exemplo unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function ExecAndWait(const FileName: string; const CmdShow: Integer): Longword; var { by Pat Ritchey } zAppName: array[0..512] of Char; zCurDir: array[0..255] of Char; WorkDir: string; StartupInfo: TStartupInfo; ProcessInfo: TProcessInformation; AppIsRunning: DWORD; begin StrPCopy(zAppName, FileName); GetDir(0, WorkDir); StrPCopy(zCurDir, WorkDir); FillChar(StartupInfo, SizeOf(StartupInfo), #0); StartupInfo.cb := SizeOf(StartupInfo); StartupInfo.dwFlags := STARTF_USESHOWWINDOW; StartupInfo.wShowWindow := CmdShow; if not CreateProcess(nil, zAppName, // pointer to command line string nil, // pointer to process security attributes nil, // pointer to thread security attributes False, // handle inheritance flag CREATE_NEW_CONSOLE or // creation flags NORMAL_PRIORITY_CLASS, nil, //pointer to new environment block nil, // pointer to current directory name StartupInfo, // pointer to STARTUPINFO ProcessInfo) // pointer to PROCESS_INF then Result := WAIT_FAILED else begin while WaitForSingleObject(ProcessInfo.hProcess, 0) = WAIT_TIMEOUT do begin Application.ProcessMessages; Sleep(50); end; WaitForSingleObject(ProcessInfo.hProcess, INFINITE); GetExitCodeProcess(ProcessInfo.hProcess, Result); CloseHandle(ProcessInfo.hProcess); CloseHandle(ProcessInfo.hThread); end; end; procedure TForm1.Button1Click(Sender: TObject); var comando : string; begin comando := 'C:\LIMPA.BAT'; ExecAndWait(comando, SW_HIDE); showmessage('comando executado e concluido'); end; end. abraço

vejamos se entendi a sua dúvida: de um arquivo TXT voce quer pegar o código de rastreio ( DM1092912912BR ) e quer fazer uma pesquisa em um arquivo XML ( webservice dos correios ) para procurar pela palavra "Em rua para ser entregue", e depois mostrar o resultado na tela. .... ( seria isso ??? )

excluir o diretório com todos os arquivos EX: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; OpenDialog1: TOpenDialog; procedure Button1Click(Sender: TObject); function BrowseForFolder:string; private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} uses ShlObj; procedure DeleteDir(const DirName: string); var Path: string; F: TSearchRec; begin Path:= DirName + '\*.*'; if FindFirst(Path, faAnyFile, F) = 0 then begin try repeat if (F.Attr and faDirectory <> 0) then begin if (F.Name <> '.') and (F.Name <> '..') then begin DeleteDir(DirName + '\' + F.Name); end; end else DeleteFile(DirName + '\' + F.Name); until FindNext(F) <> 0; finally FindClose(F); end; end; RemoveDir(DirName); end; procedure TForm1.Button1Click(Sender: TObject); var DPath : string; begin Dpath := BrowseForFolder; If Dpath <> '' then begin ShowMessage('O DIRETÓRIO ' + DPath + ' E TODOS OS ARQUIVOS '+#13+#13+ 'SERÃO DELETADOS.'); DeleteDir(DPath); end; end; {uses ShlObj} function TForm1.BrowseForFolder:string; var BrowseInfo : TBrowseInfo; {browse info structure for the API function call} PIDL : PItemIDList; {a PIDL, the storage method for paths used by Shell} SelectedPath : array[0..MAX_PATH] of Char; {the buffer where the result will be returned} begin Result := ''; { initialize TBrowseInfo structure to nulls (0) } FillChar(BrowseInfo,SizeOf(BrowseInfo),#0); BrowseInfo.hwndOwner := Handle; {Form1.Handle, the default} BrowseInfo.pszDisplayName := @SelectedPath[0]; {buffer address for API to store result} BrowseInfo.lpszTitle := 'Select a folder'; BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS; {only file system folders} { show the folder browser and return the result to the PIDL itemlist } PIDL := SHBrowseForFolder(BrowseInfo); { get selected directory from the itemlist and include the full path} if Assigned(PIDL) then if SHGetPathFromIDList(PIDL, SelectedPath) then Result := string(SelectedPath); end; end. end. abraço