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]

Masalahnya ada sih?

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;

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