Jhonas

algumas opções http://ryan.com.br/blogs/seven/2010/01/como-desativar-uac-para-um-programa-especfico/ http://windows.microsoft.com/pt-br/windows/turn-user-account-control-on-off#1TC=windows-7 http://pt.kioskea.net/faq/3342-windows-7-desativar-o-controle-de-conta-usuario-uac abraço

Para mudar a forma como o delphi compila os projetos va em Menu > Project > Options.... veja as abas Forms e Compiler entretanto se voce tinha projetos que rodavam no windows XP com BDE e quer que eles rodem no windows 7 ou 8 basta trocar o seu BDE para 64 bits abraço

esse tópico já é bem antigo ... seja mais explicita quanto a sua duvida abraço

voce pode definir como um projeto é compilado em Menu > Project > Options... veja as abas Forms e Compiler abraço

ok... esqueci-me de um pequeno detalhe ( o Pchar ) veja e teste esse exemplo aqui estou simulando a entrada de dados do registro da tabela procedure TForm1.Button1Click(Sender: TObject); var ClientDataSet_estoqueCOD_PRODUTO_AsString, ClientDataSet_estoqueDESCRICAO_AsString: string; begin ClientDataSet_estoqueCOD_PRODUTO_AsString := '00001'; ClientDataSet_estoqueDESCRICAO_AsString := 'REGULADOR DE VOLTAGEM'; if Application.messageBox(Pchar('Deseja Excluir esse Registro?'+#13+#13+ 'Código nº : '+ClientDataSet_estoqueCOD_PRODUTO_AsString + #13+#13+ 'Descrição: '+ ClientDataSet_estoqueDESCRICAO_AsString) ,'Confirmação',mb_YesNo+mb_IconInformation) = id_Yes then showmessage('PRODUTO EXCLUIDO!'); end; agora no seu caso procedure TForm1.Button1Click(Sender: TObject); begin if Application.messageBox(Pchar('Deseja Excluir esse Registro?'+#13+#13+ 'Código nº : '+ClientDataSet_estoqueCOD_PRODUTO.AsString + #13+#13+ 'Descrição: '+ ClientDataSet_estoqueDESCRICAO.AsString) ,'Confirmação',mb_YesNo+mb_IconInformation) = id_Yes then begin ClientDataSet_estoque.Delete; ClientDataSet_estoque.ApplyUpdates(0); showmessage('PRODUTO EXCLUIDO!'); end; end; abraço

como eu disse o indice da coluna começa no zero .... fiz um teste aqui com as mudanças no código, e esta imprimindo corretamente for F := 0 to sGrid.ColCount do for TmpI := 0 to (F - 1) do for TmpI := 0 to F do for TmpI := 0 to sGrid.RowCount do OBS: nas propriedades FixedCols e FixedRows = 0 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 Printers; procedure PrintGrid(sGrid: TStringGrid; sTitle: string); var X1, X2: Integer; Y1, Y2: Integer; TmpI: Integer; F: Integer; TR: TRect; begin Printer.Title := sTitle; Printer.BeginDoc; Printer.Canvas.Pen.Color := 0; Printer.Canvas.Font.Name := 'Times New Roman'; Printer.Canvas.Font.Size := 12; Printer.Canvas.Font.Style := [fsBold, fsUnderline]; Printer.Canvas.TextOut(0, 100, Printer.Title); for F := 0 to sGrid.ColCount do begin X1 := 0; for TmpI := 0 to (F - 1) do X1 := X1 + 5 * (sGrid.ColWidths[TmpI]); Y1 := 300; X2 := 0; for TmpI := 0 to F do X2 := X2 + 5 * (sGrid.ColWidths[TmpI]); Y2 := 450; TR := Rect(X1, Y1, X2 - 30, Y2); Printer.Canvas.Font.Style := [fsBold]; Printer.Canvas.Font.Size := 7; Printer.Canvas.TextRect(TR, X1 + 50, 350, sGrid.Cells[F, 0]); Printer.Canvas.Font.Style := []; for TmpI := 0 to sGrid.RowCount do begin Y1 := 150 * TmpI + 300; Y2 := 150 * (TmpI + 1) + 300; TR := Rect(X1, Y1, X2 - 30, Y2); Printer.Canvas.TextRect(TR, X1 + 50, Y1 + 50, sGrid.Cells[F, TmpI]); end; end; Printer.EndDoc; end; procedure TForm1.Button1Click(Sender: TObject); begin PrintGrid(StringGrid1, 'Print Stringgrid'); end; end. outra solução: http://www.edudelphipage.com.br/down/componen/prtstrgr.zip abraço

As colunas do StringGrid começam com indice zero ( 0 ) for F := 0 to sGrid.ColCount do abraço

veja o que voce esqueceu no código if Application.MessageBox('Deseja realmente excluir este Produto ?','Confirme', MB_ICONQUESTION+MB_YESNO) = ID_YES then if Application.MessageBox('Deseja Apagar o Registro ?' +#13 +#13 + 'Código nº : '+ ClientDataSet_estoqueCOD_PRODUTO.AsString + #13 +#13 + 'Descrição: '+ClientDataSet_estoqueDESCRICAO.AsString, 'Confirme', MB_ICONQUESTION+MB_YESNO) = ID_YES then abraço

procure seguir a sintaxe do comando corretamente ... veja no manual http://php.net/manual/pt_BR/function.fopen.php $fp=fopen($anexo["tmp_name"],"rb"); $arquivo=fread($fp, filesize($anexo["tmp_name"])); $arquivo=base64_encode($arquivo); fclose($fp); Aviso: fopen () [function.fopen]: Nome do arquivo não pode ser vazio em /home/a7695763/public_html/acao/s_envio_receitas.php na linha 15 Aviso: fread (): o argumento fornecido não é um recurso válido do stream resource em /home/a7695763/public_html/acao/s_envio_receitas.php na linha 16 Aviso: fclose (): o argumento fornecido não é um recurso válido do stream resource em /home/a7695763/public_html/acao/s_envio_receitas.php na linha 18 abraço

Application.MessageBox e MessageDlg são a mesma coisa if MessageDlg('Deseja Apagar o Registro ?' + #13 + #13 + 'COD N° : ' + ClientDataSet_estoqueCOD.AsString + #13 + #13 + 'PRODUTO : ' + ClientDataSet_estoquePRODUTO.AsString , mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin ClientDataSet_estoque.Delete; ClientDataSet_estoque.ApplyUpdates(0); end; abraço

exemplos de demonstração baixe o Imaging Toolkit for Delphi e o OCR Toolkit for Delphi para a versão do seu delphi http://www.mcm-design.com/index.php?section=download&product=ImagingDelphi abraço

voce realmente procurou ? 1º passo – Acessar a página onde tem o captcha, verificar os campos ocultos, geralmente tem um que representa o id da sessão, que é o campo utilizado na geração de um novo captcha. Com a sua linguagem de programação preferida, leia a página e armazene em uma variável o valor do campo id sessão; 2º passo – De posse do id da sessão, você deve recuperar o CAPTCHA. Como? Acesse novamente a página passando o id da sessão na queryString, armazene a imagem do Captcha…Agora vem o ‘pulo do gato’….Para decifrar o captcha você deve usar uma API de scanner, a mesma que o scanner utiliza quando você coloca uma folha para escanear e como resultado final quer o texto da folha. Você vai usar a API para recuperar o texto da imagem do CAPTCHA. Recupere o texto e armazene! 3º passo – Quase lá…Então, agora você tem o id da sessão e o texto do CAPTCHA, tudo livre para você executar a action do formulário quantas vezes quiser…Bastando informar na queryString do form, o idsessao e o captcha. API OCR em Delphi: http://asprise.com/royalty-free-library/c-c++-delphi-ocr-api-overview.html abraço

veja https://www.google.com.br/search?q=form+de+pesquisa+delphi&biw=1024&bih=642&source=lnms&sa=X&ei=Q8zsVLGoMce0ggSg-YCoDg&ved=0CAUQ_AUoAA&dpr=1#q=ler+captcha+delphi abraço

ok... vou te dar uma idéia de como fazer os componentes de conexão com o banco de dados ( IBQuery, DataSetProvider, ClientDataSet, DataSource ) supondo que voce já sabe como utilizar esses componentes, vamos ao objetivo use um form para realizar a pesquisa na tabela que voce quer pode ser uma pesquisa mais eleborada veja esse exemplo http://www.devmedia.com.br/criando-uma-tela-de-consulta-generica-no-delphi/25525 ou mais simples http://www.devmedia.com.br/criando-tela-de-pesquisa-padrão-delphi-e-datasource-parte-1/18800 agora vamos supor que voce no seu form de pesquisa usou esses 4 componentes IBQuery, DataSetProvider, ClientDataSet, DataSource ao fazer a seleção do registro, voce vai transportar algum campo dessa tabela como parametro para a select que vai estar no componente IBQuery do outro form... ou seja voce vai ter no outro form os mesmos componentes que estavam no form de pesquisa .... só que agora, no outro form principal, vai aparecer todos os campos do registro que voce selecionou no form de pesquisa a imagem abaixo exemplifica isso caso ainda tenha dúvidas, tem muitos exemplos na net https://www.google.com.br/search?q=forum+delphi&biw=1024&bih=642&source=lnms&também=isch&sa=X&ei=LsfsVO3PH8SpgwTv6IDoCw&sqi=2&ved=0CAcQ_AUoAg#também=isch&q=form+de+pesquisa+delphi&imgdii=vch4j73cAh17hM%3A%3BW2Mc2rQ5vhdMlM%3Bvch4j73cAh17hM%3A abraço

amigo, respostas rapidas será dificil tenha paciencia e espere que algum colega do forum possa ajuda-lo abraço

Acho que é muito simples jogar o execicio no forum para alguém fazer por voce exercicios em sala de aula é para voce praticar o que aprendeu tente fazer, e se tiver dúvida, coloque pelo menos, até onde voce conseguiu OBS: tem muitos tópicos no forum que podem te ajudar a resolver o problema...faça uma pesquisa abraço

ok... fiz um teste aqui com o endereço do website .... tem que ser assim unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, SHDocVw; type TForm1 = class(TForm) WebBrowser1: TWebBrowser; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin // Entrar na pagina WebBrowser1.Silent := true; WebBrowser1.Navigate('https://securessl.cato.org/support/donate'); end; procedure TForm1.Button2Click(Sender: TObject); var Elements: OleVariant; i: Integer; begin // Evitar erros de Scripts WebBrowser1.Silent := true; 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 = 'Donate') then Elements.item(i).Click; end; end; end. abraço

então tente isso Elements := WebBrowser1.OleObject.Document.forms.item(0).elements; for i := 0 to (Elements.Length - 1) do if (Elements.item(i).tagName = 'btn-dark') then Elements.item(i).Click; abraço

o exemplo que passei é usando o MYSQL ( TZQuery, TDataSetProvider, TClientDataSet, TDataSource ) o CDS_Arq se refere ao ClientDataSet do form 1, mas e o Arq_IB ? Form1.Arq_IB.Active := false; // TZQuery que está com esse nome .. poderia ser qualquer outro nome Teria como usar um exemplo com os componentes que estou utilizando com Firebird ? o que muda é apenas o componente de conexão com o banco ... a lógica é a mesma OBS: na minha opnião voce deveria usar um form para pesquisa e transportar a seleção desse form para o outro form com outros componentes de banco de dados usar uma select é mais rapído do que usar um filter e vai fazer a mesma coisa que esta querendo abraço

ok... mas não é só isso digamos que tenho um ClientDataSet que esta no Form1 e quero usá-lo no Form2 teria que fazer assim no Fom2 uses Unit1; // ( Form1 ) Form1.Arq_IB.Active := false; Form1.CDS_Arq.Active := false; Form1.Arq_IB.SQL.Clear; Form1.Arq_IB.SQL.Append('SELECT * FROM ESTOQUE'); Form1.CDS_Arq.Active := true; observe que estou usando os componentes do outro form se no Form2 eu quiser mostrar um DBGrid com o CDS do Form1, tenho que direcionar o DataSource do DBgrid para o ClientDataSet do form1 DataSource = Form1.CDS_Arq abraço

Tente isso: // Procurar pelo botão e clicar nele Elements := WebBrowser1.OleObject.Document.forms.item(0).elements; for i := 0 to (Elements.Length - 1) do if (Elements.item(i).tagName = 'submit-row') then Elements.item(i).Click; abraço

Aproveitando, para que serve esta linha: with Sender as tStringGrid do é para indicar que o comando só será executado se o foco estiver exclusivamente no StringGrid abraço

estou com medo de me esforçar e não aprender. voce só vai saber o gosto de um alimento se voce provar ( ai vai saber se gosta ou não daquilo ) OBS: ninguém consegue guardar tudo na mente .. muitos programadores recorrem vez ou outra a algum manual, tutorial, ou help programação para web é diferente da programação para PCs, muito embora estejamos vendo a junção dos dois quer seja um ou outro, voce vai precisar estudar e praticar muito e com o tempo vem a perfeição abraço

não consigo trabalhar com nenhum componente do banco de dados que esta em outro form, no caso no form estoque. voce tem que fazer referencia ao form onde esta os componentes ( colocando a Unit de um Form em outro Form ) veja esse exemplo: https://www.scriptbrasil.com.br/forum/topic/177238-delphiajuda-como-acessar-uma-procedure-localizada-em-um-form-criado-dinamicamente/?p=674306 abraço

exemplo http://www.cpscetec.com.br/adistancia/backupdelphi/aula02.html abraço