如何在Sql Server里写代码将某个表字段里存储的**.doc文件另存到服务器所在电脑下(200分)

如题，即 我在前台程序上传了个doc文件到服务器sqlserver数据库里，然后要把该文件提取出来放到服务器的某个目录下，如何做？？？？？

老问题，网中戏以前好像问过，如何执行提出过。。。

你可以写一个扩展存储过程来做这件事情。

楼上两位，具体应该怎么做的？可有相关资料？

var
MemSize: Integer;
Buffer: PChar;
MyFile: TFileStream;
Stream: TBlobStream;
begin
MyFile:=TFileStream.Create('c:/temp.tmp',fmCreate);
with table1 do
begin
Open;
Stream:=TBlobStream.Create(FieldByName('Doc') as TBlobField, bmRead);
MemSize := Stream.Size;
Inc(MemSize);
Buffer := AllocMem(MemSize);
try
Stream.Read(Buffer^,MemSize);
MyFile.Write(Buffer^,MemSize);
finally
MyFile.Free;
Stream.Free;
end;
end;
if FileExists('c:/temp.DOC') then
DeleteFile('c:/temp.DOC');
if FileExists('c:/temp.tmp') then
begin
RenameFile('c:/temp.tmp', 'c:/temp.DOC');
end;