Jhonas

exemplo unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} uses printers; procedure TForm1.Button1Click(Sender: TObject); var arquivo: TextFile; linha: String; begin // fazer uma ligação entre a variável arquivo e o // arquivo que queremos ler AssignFile(arquivo, 'C:\Arquivo.txt'); // abrir o arquivo em modo leitura Reset(arquivo); // ler cada linha e adicioná-la a um Memo while not Eof(arquivo) do begin ReadLn(arquivo, linha); Memo1.Lines.Add(linha); end; // fechar o arquivo CloseFile(arquivo); end; procedure ImprimirMemo(Memo: TMemo); var I: integer; F: Text; begin { Usa na impressora a mesma fonte do memo } Printer.Canvas.Font.Assign(Memo.Font); AssignPrn(F); Rewrite(F); try for I := 0 to Memo.Lines.Count -1 do WriteLn(F, Memo.Lines[I]); finally CloseFile(F); end; end; procedure TForm1.Button2Click(Sender: TObject); begin ImprimirMemo(Memo1); end; end. abraço

voce tem que ler o conteudo da pagina e jogar em um memo que não precisa estar visivel no form depois procurar pela string loginForm.password dentro do script que esta no memo uma vez encontrado, voce deve pegar o numero da linha do memo para poder extrair a informação dessa linha que devera ser algo parecido com isso id=535602c8-3e01-4d30-bdcb-7e865080d7f7.loginForm.password class=pasw tabIndex=2 depois voce pode copiar somente o trecho que interessa e jogar em uma variavel esse seria o id do campo senha 535602c8-3e01-4d30-bdcb-7e865080d7f7 ----------------------------------------------------------------------------------------------------------- a mesma ideia se aplica ao campo email id=c670cb65-230e-463b-a6b4-891b61635424.loginForm.username abraço

como eu disse: isso acontece quando o pagina não foi totalmente carregada as bolinhas que aparecem no campo, são colocados pelo script da pagina, se não aparecem é porque o código script não foi executado corretamente tente atualizar a pagina pelo webbrowser abraço

em vez de estar como password(aquelas bolinhas) ele adiciona como um texto normal isso acontece quando o pagina não foi totalmente carregada tente a mesma abordagem WebBrowser1.OleObject.Document.all.Item('password', 0).focus; abraço

o exemplo que te passei é para preencher campos em uma pagina veja o post todo desde o inicio https://www.scriptbrasil.com.br/forum/topic/176349-problema-com-auto-preenchimento/?p=672327 abraço

veja o exemplo desse post https://www.scriptbrasil.com.br/forum/topic/176349-problema-com-auto-preenchimento/?p=672327 abraço

rumao reparei que voce trocou a versão do banco de dados Casa: Windows 7 32bits, Delphi XE6, Firebird-2.5.0.26074_1_Win32.exe Estou usando Windows 7, Delphi XE6 e Firebird-2.5.3.26778_0_Win32.exe se voce já tinha um projeto pronto e trocou o banco de dados, e não alterou novamente o conteudo do IBDataSet é exatamente esse o erro que vai acontecer Erro criando o form: Classe TIBStringfield não encontrada voce deve apagar todos os campos do IBDataSet e adiconá-los novamente OBS: veja tambem se todas essas uses estão declaradas no seu form uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IBCustomDataSet, DB, DBClient, IBQuery, Provider, IBDatabase; abraço

exemplo Public Function toHex(s As String) //Converte string binario para hexadecimal Dim sResult As String Dim nCnt As Integer For nCnt = 1 To Len(s) sResult = sResult & Right("00" & Hex(Asc(Mid(s, nCnt, 1))), 2) Next toHex = sResult End Function Public Function toBinary(s As String) //Converte hexadecimal para binario Dim sResult As String Dim nCnt As Integer For nCnt = 1 To Len(s) Step 2 sResult = sResult & Chr(Val("&H" & Mid(s, nCnt, 2))) Next toBinary = sResult End Function outros exemplos http://www.ehow.com/how_5175767_convert-hex-binary-visual-basic.html http://bytes.com/topic/visual-basic-net/answers/366901-function-convert-hexadecimal-binary http://social.msdn.microsoft.com/Forums/en-US/169a6aed-a222-44fa-a6fb-80b1c1dc4450/convert-hex-to-binary?forum=Vsexpressvb abraço

a conversão feita pelo programa foi essa Function IFThen(b:boolean; v1, v2: integer): integer; begin if b then result:=v1 else result:=v2; end; function TerceiraPessoaOn ( bActive : bool): void; type PointerToLPVOID=^LPVOID; type PointerTO_thiscall=^_thiscall; mode : integer; fn : DWORD; pCameraManager : DWORD; begin pCameraManager := $AFCFB8; fn := $53F720; mode := IfThen(boolean(bActive),4,bActive); (((int PointerTo_thiscall (( void *, int, float )))fn)^)((PointerToLPVOID (pCameraManager))^,mode,0.0); end; OBS: voce pode tentar no forum de C++ e ver se alguém consegue te ajudar nisso abraço

use um programa conversor de c++ para delphi http://www.sharewareconnection.com/redirect.php?windowopen=new&url=http://www.cadkas.de/c2delphi!.exe http://rvelthuis.de/programs/convertpack.html http://rvelthuis.de/zips/convertpack.zip http://rvelthuis.de/downloads.html abraço

ok... mas o erro Não foi possível carregar dbxfb.dll (ErrorCode 126). se refere a falta dessa dll link para o download http://www.techmundi.com/bin/countdown.php?dbxfb_v160435845540_win32.zip ou http://www.techmundi.com/bin/countdown.php?dbxfb_v150389034076_win32-64.zip OBS: são versões diferentes ... então veja qual funciona para o seu programa abraço

TDBXError exceção no módulo ARSVendas.exe em 002E2EE6. Não foi possível carregar dbxfb.dll (ErrorCode 126). Pode estar faltando no caminho do sistema. Você precisa copiar a dbxfb.dll e o fbclient.dll para a máquina do usuário ( c:\windows\system32 ou c:\windows\syswow64) , ou para o diretório executável, ou no caminho do sistema. outra coisa que voce deve levar em conta Trabalho: Windows 7 64bits, Delphi XE6, Firebird-2.5.0.26074_1_Win32.exe Casa: Windows 7 32bits, Delphi XE6, Firebird-2.5.0.26074_1_Win32.exe para usar com o windows 7 64 bits a versão do firebird é outra http://www.filehorse.com/download-firebird-64/ ou http://www.firebirdsql.org/en/firebird-2-5-1/ veja tambem esses links http://www.subrotina.com.br/distribuindo-uma-aplicacao-com-firebird/ http://hardsrc.blogspot.com.br/2012/05/resolvido-dbx-error-driver-could-not-be.html abraço

webbrowser1.navigate('https://my.witopia.net/index.php?a=checkout.order'); if not Continuar then Break; delay(2000); while (WebBrowser1.Busy) or (WebBrowser1.ReadyState <> READYSTATE_COMPLETE) do begin Application.ProcessMessages; Sleep(100); end; WebBrowser1.OleObject.Document.All.Item('first_name', 0).value := Nome(); WebBrowser1.OleObject.Document.all.Item('first_name', 0).focus; WebBrowser1.OleObject.Document.All.Item('last_name', 0).value := 'Silva'; WebBrowser1.OleObject.Document.All.Item('billing_address', 0).value := 'Rua Oliveira Maciel'; WebBrowser1.OleObject.Document.All.Item('billing_city', 0).value := 'Rio Branco'; WebBrowser1.OleObject.Document.All.Item('billing_country', 0).value := '32'; é só voce colocar essa linha de código, que todos os campos ficarão ativos abraço

No Visual Basic é possivel, no Visual Studio não tenho conhecimento, mas a lógica seria voce executar o launcher-app.exe e o server-app.exe via programa o seu programa ficaria verificando se o processo estava rodando ( ou seja se o launcher-app estava rodando ) e se o launcher-app não estivesse mais sendo executado então o programa mataria o outro processo ( server-app ) foreach (Process p in System.Diagnostics.Process.GetProcessesByName("yourprocess name")) { try { p.Kill(); p.WaitForExit(); // possibly with a timeout } catch (Win32Exception winException) { // process was terminating or can't be terminated - deal with it } catch (InvalidOperationException invalidException) { // process has already exited - might be able to let this one go } } voce pode pesquisar nesse link https://www.google.com.br/?gfe_rd=cr&ei=SPQiVNq4NYiIqQXU84DYAQ&gws_rd=ssl#q=close+process+visual+studio&start=10 Se estiver interessado no VB veja http://support.microsoft.com/kb/305602/pt-br http://www.dreamincode.net/forums/topic/122521-checking-if-a-process-is-running/ http://www.dreamincode.net/forums/topic/270475-possible-to-close-another-exe-without-processkill/ https://www.google.com.br/?gfe_rd=cr&ei=FOIiVLXTDJXFqAXZuIC4Ag&gws_rd=ssl#q=Close+One+Process+From+Another+Process+vb abraço

uso o delphi 7 Enterprise .... e não tive esse problema que voce relatou

aqui está normal ... os campos não ficam em branco e não preciso clicar manualmente nos campos

a pagina do checkout https://my.witopia.net/index.php?a=checkout.order dados a serem preenchidos na pagina <input id="first_name" class="text" type="text" placeholder="First Name" value="" name="first_name"></input> input id="last_name" class="text" type="text" placeholder="Last Name" value="" name="last_name"></input> input id="company" class="text" type="text" placeholder="Company Name (optional)" value="" name="company"></input> <input id="billing_address" class="text" type="text" placeholder="Address" value="" name="billing_address"></input> <input id="billing_address2" class="text" type="text" placeholder="Apt, Suite, Bldg. (optional)" value="" name="billing_address2"></input> <input id="billing_city" class="text" type="text" placeholder="City" value="" name="billing_city"></input> <input id="billing_zip" class="text" type="text" placeholder="ZIP Code" value="" name="billing_zip"></input> <input id="phone" class="text" type="text" placeholder="Phone Number" value="" name="phone"></input> voce já tentou preencher via webbrowser ? o que acontece ? ================================================================= fiz um teste, esta preenchendo corretamente procedure TForm1.Button2Click(Sender: TObject); begin WebBrowser1.OleObject.Document.all.Item('first_name', 0).value := 'Pedro'; WebBrowser1.OleObject.Document.all.Item('last_name', 0).value := 'Souza'; WebBrowser1.OleObject.Document.all.Item('company', 0).value := 'Pedro'; WebBrowser1.OleObject.Document.all.Item('billing_address', 0).value := 'Rua das Palmeiras n. 321'; WebBrowser1.OleObject.Document.all.Item('billing_address2', 0).value := 'Rua dos Andrades n. 123'; WebBrowser1.OleObject.Document.all.Item('billing_city', 0).value := '~Santo Amaro - SP'; WebBrowser1.OleObject.Document.all.Item('billing_zip', 0).value := '23090-30'; WebBrowser1.OleObject.Document.all.Item('phone', 0).value := '3123-2345'; end; abraço

para funcionar corretamente o código deve ser modificado assim usei 3 botões para voce perceber como deve ser feito, mas pode ser colocado no evento OnDocumentComplete do Webbrowser unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, SHDocVw, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; WebBrowser1: TWebBrowser; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} uses MSHtml, ActiveX; procedure TForm1.Button1Click(Sender: TObject); begin WebBrowser1.Silent := true; WebBrowser1.Navigate('https://my.witopia.net/login'); end; procedure TForm1.Button2Click(Sender: TObject); begin WebBrowser1.OleObject.Document.all.Item('name', 0).value := 'teste@bol.com.br'; WebBrowser1.OleObject.Document.all.Item('password', 0).value := 'teste'; end; function GetFormByNumber(document: IHTMLDocument2; formNumber: integer): IHTMLFormElement; var forms: IHTMLElementCollection; begin forms := document.Forms as IHTMLElementCollection; if formNumber < forms.Length then result := forms.Item(formNumber,'') as IHTMLFormElement else result := nil; end; procedure TForm1.Button3Click(Sender: TObject); var theForm: IHTMLFormElement; document: IHTMLDocument2; i: integer; begin // submit form ( WebBrowser1.Document as IHTMLDocument2).ParentWindow.Focus; document := WebBrowser1.Document as IHTMLDocument2; theForm := GetFormByNumber(document, 0); TheForm.submit; end; end. =============================================================== OBS: Como eu não tenho um email valido vai ocorrer o erro de : Incorrect email or password abraço

fiz um teste para preencher nessa pagina... isto está ok ( esta preenchendo os campos Email e Password procedure TForm1.Button2Click(Sender: TObject); begin WebBrowser1.OleObject.Document.all.Item('name', 0).value := 'teste@bol.com.br'; WebBrowser1.OleObject.Document.all.Item('password', 0).value := 'teste'; end; no entanto para clicar no botão < LOGIN > WebBrowser1.OleObject.Document.all.Item('ok', 0).click; não funciona ... alias nem clicando direto no botão pelo webbrowser não executa nada é isso que acontece no seu teste ?

exemplo http://timmurphy.org/2014/04/26/using-fork-in-cc-a-minimum-working-example/ abraço

veja esses links http://publib.boulder.ibm.com/infocenter/zvm/v6r1/index.jsp?topic=/com.ibm.zvm.v610.edclv/fseek.htm http://beej.us/guide/bgc/output/html/multipage/fseek.html abraço

modifique esse código para o seu uso //Recebe um número informado pelo usuário e diz se ele é primo ou não. #include <stdio.h> main() { int num, i, cont; printf("============Primo============\n\n"); printf("Digite um numero.:"); scanf("%d", &num); i = 2; cont = 0; while (i < num) { if (num % i == 0) { cont++; } i++; } if (cont > 0) { printf("\nO numero digitado não e primo."); } else { printf("\nO numero digitado e primo."); } printf("\n\n"); } abraço

veja esse link http://comunidade.itlab.com.br/eve/forums/a/tpc/f/273606921/m/7307010143 abraço

veja esse material https://www.google.com.br/?gfe_rd=cr&ei=XdUhVPfWOJDAqAX_o4GYBQ&gws_rd=ssl#q=sftp+batch+file+example abraço

veja esse material https://www.google.com.br/?gfe_rd=cr&ei=XdUhVPfWOJDAqAX_o4GYBQ&gws_rd=ssl#q=linguagem+abap+tutorial abraço