New topic: Save Picture on PostGresql
<http://forums.realsoftware.com/viewtopic.php?t=47893> Page 1 of 1 [ 1 post ] Previous topic | Next topic Author Message jetpr Post subject: Save Picture on PostGresqlPosted: Thu May 16, 2013 1:07 am Joined: Wed Sep 20, 2006 5:12 pm Posts: 664 Location: Puerto Rico i have this code but no save the Data is i use a picture to save Dim imageData as String Dim bs as BinaryStream Dim f as FolderItem Dim db As DatabaseRecord Dim p as picture = new picture(100, 100, 32) Dim StrSql As String db=new DatabaseRecord db.Column("CntID")="1" db.Column("Name")=Trim(TxtCompanyname.Text) db.Column("Dir1")=Trim(TxtDir1Pos.Text) db.Column("Dir2")=Trim(TxtDir2Pos.Text) db.Column("City")=Trim(TxtCityPos.Text) db.Column("State")=Trim(TxtStatePos.Text) db.Column("ZipCode")=Trim(TxtZipPos.Text) db.Column("Telephone")=Trim(TxtTelefone.Text) db.Column("Fax")=Trim(TxtFax.Text) db.Column("email")=Trim(TxtEmail.Text) db.Column("Contact")=Trim(TxtContact.Text) db.Column("Dir1Phy")=Trim(TxtDir1Phy.Text) db.Column("Dir2Phy")=Trim(TxtDir2Phy.Text) db.Column("CityPhy")=Trim(TxtCityPhy.Text) db.Column("StatePhy")=Trim(TxtStatePhy.Text) db.Column("ZipCodePhy")=Trim(TxtZipPhy.Text) db.Column("StateTax")=Trim(TxtStateTax.Text) db.Column("CityTax")=Trim(TxtCityTax.Text) db.Column("OtherTel")=Trim(TxtOtherTelefone.Text) db.Column("UserMain")=TxtUserMain.Text db.Column("UserPass")=TxtUserPass.Text db.Column("TxtMensage")=TxtMensage.Text db.Column("Categoria01")=ComboBox1.Text.Trim db.Column("Categoria02")=ComboBox2.Text.Trim db.Column("Categoria03")=ComboBox3.Text.Trim db.Column("Categoria04")=ComboBox4.Text.Trim db.Column("Categoria05")=ComboBox5.Text.Trim db.Column("Categoria06")=ComboBox6.Text.Trim //db.Column("CompanyLogo") if droppicture<>Nil then p.graphics.drawpicture droppicture, 0, 0,100, 100, 0, 0, droppicture.width, droppicture.height end if If p <> NIL and droppicture <> Nil then //<< == (but hire is empty ) f = SpecialFolder.Temporary.Child( "Temp_Image.jpg" ) //f.saveAsJPEG p p.Save(f,151) bs=BinaryStream.Open(f,False) If bs <> NIL then imageData = bs.read(bs.length ) bs.close db.BlobColumn("sPicData") = imageData End if If f.exists then f.delete End if End if DbConn.InsertRecord("CompanyInfo",db) DbConn.Commit if DbConn.Error then MsgBox DbConn.ErrorMessage DbConn.Rollback end if _________________ Thanks for any contribution and God blesses all (I start Using RS in 10/12/2010) Mac Mini with Lion v10.7.5 and Real Studio 2012r1 Pro And Windows 7 RS2012r1 Personal and Linux RS2012r1 Personal Register user my Hobbies R/C Turbines Jets Models Top Display posts from previous: All posts1 day7 days2 weeks1 month3 months6 months1 year Sort by AuthorPost timeSubject AscendingDescending Page 1 of 1 [ 1 post ] -- Over 1500 classes with 29000 functions in one REALbasic plug-in collection. The Monkeybread Software Realbasic Plugin v9.3. http://www.monkeybreadsoftware.de/realbasic/plugins.shtml [email protected]
