[Resolvido] abrir imagem no navegar

[Marostegan 0]

olá pessoal.. no meu sistema tem uma aprte que grava o caminho da imagem no BD e ele faz uma cópia para o diretorioo do sistema:

 

porém pra visualizar essaimagem eu queria clicar no botão o"visualizar" e que a mesma fosse aberta no IE... tem como??

 

(meu BD é ACCESS)

 

como fazer?

 

pra gravar o caminho da img no BD e copiar a imagem pro diretorio do sistema eu fiz o seguinte:

 

var Diretorio : String;
	Origem,
	Destino :array[0..512] of Char;
begin
  if OpenPictureDialog1.Execute then
  begin
	 Diretorio := '\\server\C\Arquivos de programas\sis_visualdm\arte_final\'+ ExtractFileName(OpenPictureDialog1.FileName);
	 if FileExists(Diretorio) then
	 begin
		if MessageDlg('O arquivo ' + ExtractFileName(OpenPictureDialog1.FileName) + ' já existe no destino. Deseja sobrescrevê-lo?', mtConfirmation, [mbYes, mbNo], 0) = IDYes then
		begin
		   DeleteFile(Diretorio);
		   StrPCopy(Origem, OpenPictureDialog1.FileName);
		   StrPCopy(Destino, Diretorio);
		   CopyFile(Origem, Destino, True);
		end;
	 end
	 else
	 begin
		StrPCopy(Origem, OpenPictureDialog1.FileName);
		StrPCopy(Destino, Diretorio);
		CopyFile(Origem, Destino, True);
	 end;
	 dm.q_ordem_servico.Edit;
	 dm.q_ordem_servico.Fields.FieldByName('imagem').AsString := Diretorio;  // < === *** supondo nome campo CaminhoImg
	 dm.q_ordem_servico.Post;
	 ShowMessage('Imagem da Arte final cadastrada!');
  end;
end;

 

obrigado... abraços!!!

[Chrnos 30]

Tem sim... basta criar um ole para isso...

 

procedure TForm1.btnAbrirUrlClick(Sender: TObject);
var ie : Variant;
begin
	  IE := CreateOleObject('InternetExplorer.Application');
	  IE.Visible := true;
	  try
		  IE.Navigate(sUrl);
	  except
		 on e: exception do
			showmessage(e.message);
	  end;
end;

Onde o sUrl seria o caminho completo da sua imagem. Vai precisar declarar no uses do seu form a unit ComObj se não me engano.

 

[]'s

[Marostegan 0]

deu quase certo amigo....

tah abrindo o navegador e talz.... se eu digitrar o caminho funfa tb

 

mas eu queria que ele pegasse automaticamente o caminho que esta aparecendo num DBText...

 

algo assim ó:

 

IE.Navigate('DBText1.text');

 

 

mas assim num funfa! xDD rssss...

 

como faz?

 

abraçãoo

[Chrnos 30]

A propriedade text já é um campo string... então não precisa passar entre aspas.

 

IE.Navigate(DBText1.text);

[]'s

[Marostegan 0]

olá amigoo... eu tava me matando...

eu tiha tentado sem aspas mais nao ia...

 

eu que vacilei feio aqui...

 

eu tava colocando IE.Navigate(DBText1.text);

 

quando o DBText1 não é .text e sim .caption.... ai mudei funciono!!

 

vacilo meu aqui!! hehehehehehehe...

 

abração... valews!!!

[Chrnos 30]

Hehehe, se está ok então, como dizia meu antigo chefe, sucesso!! http://forum.imasters.com.br/public/style_emoticons/default/clap.gif