atnsoft Posted October 17, 2017 Report Share Posted October 17, 2017 Bom dia a todos. Não consigo salvar a imagem qdo vem da area de transfêrencia. Código abaixo Define Dialog oDlg From 3,3 To 36, 130 Title "Carregar Imagem" oDlg:lHelpIcon := .F. @ 0.1,08 Say "Imagem" Size 20,09 Of oDlg @ 0.9, 0.5 Button "&Procurar" Of oDlg Size 45,11 Action(CarregaDoc(@Vimagem, oImagem)) @ 2.9, 0.5 Button "Ajustar Tamanho" Of oDlg Size 45,11 Action(oImagem:lStretch := .T., oImagem:Refresh()) @ 3.9, 0.5 Button "Tamanho Normal" Of oDlg Size 45,11 Action(oImagem:lStretch := .F., oImagem:Refresh()) @ 4.9, 0.5 Button "Zoom &+" Of oDlg Size 45,11 Action(FzoomImagem(oImagem, "+"), oImagem:Refresh()) @ 5.9, 0.5 Button "Zoom &-" Of oDlg Size 45,11 Action(FzoomImagem(oImagem, "-"), oImagem:Refresh()) @ 6.9, 0.5 Button "Colar (Ctrl+V)" Of oDlg Size 45,11 Action(oImagem:LoadFromClipboard(), oImagem:Refresh()) @ 7.9, 0.5 Button "Copiar (Ctrl+C)" Of oDlg Size 45,11 Action(oImagem:CopyToClipboard(), oImagem:Refresh()) @ 01, 06.5 Image oImagem Size 440,210 Of oDlg oImagem:lScroll := .T. @ 12.9,64.8 Button " &Salvar " of oDlg Size 50,12 Action(lGrava := .T., oDlg:End()) @ 12.9,73.8 Button " &Finalizar " of oDlg Size 50,12 Action(lGrava := .F., oDlg:End()) Activate Dialog oDlg Centered Qdo uso a procura que faz o loadbmp, salva normalmente, mas qdo copio e colo usando o loadfromclipboard nao salva. a variavel Vimagem fica em branco. Tem como fazer um Vimagem := oImagem:loadfromclipboard() ou salva e buscar com um memoread ? Quote Link to comment Share on other sites More sharing options...
joaosolution Posted October 17, 2017 Report Share Posted October 17, 2017 Bom dia Fiz o teste na pasta \FWH1206\samples\testimg.prg e funcionou o copy do clipboard e o save sem problemas. Uso a versão FiveWIn 12.06 BCC 5.8.2 e xHarbour 1.2.1 Att João Bosco Quote Link to comment Share on other sites More sharing options...
atnsoft Posted October 17, 2017 Author Report Share Posted October 17, 2017 Acho que é problema com a versão. A minha ainda é a 7.05. Quote Link to comment Share on other sites More sharing options...
atnsoft Posted October 17, 2017 Author Report Share Posted October 17, 2017 O lado ruim é que, com o ctrl+c / ctrl+v ficou 10. Mas nao salva. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 17, 2017 Report Share Posted October 17, 2017 Funcionou perfeito com FWHX17.01 #include "FiveWin.ch" #include "Image.ch" //----------------------------------------------------------------------------// function Main() LOCAL oDlg, oImage, lSetAlpha := .t. // setalpha( .f. ) DEFINE DIALOG oDlg FROM 0, 0 TO 22, 60 ; TITLE FWDESCRIPTION + " JPG,JIF,GIF,BMP,DIB,RLE,TGA,PCX support!" @ 0, 0 IMAGE oImage SIZE 150, 150 OF oDlg SCROLL // ADJUST oImage:Progress( .f. ) @ 1, 28 BUTTON "Selecione Image" SIZE 50,10 OF oDlg ACTION GetImage( oImage ) @ 2, 28 BUTTON "Imprimir" SIZE 50,10 OF oDlg ACTION PrintImage( oImage ) // copiar para o Paint @ 3, 28 BUTTON "Copiar" SIZE 50, 10 OF oDlg ; ACTION oImage:CopyToClipboard() // colar no paint @ 4, 28 BUTTON "Colar" SIZE 50, 10 OF oDlg ; ACTION ( oImage:LoadFromClipboard(), oImage:Refresh() ) @ 5, 28 BUTTON "Salvar" SIZE 50, 10 OF oDlg ; ACTION ( oImage:SaveImage( "SAVED.JPG", 2, 25 ), MsgInfo( "saved as saved.jpg" ) ) @ 6, 28 BUTTON "Sair" SIZE 50, 10 OF oDlg ACTION oDlg:End() @ 10, 26 CHECKBOX oImage:lStretch PROMPT "Esticar" SIZE 50, 10 OF oDlg ; ON CHANGE ( oImage:ScrollAdjust(), oImage:Refresh() ) @ 11, 26 CHECKBOX lSetAlpha PROMPT "Ligar Canal Alpha" SIZE 80, 10 OF oDlg ; ON CHANGE ( SetAlpha( lSetAlpha ), oImage:Refresh() ) ACTIVATE DIALOG oDlg CENTER return nil //----------------------------------------------------------------------------// function GetImage( oImage ) local gcFile := cGetFile( "Bitmap (*.bmp)| *.bmp|" + ; "DIB (*.dib)| *.dib|" + ; "PCX (*.pcx)| *.pcx|" + ; "JPEG (*.jpg)| *.jpg|" + ; "GIF (*.gif)| *.gif|" + ; "TARGA (*.tga)| *.tga|" + ; "RLE (*.rle)| *.rle|" + ; "All Files (*.*)| *.*" ; ,"Please select a image file", 4 ) if ! Empty( gcFile ) .and. File( gcFile ) oImage:LoadBmp( gcFile ) endif return nil //----------------------------------------------------------------------------// function PrintImage( oImage ) local oPrn PRINT oPrn NAME "Imprimindo Imagem" PREVIEW PAGE oPrn:SayImage( 0, 0, oImage ) ENDPAGE ENDPRINT return nil //----------------------------------------------------------------------------// procedure AppSys // XBase++ requirement return //----------------------------------------------------------------------------// Quote Link to comment Share on other sites More sharing options...
atnsoft Posted October 17, 2017 Author Report Share Posted October 17, 2017 A persistência trouxe resoltados. Resolvido e pra quem precisar ta aqui a solução. Grato a todos. Define Dialog oDlg From 3,3 To 36, 130 Title "Carregar Imagem. Paciente: ("+Trim(Left(Pnome, 50))+")" oDlg:lHelpIcon := .F. @ 0.2,09 Say "Imagem" Size 20,09 Of oDlg @ 01, 06.5 Image oImagem Size 440,210 Of oDlg SCROLL oImagem:lScroll := .T. oImagem:Progress( .F. ) @ 0.9, 0.5 Button "&Procurar" Of oDlg Size 45,11 Action(CarregaDoc(@Vimagem, oImagem)) @ 1.9, 0.5 Button "Ajustar Tamanho" Of oDlg Size 45,11 Action(oImagem:lStretch := .T., oImagem:Refresh()) @ 2.9, 0.5 Button "Tamanho Normal" Of oDlg Size 45,11 Action(oImagem:lStretch := .F., oImagem:Refresh()) @ 3.9, 0.5 Button "Zoom &+" Of oDlg Size 45,11 Action(FzoomImagem(oImagem, "+"), oImagem:Refresh()) @ 4.9, 0.5 Button "Zoom &-" Of oDlg Size 45,11 Action(FzoomImagem(oImagem, "-"), oImagem:Refresh()) @ 6.9, 0.5 Button "Colar (Ctrl+V)" Of oDlg Size 45,11 Action(oImagem:LoadFromClipboard(), oImagem:Refresh()) @ 7.9, 0.5 Button "Copiar (Ctrl+C)" Of oDlg Size 45,11 Action(oImagem:CopyToClipboard(), oImagem:Refresh()) @ 12.9,64.8 Button " &Salvar " of oDlg Size 50,12 Action(oImagem:SaveImage( cDirRes+"Temp_imagem.Jpg", 2, 25 ), lGrava := .T., oDlg:End()) @ 12.9,73.8 Button " &Finalizar " of oDlg Size 50,12 Action(lGrava := .F., oDlg:End()) Activate Dialog oDlg Centered if(!lGrava) Return NIL endif Vimagem := MemoRead(cDirRes+"Temp_imagem.Jpg") Neste ponto a Var Vimagem ta pronta pra salvar. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.