Хранение фалов в БД

[Alexey]

Понмю тут спор был. Вопрос следующий: если хранить файл в БД (MS SQL), а потом необходимо выложить его в Веб, то каким образом организовать ссылку на этот файл?

[AIM-9M]

Элементарно, по первичному ключу генеришь ссылку, и по запросу к твоему CGI-приложению, например http://yoursite/cgiapp.exe?file_id=1548, отгружаешь файл клиенту с первичным ключом 1548.

[maximn]

Сообщение от Alexey

Понмю тут спор был. Вопрос следующий: если хранить файл в БД (MS SQL), а потом необходимо выложить его в Веб, то каким образом организовать ссылку на этот файл?

любым. главное - помните про хедеры

[Alexey]

AIM-9M, а как генрить ссылку? ну скажем найти нужный файл по условию - я могу, но как по ссылке (где в кач-ве параметра стоит первичный ключ) вытащить файл? может пример есть?

[AIM-9M]

То-есть, как отдать сам файл? Записываешь его в бинарный поток, и пересылаешь. Пример смогу показать не раньше понедельника.

[Alexey]

да, взглянул бы

[phasma]

тип данных sql_variant не подайдет ?)

[Alexey]

проблема в том, что программировать я забросил на 4-м или каком там курсе и далек от новых тендений в программировании. максимум, что я щаз могу сделать - написать insert into mytable (file) values ('c:\myfile.pdf') и такой же селект, но ведь такая конструкция не работает наверняка тут есать те, кто такое каждый день проворачивает, вот и прошу помощи.

[phasma]

не, я просто знаю, что в MySQL есть BLOB тип полей ))) MS SQL не знаю ))

[AIM-9M]

Alexey, а ты на чем, собственно, само веб-приложение пишешь? Если на Дельфи, то напиши в приват свое мыло, я завтра пришлю пример.

[Alexey]

файл в базу надо из дельфи, а вытягивать их PHP, но если пример кинешь я разберусь

[AIM-9M]

Сообщение от Alexey

файл в базу надо из дельфи, а вытягивать их PHP, но если пример кинешь я разберусь

прмерно так

procedure LoadText(id: integer);
var s: TMemoryStream;

procedure WriteStream(stream: TMemoryStream);
var
OutputStream: THandleStream;
begin
Flush(output);


OutputStream := THandleStream.Create(GetStdHandle(STD_OUTPUT_HANDL E));

stream.SaveToStream(OutputStream);

OutputStream.Free;
end;

begin

DM1.adospLib.Parameters.Clear;
DM1.adospLib.Parameters.CreateParameter('book_id', ftInteger, pdInput, 4, id);
DM1.adospLib.Open;

s := TMemoryStream.Create;
(DM1.adospLib.Fields[0] as TBlobField).SaveToStream(s);

WriteStream(s);


end;

Но, что-то мне подсказывает, что на ПХП это сделать проще можно.