Arsip: [HELP] Access, flash, ADO

 
user image
more 8 years ago

agis

agan,,ane mau tanya soal flash yang udah ane buat, ane pake database ADO di delphi koneksi ke access,, ane masih bingung cara nampilin flash yang udah ane buat di database itu ke dalam shockwaveflash. mohon bimbingannya agan2.. [code:1:2acc2e5ab4] procedure TForm1.BitBtn5Click(Sender: TObject); var fStream:TFileStream; stream:TStringStream; begin OpenDialog1.Filter:='All Files(. )|. '; if OpenDialog1.Execute then begin fStream:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead); ADOTable1.Open; ADOTable1.Insert; try TBlobField(ADOTable1.FieldByName('flash')).LoadFromStream(fStream); finally fStream.Free; end; ADOTable1.Post; ADOTable1.Close; end; begin stream:=TStringStream.Create(''); try TBlobField(ADOTable1.FindField('flash')).SaveToStream(stream); stream.Seek(0,soFromBeginning); ShockwaveFlash1.Play.LoadMovie(stream); finally fStream.Free; end; end; end;[/code:1:2acc2e5ab4] ane masih stack di shockwave flashnya.. [/code]
user image
more 8 years ago

halimanh

Masalahnya ada sih?
user image
more 8 years ago

agis

ni,,gan,,bner ga codingan buat nampilin flash dari database ke shockwaveflash-nya? begin stream:=TStringStream.Create(''); try TBlobField(ADOTable1.FindField('flash')).SaveToStream(stream); stream.Seek(0,soFromBeginning); ShockwaveFlash1.Play.LoadMovie(stream); finally fStream.Free; end;

user image
more 8 years ago

halimanh

stream nya pake TMemoryStream dan karena TShockwaveFlash nggak ada load dari streamnya, jadi pake class baru, ada di http://www.delphiflash.com/source-shockwaveex-pas
more ...
  • Pages:
  • 1
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com