مدیریت تصویر در SQL

[Delphi&Kylix_2939]

سلام به همگی عزیزان
2 سئوال دارم می خوام بدنم می تونید کمک کنید؟
من یک تصویر درم که فرمت اون TIFF هست و از کامپوننت ImageEn استفاده می کنم
اینو تو یک جدول میریزم بعد از طریق یک Store مسیر فایل نام فایل اسم جدول و فیلد جدول رو می دم که SQL در صورت عدم وجودش اون تو اون مسیر با اون اسم فایل و اون تصویر از اون فیلد ذخیره کنه کسی می تونه این Store رو تهیه کنه؟درضمن از Delphi 7 و SQL 2000 استفاده می کنم. باتشکر

[Delphi&Kylix_2939]

با سلام
طول این وقت کوتاه یک search کردم و جوابم رو بدست آوردم جواب رو واسه شما هم میزارم

1------------------------

CREATE PROCEDURE sp_imp_exp_images
(@runpath varchar(100),
@srvr varchar(50),
@db varchar(50),
@usr varchar(50),
@pwd varchar(50),
@tbl varchar(50),
@col varchar(50),
@whr varchar(200),
@fil varchar(100),
@mod char(1))
AS
DECLARE @cmd varchar(1000)
SET @cmd = @runpath + ' /S ' + @srvr + ' /D ' + @db + ' /U ' + @usr +
' /P ' + @pwd+ ' /T ' + @tbl + ' /C ' + @col + ' /W ' + @whr +
' /F ' + @fil+ ' /' + @mod
EXEC Master..xp_cmdShell @cmd
If @@Error <> 0
Return 1
Else
Return 0
GO
----------------------------

در این قسمت ابتدا یک Store Procedure ایجاد می کنید

2-

CREATE TABLE pic (pic_id int,picture image)
INSERT INTO pic VALUES (1,null)
UPDATE pic SET picture = 'xx'
--------

جدول موقتی میسازید و یک مقدار به صورت پیش فرض به اون می دید
3-
برای Insert کردن از کد زیر:

EXEC sp_imp_exp_images
'C:\textCopy.exe',
'.',
'Coff',
'Sa',
'',
'pic',
'picture',
'"where pic_id = 1"',
'C:\Ducky.tif',
'I'


4- وبرای Save کردن عکس از SQL به فایل عادی از کد زیر:

EXEC sp_imp_exp_images
'C:\textCopy.exe',
'.',
'Coff',
'Sa',
'',
'pic',
'picture',
'"where pic_id = 1"',
'C:\Ducky.tif',
'O'



موفق باشید