Linux Basic

hi,

if you're using a mysql database then i think it's not possible to store picture in
but you can always store a path to picture,

so, i would make a form with textbox for then name of picture and picture box, two buttons and one dialog-file chooser
when you click the first button-OpenButton, dialog-file chooser opens, then you chose a picture, here you'll need  to
catch location of the picture, and close dialog
chosen picture loads in a picture box, in the textbox enter a name of picture,
clicking on the second button-SubmitButton- should store name and location in database,

you can always show picture using picturebox and a path to the picture that is stored in database

i hope you understand me, my english is not quite good,
and take this with reserve, this is nothing more than just an idea

Hi.

I have use the example gambas2. And  i add 2 news line

1º (ModuleDatabase)
    pictureTable = databaseConnection.Tables.Add("pictures")
    pictureTable.Fields.Add("id", db.Serial) '             id          field as autoinc integer
    pictureTable.Fields.Add("thumb", db.Blob) '            thumb       field as blob
    pictureTable.Fields.Add("image", db.Blob) '          ' image       field as blob
    pictureTable.Fields.Add("description", db.String, 0) ' description field as unlimited string
    pictureTable.Fields.Add("name", db.String, 0) ' name
    pictureTable.Fields.Add("ab", db.String, 0) ' about photo
    pictureTable.PrimaryKey = ["id"]
    pictureTable.Update()

2º
I created two Text's Box with TextBoxName.Text's name and TextBoxAB.Text and before I want to upload, i want insert these two textbox's.(FormPictureDatabase)

PUBLIC SUB Dados()

TextBoxName.Text = "roberto"
TextBoxAB.Text = "Good Dogs"

END

And my PUBLIC SUB Form_Open() i write Dados()

After my ModuleDatabase i change the code

' Add description and update
newPicture["description"] = "Image " & File.BaseName(ImagePath) & "  added: " & Format(Now, "dddd, dd mmmm yyyy hh:nn:ss")
newPicture["name"] = FormPictureDatabase.Dados
newPicture["ab"] = FormPictureDatabase.Dados

But when i run gambas, he say this:

Add database record error
------------------------
Error:
Type mismatch: wanted Variant, got Funciton instead.
-----------------------

(thank u quince  and timothy)

Appears the same mistake.
And gambas2 not accepting the  RETURN TextBoxName.Text & "" & TextBoxAB.Text

Thanks.

Done. Thank u timothy

You can use the Draw methods to draw on a Picture. Look in the Gambas help for the Draw object.

This example assumes you have a Button and a PictureBox on a form. When you click on the button you are asked to open an image file. A timestamp of when the file was opened is drawn on the bottom right of the image and then displayed in a PictureBox.

The code is for Gambas 2.


PUBLIC SUB ButtonOpen_Click()
  DIM p AS Picture
  Dialog.Filter = ["*.png *.jpg *.jpeg", "Image Files"]
  Dialog.Title = "Open an Image file"
  IF Dialog.OpenFile() THEN RETURN
  p = Picture.Load(Dialog.Path)
  PictureBoxImage.Picture = Timestamp(p, Now)
  PictureBoxImage.Height = p.Height
  PictureBoxImage.Width = p.Width
CATCH
  Message.Warning("<b>Could not open image file</b><hr>Error: " & Error.Text)
END

PRIVATE FUNCTION Timestamp(VideoPicture AS Picture, ImageTime AS Date) AS Picture
  DIM formatTime AS String
  DIM dateTop AS Integer
  DIM dateLeft AS Integer
  DIM dateWidth AS Integer
  DIM dateHeight AS Integer
  formatTime = Format(ImageTime, "dddd, dd mmmm yyyy hh:nn:ss")
  Draw.Begin(VideoPicture)
  ' Set font properties
  Draw.Font.Bold = TRUE
  ' Get dimensions to place date in bottom left corner of the picture
  dateHeight = Draw.TextHeight(formatTime)
  dateTop = VideoPicture.Height - dateHeight
  dateWidth = Draw.TextWidth(formatTime)
  dateLeft = VideoPicture.Width - dateWidth
   ' Draw a background rectangle
  Draw.FillColor = Color.DarkBlue
  Draw.FillStyle = Fill.Solid
  Draw.Rect(dateLeft, dateTop, dateWidth, dateHeight)
  ' Draw text
  Draw.ForeColor = Color.White
  Draw.Text(formatTime, dateLeft, dateTop)
  Draw.End()
  RETURN VideoPicture
END



i also have some difficulties in understanding for some things.

For example what is toolbox property of a form? When i set it to TRUE the window disapears.

I'm using Gambas2. When I started it I noticed the 'Open Example' menu entry which had the 'Picture Database' example in it. I'd forgotten about this in Gambas. I've been too involved with Android of late!