Continued troubles with VPicture and V4RB

[Ruslan Zasukhin]

on 1/29/04 6:02 PM, Gary Edge at valentina at panamind.com wrote:

> I've also tried:
> 
>  dim f as folderitem
>  dim p as picture
>  dim ps as string
> 
>  f = GetOpenFolderitem("")
>                  -- f is a jpg file for testing
>  p = f.openaspicture
> 
>  if p <> nil then
>    canvas1.backdrop = p
>                   -- shows picture correctly
>    ps = PictureToJPEGStringMBS(p,75)
>      -- Plugin
>    c.pictureField("lpicture").PutFormatedPict(20,ps)
>  -- c is a pre-existing cursor w/ readwrite access
>    bool = c.update
>                           -- bool is true
>  end

What if simply

   b = f.openasbinaryFile
   ps = b.read(b.length)

   c.pictureField("lpicture").PutFormatedPict(20,ps)


 
> Later calling (simplified)
> 
>  Dim s as string
>  dim p as picture
> 
>  s = c.pictureField("lpicture").getformatedPict()    -- CRASH
>  p = JPEGStringToPictureMBS(s)
> 
>  canvas1.backdrop = p

-- 
Best regards,
Ruslan Zasukhin      [ I feel the need...the need for speed ]
-------------------------------------------------------------
e-mail: ruslan at paradigmasoft.com
web: http://www.paradigmasoft.com

To subscribe to the Valentina mail list go to:
http://lists.macserve.net/mailman/listinfo/valentina
-------------------------------------------------------------