Shulou(Shulou.com)06/01 Report--

-- deposit

Str_sql: = 'update photo set photo =: photo'

Str_sql: = str_sql + 'where sex =' female''

With qry_for_show do

Begin

Close

SQL.Clear

SQL.Add (str_sql)

Parameters.ParamByName ('photo') .assign (img2.Picture.Graphic)

ExecSQL

End

-- read

Procedure Tfrmpicsave.BitBtn1Click (Sender: TObject)

Var

Stream:TMemoryStream

Jpg:TdxPNGImage

Begin

Qry_for_show.Close

Qry_for_show.SQL.Text:='SELECT * FROM HLDJPHOTO'; / / query pictures

Qry_for_show.Open

If not qry_for_show.FieldByName ('photo'). IsNull then

Begin

Stream:=TMemoryStream.Create

Jpg:=TdxPNGImage.Create

TBlobField (qry_for_show.FieldByName ('photo')) .SaveToStream (Stream); / / converted to BlobField and saved to memory stream

TBlobField (qry_for_show.FieldByName ('photo')) .SaveToFile (ExtractFilePath (Application.ExeName) +' www'); / / converted to BlobField and saved to memory stream

Stream.Position: = 0

Jpg.LoadFromStream (Stream); / / load pictures

P_w_picpath2.Picture.Assign (Jpg)

End

Else

Begin

P_w_picpath2.Picture: = nil

End

Stream.Free

Jpg.Free

End

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.