[sqlwin] Campo figura em arquivo txt

[Bruno Almeida]

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.