Jhonas

o programa fortran não precisa estar identado para rodar .. depende da versão utilizada https://www.google.com.br/webhp?tab=ww&ei=T_XZVI_iKO-TsQSc7IK4BA&ved=0CAYQ1S4#q=compiladores+fortran+para+windows abraço

não entendo muito php, mas tente isso e veja o resultado $nome = $_POST['cod_name']; $codigo = $_POST['cod_cod1']; $cash = $_POST['cod_cash']; $status = $_POST['cod_status']; $cash = 0; OBS: Se voce ainda não obteve resposta de outros membros, é porque não sabem ou não querem responder ... ok ? abraço

isso tem haver com a configuração que o programa possa ter alterado no micro... como não tenho esse programa da CEF instalado, não posso te ajudar mais do que isso. abraço

amigo, isso é uma coisa simples que voce deveria saber fazer veja: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, SHDocVw; type TForm1 = class(TForm) Button1: TButton; WebBrowser1: TWebBrowser; Button2: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} uses MSHTML; procedure TForm1.Button1Click(Sender: TObject); begin WebBrowser1.Silent; WebBrowser1.Navigate('http://www.google.com'); end; procedure TForm1.Button2Click(Sender: TObject); var i : integer; htmlDoc: IHTMLDocument2; allLinks: IHTMLElementCollection; firstLink: IHTMLElement; url, s: String; begin // PEGAR TODOS OS LINKS DE UMA PAGINA NO GOOGLE E JOGAR EM UM MEMO Memo1.Clear; for i := 0 to 100 do begin htmlDoc := WebBrowser1.Document as IHTMLDocument2; allLinks := htmlDoc.Links; firstLink := allLinks.Item(i,'') as IHTMLElement; url := firstLink.toString; //ShowMessage(url); if pos('url=http://www',url) > 0 then begin s := copy(url,(pos('url=http://www',url)+4),length(trim(url))); Memo1.Lines.Append(s); end; end; end; end. abraço

Ok... concorda então, que não era para nem o Print Screen do teclado funcionar ?

basta voce filtrar o conteudo da url

exemplo ( simulando um alerta do MSN ) crie um Form Principal com um Memo e um botão o memo terá um contador incrementado de 1 para simular o total de visitas 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 } Y : integer; end; var Form1: TForm1; x : integer; implementation uses Unit2; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var I: Integer; fAlertaMsn: TForm; BarraIniciar: HWND; {Barra Iniciar} tmAltura: Integer; tmRect: TRect; xTop : Integer; xIniTop : Integer; begin for X := 1 to 5 do begin Memo1.Lines.Append(inttostr(X)); y := x; //localiza o Handle da janela iniciar BarraIniciar := FindWindow('Shell_TrayWnd', nil); //Pega o "retângulo" que envolve a barra e sua altura GetWindowRect(BarraIniciar, tmRect); tmAltura := tmRect.Bottom - tmRect.Top; fAlertaMsn := TForm2.Create(Self); with fAlertaMsn do begin Left := Screen.Width - ClientWidth; if tmRect.Top = -2 then tmAltura := 30; //Pega o top final xTop := Screen.Height - ClientHeight - tmAltura; //Pega o top inicial xIniTop := Screen.Height + ClientHeight + tmAltura; Top := xIniTop; for I := xIniTop downto xTop do begin Top := Top - 1; Show; Update; form2.Refresh; Application.ProcessMessages; Sleep(2); end; Sleep(2000); Close; FreeAndNil(fAlertaMsn); end; end; end; end. crie agora um outro form com as seguintes configurações Propriedade Valor BorderStyle bsToolWindow Caption Alerta do Sistema FormStyle fsStayOnTop Color $0080FFFF ClientHeight = 114 ClientWidth = 393 coloque um componente Label ( Font 12 negrito ) no meio do form unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm2 = class(TForm) Label1: TLabel; procedure FormActivate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation uses Unit1; {$R *.dfm} procedure TForm2.FormActivate(Sender: TObject); begin Label1.Caption := inttostr(Form1.Y)+' Usuário(s) visitando a Pagina '; end; end. OBS: a cada incremento do contador, o valor será colocado dentro do memo ex: ( 1,2,3,4.....) uma mensagem de alerta sera exibida no canto da tela 1 Usuário(s) visitando a Pagina 2 Usuário(s) visitando a Pagina 3 Usuário(s) visitando a Pagina 4 Usuário(s) visitando a Pagina modifique o código para o seu uso abraço

amigo, de acordo com a minha pesquisa voce deve usar a versão 8.5 do Crystal Reports para o WS 2008 R2 http://www.google.com.br/url?sa=t&rct=j&q=&esrc=s&source=web&cd=2&cad=rja&uact=8&ved=0CDMQFjAB&url=http%3A%2F%2Fwww.brocktonspromise.org%2Fcrystal-reports-8.5-service-pack-1-download&ei=dwrVVNuIOYGKgwT-voLACg&usg=AFQjCNFIEozpuH1US2tCgcUWD7-PBemrBQ&bvm=bv.85464276,d.eXY ou veja nesse link outras versões do Crystal Reports http://wiki.scn.sap.com/wiki/display/BOBJ/Crystal+Reports+v.+9.1+to+SAP+Crystal+Reports,+developer+version+for+Microsoft+Visual+Studio+Runtime+Distribution++and+Supported+Operating+Systems abraço

veja as configurações do seu browser abraço

o arquivo CRRuntime_12_2.mesmo esta dentro do arquivo cr2008_fp14_mm.zip vou ver se acho outra solução para o seu caso abraço

exemplo unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, SHDocVw; type TForm1 = class(TForm) Button1: TButton; WebBrowser1: TWebBrowser; Button2: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} uses MSHTML; procedure TForm1.Button1Click(Sender: TObject); begin WebBrowser1.Silent; WebBrowser1.Navigate('http://www.google.com'); end; procedure TForm1.Button2Click(Sender: TObject); var i : integer; htmlDoc: IHTMLDocument2; allLinks: IHTMLElementCollection; firstLink: IHTMLElement; url: String; begin // PEGAR TODOS OS LINKS DE UMA PAGINA NO GOOGLE E JOGAR EM UM MEMO Memo1.Clear; for i := 0 to 100 do begin htmlDoc := WebBrowser1.Document as IHTMLDocument2; allLinks := htmlDoc.Links; firstLink := allLinks.Item(i,'') as IHTMLElement; url := firstLink.toString; //ShowMessage(url); Memo1.Lines.Append(url); end; end; end. aproveite e veja esse link http://www.cryer.co.uk/brian/delphi/twebbrowser/twebbrowser_oleobject.htm#OleObject.Document.Links abraço

acho que o problema esta nesse código if($nome == ''){$msg = 'Por favor insira o nome da conta';}elseif ($status == 'inativo'){$msg = 'Codigo Inativo &nbsp;'; $cont = '&nbsp; Por favor entre em contato com o administrador &nbsp;';}else{ $st = mysql_query("UPDATE t_tp SET status ='inativo' where cod1 ='".$codigo."'") or die(mysql_error()); $query = mysql_query("UPDATE t_account SET gd = gd + '".$cash."' where name='".$nome."' ") or die(mysql_error()); echo "<meta HTTP-EQUIV='refresh' CONTENT='5;URL='http://www.cabalsystem.com>"; $msg = 'Credito resgatado com sucesso'; $conta = '&nbsp;Na Conta&nbsp;'; observe aonde voce finaliza o primeiro e o segundo IF quanto ao uso da função: /// aqui voce cria a função ?php function destroy_foo() { global $foo; unset($foo); } /// aqui voce faz uso da função $foo = 'bar'; destroy_foo(); echo $foo; ?> OBS: Uso delphi, mas a lógica não é muito diferente para as outras linguagens ... veja se algum outro colega do forum te ajuda nessa duvida abraço

os arquivos devem ficar na pasta C:\Program Files\Common Files\Merge com relação a chave ( key ) é a que voce possui o nome da organização não é importante O erro 2709 é "o nome de componentes não encontrado na tabela de componentes", a mensagem deve conter o nome do componente. http://www.itninja.com/question/msi-failed-on-isntall-error-2709 nesse link tem uma indicação de como resolver o problema https://community.flexerasoftware.com/archive/index.php?t-192428.html abraço

voce olhou o help que acompanha o componente ? procedure TForm1.AudioRecording (AdjustSettings: Boolean; StartAudioRecording: Boolean;); begin VideoGrabber.VideoDevice := -1; // do not use the video capture device VideoGrabber.AudioDevice := 0; // e.g. we use the first audio device in the AudioDevices list (1) VideoGrabber.CompressionMode := cm_CompressOnTheFly; VideoGrabber.CompressionType := ct_Audio; VideoGrabber.AudioCompressor := VideoGrabber.FindIndexInListByName (VideoGrabber.AudioCompressors, 'LAME Audio Encoder', false, true); if VideoGrabber.AudioCompressor = -1 then begin // error handling: MP3 audio compressor not found! end else begin if AdjustSettings then begin VideoGrabber.ShowDialog (dlg_AudioCompressor); end; if StartAudioRecording then begin VideoGrabber.StartAudioRecording; end; end; end; OBS: VideoGrabber.StartAudioRecording; // inicia a gravação do audio VideoGrabber.StopAudioRecording; // para a gravação do audio VideoGrabber.PauseRecording; // pausa a gravação ou veja o manual http://www.datastead.com/_releases/vidgrab_help/index.html?page=htmlhelp%2Fsynchronization_sp_of_sp_several_sp_tvideograbber_sp_components.htm abraço

vejamos se entendi voce quer usar o webbrowser para chamar a pesquisa do google depois voce que pegar todos os links da pesquisa e jogar em um memo .... é isso ?

pode ser versão incompativel com o SO Windows Server 2008 R2 se você tiver quaisquer utilitários de disco, tais como Diskeeper ou qualquer antivírus ou firewall, precisa ser desativado antes de instalar . ou tente essa versão https://smpdl.sap-ag.de/~sapidp/012002523100004610922009E/cr2008_fp14_mm.zip abraço

exemplo de uso do comando unset http://php.net/manual/pt_BR/function.unset.php abraço

ok... entendi no php voce pode usar o banco de dados PDO ou MYSQL http://php.net/manual/pt_BR/book.pdo.php http://wiki.locaweb.com/pt-br/Como_conectar_a_um_banco_MySQL_atrav%C3%A9s_de_script_PHP OBS: o que voce quer fazer é relativamente simples, entretanto minha praia é o delphi ( que seria muito facil fazer isso ) em php tera que esperar por algum outro colega do forum para te ajudar abraço

pode ser que algum programa instalado na maquina possa ter alterado alguma configuração... ainda mais se o micro esta usando o windows 7 ou 8 ( voce deve verificar a configuração no micro que funciona e no micro que não funciona ) procure por dll ou bpl do delphi que estejam faltando nas maquinas ou pode tentar outras abordagens http://stackoverflow.com/questions/5805372/load-image-from-embedded-resource http://stackoverflow.com/questions/7190998/after-assigning-nil-to-timage-picture-graphic-to-clear-the-picture-how-can-i-us abraço

veja nesse link https://www.google.com.br/?gfe_rd=cr&ei=c0XSVOD0DZfDqAW0goDwBQ&gws_rd=ssl#q=google+maps+php+mysql abraço

qual a versão do seu delphi ?

teste esse código no micro com problema em um form coloque um botão e um componente TImage unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Image1: TImage; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} uses Jpeg; // capturar uma foto da tela function CaptureScreenRect( ARect: TRect ): TBitmap; var ScreenDC: HDC; begin Result := TBitmap.Create; with Result, ARect do begin Width := Right - Left; Height := Bottom - Top; ScreenDC := GetDC( 0 ); try BitBlt( Canvas.Handle, 0, 0, Width, Height, ScreenDC, Left, Top, SRCCOPY ); finally ReleaseDC( 0, ScreenDC ); end; end; end; procedure TForm1.Button1Click(Sender: TObject); var bmp : TBitmap; jpeg : TJPEGImage; begin // capturar uma foto da tela Image1.picture.Assign(CaptureScreenRect(Rect(0,0,Screen.DesktopWidth,Screen.DesktopHeight))); Image1.picture.SaveToFile('c:\imagem'+'.bmp'); Bmp := TBitmap.Create; Bmp.LoadFromFile('c:\imagem.bmp'); jpeg := TJpegImage.Create; jpeg.Assign(bmp); // qualidade da foto quanto menor o valor, menor o tamanho do jpeg e menor qualidade jpeg.CompressionQuality:=30; // ideal jpeg.SaveToFile('C:\imagem.jpg'); jpeg.Free; Bmp.Free; Image1.Picture.LoadFromFile('C:\imagem.jpg'); end; end. abraço

ok... faça mais um teste antes de recorrer a ultima solução: de um build all no projeto .. e teste ou ainda: crie uma nova aplicação ... use se o programa que te indiquei no post , ou crie um novo form e faça o teste com o componente TImage ( novo ) se funcionar .. o problema esta no componente caso ainda não funcione .. a solução será voce instalar novamente o delphi ( mas limpe os registros antes, usando o CCleaner ou outro ) abraço

tem varios exemplos na net https://www.google.com.br/search?q=exemplo+de+der&sa=X&biw=1024&bih=635&também=isch&tbo=u&source=univ&ei=bTHSVLG4NMmrgwT7oIHYDQ&ved=0CBwQsAQ abraço

outro teste: tecle o Print Screen do teclado e jogue a figura no Paint como ela aparece ?