Delphi'den SP ile kayıt

[Aktolgali]

Merhaba;

Delphi tarafında ibstoredprocedure ile yaptığım kayıtta bir sorunum var, şöyleki

    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;

bu şekilde kayıtta hiçbir sorun yok fakat stokların resimlerini eklemek istediğimde tam resim ekleme kodları satırında hata veriyor. Hata

access violation at address C2950F40. Read of address C2950F40.

Kayıt kodu olarak aşağıda ki satırları ayrı ayrı denedim. İlk satır kayıt yapıyor ama yaptığı kaydı göstermeyi başaramadım.

     
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);

Dataset ile bu şekilde kayıt yapabiliyorum ama SP ile yapamadım. Yardımcı olur musunuz?

[csunguray]

(29-09-2019, Saat: 14:32)Aktolgali Adlı Kullanıcıdan Alıntı: Merhaba;

Dataset ile bu şekilde kayıt yapabiliyorum ama SP ile yapamadım. Yardımcı olur musunuz?

Kaydederken:

Kod: (Select All)

SP_spiStok.Parameters.ParamByName('stok_resim').LoadFromFile(OpenPict.FileName, ftBlob);

Okurken:

Kod: (Select All)

TBlobField(ADOQuery1.FieldByName('stok_resim')).SaveToFile(SavePict.FileName);

şeklinde deneyebilirsiniz...

Kaynak:
https://stackoverflow.com/questions/1911...parameters

[Aktolgali]

(29-09-2019, Saat: 15:24)csunguray Adlı Kullanıcıdan Alıntı:

(29-09-2019, Saat: 14:32)Aktolgali Adlı Kullanıcıdan Alıntı: Merhaba;

Dataset ile bu şekilde kayıt yapabiliyorum ama SP ile yapamadım. Yardımcı olur musunuz?

Kaydederken:

Kod: (Select All)

SP_spiStok.Parameters.ParamByName('stok_resim').LoadFromFile(OpenPict.FileName, ftBlob);

Okurken:

Kod: (Select All)

TBlobField(ADOQuery1.FieldByName('stok_resim')).SaveToFile(SavePict.FileName);

şeklinde deneyebilirsiniz...

Kaynak:
https://stackoverflow.com/questions/1911...parameters

@csunguray çok teşekkür ederim hocam, gösterdiğiniz yöntemle çözüldü.

[Aktolgali]

(29-09-2019, Saat: 15:24)csunguray Adlı Kullanıcıdan Alıntı:

(29-09-2019, Saat: 14:32)Aktolgali Adlı Kullanıcıdan Alıntı: Merhaba;

Dataset ile bu şekilde kayıt yapabiliyorum ama SP ile yapamadım. Yardımcı olur musunuz?

Kaydederken:

Kod: (Select All)

SP_spiStok.Parameters.ParamByName('stok_resim').LoadFromFile(OpenPict.FileName, ftBlob);

Okurken:

Kod: (Select All)

TBlobField(ADOQuery1.FieldByName('stok_resim')).SaveToFile(SavePict.FileName);

şeklinde deneyebilirsiniz...

Kaynak:
https://stackoverflow.com/questions/1911...parameters

@csunguray hocam, verdiğiniz kodla olay çözülmüştü fakat şimdi yine hata veriyor. Ne olabilir anlayamıyorum. 

Verdiği hata şu

BLOB not found At procedure 'SPI_STOK' line: 32, col: 5

SP giriş parametrelerim de bu

CREATE OR ALTER PROCEDURE SPI_STOK(
   STOK_MARKA VARCHAR(25),
   STOK_AD VARCHAR(100),
   STOK_ALISFIYAT DECIMAL(6,4),
   STOK_SATISFIYAT DECIMAL(6,4),
   STOK_BARKOD VARCHAR(25),
   STOK_RESIM BLOB SUB_TYPE 0 SEGMENT SIZE 80)
AS
.
.
.

[Aktolgali]

Arkadaşlar, yanlış alarm. Şu anda her şey normal şekilde çalışıyor. Hiçbir değişiklik yapmadım.