| Цитата(LSD @ 3.11.2004, 23:11) | Есть еще вариант с BFILE, там будут файлы в чистом виде.
Добавлено @ 23:13
Черт, а дата вопроса то  |
вот тебе добавление любого ф. через ODAC к сожалению только с прмым апдейтом таблицы:
| Код |
//=============================================================================
function AddFileAtt(const inr: TMbMailMsg; const midh, i: longint): longint;
var
idatt: longint;
begin
with datam.AddFileAttachSP do
begin
ParamByName('PID_MAIL_H').AsInteger:=midh;
ParamByName('PFILENAME').AsString:=TAttFile(inr.FAttFiles.Items[i]).FILENAME;
ExecProc;
idatt:=ParamByName('RESULT').AsInteger;
end;
with datam.UpdateAttQ do
begin
Prepare;
ParamByName('PATT').AsBlobRef.LoadFromStream(TAttFile(inr.FAttFiles.Items[i]).AttData);
ParamByName('PIDATT').AsInteger:=idatt;
Execute;
end;
Result:=idatt;
end;
|
Одак 2.5 ...
к сожалению через stored proc можно работать только да 32к файла (параметра), поэтому прямой апдейт таблицы.
|