+- Delphi Can (https://www.delphican.com)
+-- Forum: Delphi (https://www.delphican.com/forumdisplay.php?fid=3)
+--- Forum: Genel Programlama (https://www.delphican.com/forumdisplay.php?fid=6)
+--- Konu Başlığı: Delphi'den SP ile kayıt (/showthread.php?tid=4018)
Delphi'den SP ile kayıt - Aktolgali - 29-09-2019
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?
Cvp: Delphi'den SP ile kayıt - csunguray - 29-09-2019
(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:
SP_spiStok.Parameters.ParamByName('stok_resim').LoadFromFile(OpenPict.FileName, ftBlob);Okurken:
Kod:
TBlobField(ADOQuery1.FieldByName('stok_resim')).SaveToFile(SavePict.FileName);şeklinde deneyebilirsiniz...
Kaynak:
https://stackoverflow.com/questions/19115821/insert-update-tblobfield-aka-image-using-sql-parameters
Cvp: Delphi'den SP ile kayıt - Aktolgali - 29-09-2019
(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:
SP_spiStok.Parameters.ParamByName('stok_resim').LoadFromFile(OpenPict.FileName, ftBlob);
Okurken:
Kod:
TBlobField(ADOQuery1.FieldByName('stok_resim')).SaveToFile(SavePict.FileName);
şeklinde deneyebilirsiniz...
Kaynak:
https://stackoverflow.com/questions/19115821/insert-update-tblobfield-aka-image-using-sql-parameters
@csunguray çok teşekkür ederim hocam, gösterdiğiniz yöntemle çözüldü.
Cvp: Delphi'den SP ile kayıt - Aktolgali - 29-09-2019
(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:
SP_spiStok.Parameters.ParamByName('stok_resim').LoadFromFile(OpenPict.FileName, ftBlob);
Okurken:
Kod:
TBlobField(ADOQuery1.FieldByName('stok_resim')).SaveToFile(SavePict.FileName);
şeklinde deneyebilirsiniz...
Kaynak:
https://stackoverflow.com/questions/19115821/insert-update-tblobfield-aka-image-using-sql-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 . . .
Delphi'den SP ile kayıt - Aktolgali - 30-09-2019
Arkadaşlar, yanlış alarm. Şu anda her şey normal şekilde çalışıyor. Hiçbir değişiklik yapmadım.