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) > 0x43656E747572613A4A50454700241100000C000000FFD8FFE000104A46494600010200006400640000FFEC00114475636B79000100040000001E0000FFEE000E41646F62650064C000000001FFDB008400100B0B0B0C0B100C0C10170F0D0F171B141010141B1F17171717171F1E171A1A1A1A171E1E23252725231E2F2F33 > > 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) ==============================================
