Delphi tarafında ibstoredprocedure ile yaptığım kayıtta bir sorunum var, şöyleki
Kod: Tümünü seç
with DM.SP_spiStok do
begin
Prepare;
Params.ParamByName('stok_ad').AsString:=EdtStokAd.Text;
Params.ParamByName('stok_birim').AsString:=CmbBirim.Text;
Params.ParamByName('stok_alisfiyat').AsCurrency:=StrToCurr(EdtFiyat.Text);
Params.ParamByName('stok_barkod').AsString:=EdtBarkod.Text;
Params.ParamByName('stok_giris').AsCurrency:=0;
Params.ParamByName('stok_cikis').AsCurrency:=0;
TBlobField(SP_spiStok.Params.ParamByName('stok_resim')).LoadFromFile(OpenPict.FileName);
ExecProc;
UnPrepare;
end;
end;
Kod: Tümünü seç
access violation at address C2950F40. Read of address C2950F40.
Kod: Tümünü seç
SP_spiStok.Params.ParamByName('stok_resim').AsBlob:= OpenPict.FileName;
SP_spiStok.Params.ParamByName('stok_resim').LoadFromFile(OpenPict.FileName);
TBlobField(SP_spiStok.Params.ParamByName('stok_resim')).LoadFromFile(OpenPict.FileName);