Arsip: kok stack overflow?????

more 13 years ago
akudana
kenapa yaa kok error saya ingin membuka gamabar kemudian saya simpan gambar itu ke database.... dan bila dijalan kan
program jalan tapi klau mau ke baris lain kemudian ganti foto akan keluar erorrr sperti ini "stack overflow"... apanya yaa??/
ini source code saya:
unit FMemo;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBXpress, FMTBcd, DB, DBClient, Provider, SqlExpr, DBCtrls,
StdCtrls, Grids, DBGrids, ExtDlgs;
type
TFormMemo = class(TForm)
SQLConnectionMySQL: TSQLConnection;
SQLQuerypribadi: TSQLQuery;
DataSetProviderPribadi: TDataSetProvider;
ClientDataSetPribadi: TClientDataSet;
DataSourcePribadi: TDataSource;
DBGridPribadi: TDBGrid;
Label1: TLabel;
DBMemoKeterangan: TDBMemo;
ButtonGantiFoto: TButton;
DBImageFoto: TDBImage;
OpenPictureDialog: TOpenPictureDialog;
procedure ButtonGantiFotoClick(Sender: TObject);
procedure ClientDataSetPribadiBeforePost(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormMemo: TFormMemo;
implementation
{$R *.dfm}
procedure TFormMemo.ButtonGantiFotoClick(Sender: TObject);
begin
if ClientDataSetPribadi.State <> dsEdit then
ClientDataSetPribadi.Edit;
if OpenPictureDialog.Execute then DBImageFoto.Picture.LoadFromFile
(OpenPictureDialog.FileName);
end;
procedure TFormMemo.ClientDataSetPribadiBeforePost(DataSet: TDataSet);
begin
ClientDataSetPribadi.ApplyUpdates(0);
end;
end.
Mohon bantuannya??? dan supaya tidak stack overflow diapain yaa???

more 13 years ago
heriy4nt0
ApplyUpdates seharusnya ditempatkan setelah terjadi Post, jadi kemungkinan program diatas looping terus menerus karena perintah ApplyUpdates memicu terus menerus Event BeforePost, coba tempatkan ApplyUpdates di event AftherPost.

more 13 years ago
heriy4nt0
sorry double posting,
sy lihat kembali kodenya, bukankah tidak diperlukan Event tersebut,
jadi langsung aja dari buttongantifoto :
var s:string
s:='';
if OpenPictureDialog.Execute then s:=OpenPictureDialog.FileName;
if fileexists(s) then
begin
if ClientDataSetPribadi.State <> dsEdit then
ClientDataSetPribadi.Edit;
DBImageFoto.Picture.LoadFromFile(s);
ClientDataSetPribadi.Post;
ClientDataSetPribadi.ApplyUpdates(); //penyimpanan optimistic ??
end;

more 13 years ago
akudana
oyaaa, ternyata codingnya saya pindahkan di event AfterPost udah bisa kok.......... makasih yaaaa...
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 2 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 3 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 10 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 10 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 10 years ago
Random Topic
- tanya ascii
by ficky in Hal umum tentang Pascal Indonesia more 10 years ago - label pake timer
by delphi_tikuzz in Multimedia & Graphic Enhancement more 16 years ago - Satu listing program bisa di panggil di beberapa form
by musespratama in Delphi.NET more 11 years ago - SQL statement untuk quickreport !
by defran_raja in MySQL more 13 years ago - Konversi data dari Port serial
by sayidjunior in Enginering more 15 years ago - tombol pada event OnKeyPress
by mimamima in Network, Files, I/O & System more 11 years ago - i bisa menekan tombol applikasi lain di luar delphi
by blackshield in Tip n Trik Pemrograman more 14 years ago - ?? Bikin Program delphi sama dgn Query analyzer SQL
by kacungdelphi24 in Tip n Trik Pemrograman more 14 years ago - Membaca .net dataset per record di Delphi for Win32
by andipurwito in Delphi.NET more 14 years ago - kode ascii
by tamara in Delphi.NET more 13 years ago