humm.. SalFileRead?? Joao
On Fri, 16 Apr 2004, Bruno Almeida wrote: > Date: Fri, 16 Apr 2004 12:33:17 -0300 > From: Bruno Almeida <[EMAIL PROTECTED]> > Reply-To: [EMAIL PROTECTED] > To: [EMAIL PROTECTED] > Subject: Re: [sqlwin] Campo figura em arquivo txt > > Caro Jo�o, > > Estou conseguindo gravar numa boa conforme voc� indicou. > Agora, para eu ler como eu faria? > > Bruno Almeida. > ----- Original Message ----- > From: "Joao N de Souza Jr" <[EMAIL PROTECTED]> > To: <[EMAIL PROTECTED]> > Sent: Wednesday, April 14, 2004 12:51 PM > Subject: Re: [sqlwin] Campo figura em arquivo txt > > > tente usar SalFileWrite ao inves de SalFilePutStr > > Joao > > On Wed, 14 Apr 2004, Bruno Almeida wrote: > > > Date: Wed, 14 Apr 2004 12:19:36 -0300 > > From: Bruno Almeida <[EMAIL PROTECTED]> > > Reply-To: [EMAIL PROTECTED] > > To: [EMAIL PROTECTED] > > Subject: [sqlwin] Campo figura em arquivo txt > > > > Companheiros, > > > > Est� � minha primeira mensagem na lista, por isso, antes gostaria de > parabeniz�-los por ela pois tem me ajudado muito no meu aprendizado, visto > que come�ei a trabalhar com centura tem 2 meses. > > Bom minha d�vida � a seguinte: > > Em uma tabela tenho um campo que � do tipo image, eu consegi gravar e dar > select nele tranquilamente. O problema � que eu preciso exportar os dados > dessa tabela para um arquivo ".txt" > > e quando eu vou selecionar o campo imagem a vari�vel,long string, que o > recebe fica com "Centura:JPEG" at� ai tudo bem pois eu consigo jogar isso > num picture e ele mostra a imagem. Minha d�vida �, como eu faria para n�o > gravar essa string no arquivo texto e sim a string que representa a imagem? > > Vou dar um exemplo: > > cdfilme nmfilme > cartaz > > -------- ------------------------------------------------------------ ---- > ---------------------------------------------------------------------------- > ---------------------------------------------------------------------------- > ---------------------------------------------------------------------------- > ------------------------- > > 00002866 1PR- O GATO (DUB) > 0x43656E747572613A4A50454700241100000C000000FFD8FFE000104A464946000102000064 > 00640000FFEC00114475636B79000100040000001E0000FFEE000E41646F62650064C0000000 > 01FFDB008400100B0B0B0C0B100C0C10170F0D0F171B141010141B1F17171717171F1E171A1A > 1A1A171E1E23252725231E2F2F33 > > > > Gostaria de gravar a string 0X43.... no arquivo texto > > Abaixo o c�digo que estou usando para fazer isso: > > > > !!CB!! 70 > > Set sFvaSELECT = "SELECT CDFILME, CARTAZ FROM FILME INTO :sFvaCDFILME, > :lFvaCARTAZ" > > Call SqlPrepareAndExecute(qFvaSEL, sFvaSELECT ) > > If NOT SalFilePutStr( qWvaARQTXT, '# ' || fPadBranco( 'CARTAZ', 20 ) || > ' - ' || > > fPadBranco( SalNumberToStrX( nFvaQTDREG, 0 ), 9 ) ) > > Call SalWaitCursor( FALSE ) > > ! Call SalMessageBox( 'ERRO NA INCLUS�O DE REGISTRO NO TXT', 'ERRO', > MB_IconStop | MB_Ok ) > > Call SalModalDialog( dlgMENSAGEM, hWndForm, BIL_GER_MSG_ERROINCARQTXT, > 1,'') > > Return FALSE > > Set nFvaVALREG = 0 > > While SqlFetchNext(qFvaSEL,nErr) > > Set lFvaLINHATXT = '' > > Set sCAMPO = "#INI " || sFvaCDFILME > > Set lFvaLINHATXT = lFvaLINHATXT || sCAMPO > > Call SalFilePutStr( qWvaARQTXT, lFvaLINHATXT ) > > Set lFvaLINHATXT = '' > > If lFvaCARTAZ = STRING_Null > > Set lFvaCAMPOLONGO = "NULL" > > Else > > ! Set lFvaCAMPOLONGO = lFvaCARTAZ > > Call SalPicSetString( picBLANK_CARTAZ, PIC_FormatObject, lFvaCARTAZ ) > > Call SalPicGetString( picBLANK_CARTAZ, PIC_FormatObject, > lFvaCAMPOLONGO ) > > ! Call SalPicGetImage(picBLANK_CARTAZ, > lFvaCAMPOLONGO,PIC_ImageTypeOBJECT ) > > ! Set lFvaLINHATXT = lFvaLINHATXT || sCAMPO > > Set lFvaLINHATXT = lFvaLINHATXT || lFvaCAMPOLONGO > > Call SalFilePutStr( qWvaARQTXT, lFvaLINHATXT ) > > Set lFvaLINHATXT = '' > > Set sCAMPO = "#FIM " || sFvaCDFILME > > Set lFvaLINHATXT = lFvaLINHATXT || sCAMPO > > Call SalFilePutStr( qWvaARQTXT, lFvaLINHATXT ) > > Set dfINS = dfINS + 1 > > Set dfTABINS = dfTABINS + 1 > > > > A vari�vel lFvaCAMPOLONGO fica com a string "Centura:JPEG" > > > > Desde de j� agrade�o ajuda. > > Bruno Almeida. > > ============================================== > Lista de Centura SQLWindows > Administrador : [EMAIL PROTECTED] > [ http://www.centuraexplorer.com ] > Para sair desta lista mande mensagem para: > [EMAIL PROTECTED] sem nada no Subject e > com o comando a seguir no corpo da msg: > "unsubscribe sqlwin" (sem as aspas) > ============================================== > > ============================================== > Lista de Centura SQLWindows > Administrador : [EMAIL PROTECTED] > [ http://www.centuraexplorer.com ] > Para sair desta lista mande mensagem para: > [EMAIL PROTECTED] sem nada no Subject e > com o comando a seguir no corpo da msg: > "unsubscribe sqlwin" (sem as aspas) > ============================================== > ============================================== Lista de Centura SQLWindows Administrador : [EMAIL PROTECTED] [ http://www.centuraexplorer.com ] Para sair desta lista mande mensagem para: [EMAIL PROTECTED] sem nada no Subject e com o comando a seguir no corpo da msg: "unsubscribe sqlwin" (sem as aspas) ==============================================
