Архив форумов ЦИТФорума

[Лоднев Дмитрий]

Привет всем !!!

В общем есть программа, написанная на Делфи4.
Она работает с MSSQL 6.5 через BDE следующим образом: в TRxDBRichEdit загружает поле типа TEXT. Далее его можно изменять, сохранять и т.д. и т.п.
И все было бы хорошо, если не следующая проблема: если поле больше 32k, то в TRxDBRichEdit отображаются первые 32768 байт и все.

"Внимание вопрос?": как убрать это ограничение используя BDE. (не прибегая к ADO)

[EGA]

Всё очень просто.
1. Если ты связь с алиасом напрямую держишь, то в параметрах алиаса проставь BLOB SIZE=999;
если через компонент TDataBase, то в параметрах TDataBase проставь BLOB SIZE=999.
(Это на всякий пожарный случай, чтобы никаких эксцессов не случилось)

2. Сделай следующий финт (у меня это для больших картинок сделано):

procedure DownLoadImage(PersID:string);
var
fn,fnBlank,ss:string;
Fld:TBlobField;

begin

Image1.Picture.LoadFromFile('Blank.jpg');
fn:=ExtractFilePath(ParamStr(0))+'FaceImg.jpg';
fnBlank:=ExtractFilePath(ParamStr(0))+'Blank.jpg';
ss:='select PersFaceImg,FaceDat from persadd where persid='+PersID;
quOpen(DMpas.RQTemp,ss);// Открытие запроса
Fld:=TBlobField(DMpas.RQTemp.FieldByName('PersFaceImg'));
if not fld.IsNull then
begin
fld.SaveToFile(fn);
FPers.Image1.Picture.LoadFromFile(fn);
FPers.lPersFaceDat.Caption:=FormatDateTime('dd/mm/yyyy',DMpas.RQTemp.FieldByName('FaceDat').AsDateTime);
end
else
begin
FPers.Image1.Picture.LoadFromFile(fnBlank);
FPers.Label2.Visible:=True;
end;

DMpas.RQTemp.Close;
end;


Тоже самое можно и с полем типа Text сделать

[Лоднев Дмитрий]

Огромное спасибо за помощь