Help with Pictures

[Ruslan Zasukhin]

on 11/26/03 12:42 AM, Mark Maslowski at mark at majico.com wrote:

> Well, I used the following script to add 10 test photos. It increased my
> .BLB file size from 100K to 3.7MB so I'm assuming there is some photo data
> in there.
> 
> on LoadthePictures
> set SQLString = "SELECT * FROM photos"
> set gCursor = new(xtra "VCursor", GetRef(gDB), SQLString)
                                            ^^^^^^^^^^^^^^^^^^^^
                                                kServer, kReadWrite
> 
> repeat with x = 1 to 10
>   setBlank(gCursor)
>   set nameTemp = the name of member x & ".jpg"
>   setField(gCursor, "filename", nameTemp)
>   setPicture(gCursor, "photo", member x, 80)
>   AddRecord(gCursor)
> end repeat
> end

-- 
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
-------------------------------------------------------------