Загрузка картинки в MS-SQLServer 2005

@Мысщъ · Регистрация: 25.02.2007

Author24 — интернет-сервис помощи студентам

День добрый! Помогите разобраться с проблемой - надо подгрузить картинку в базу данных. Я знаю, что это не рационально и так не делают, но препода не переубедить. В делфи процедура имеет такой внешний вид:

Код

MyStream := TMemoryStream.Create;
image1.Picture.bitmap.SaveToStream(MyStream);
MyStream.Position := 0;
    DataModule2.AddHouseQuery.Active := false;
    DataModule2.AddHouseQuery.SQL.Clear;
    if not DataModule2.AddHouseQuery.Prepared then DataModule2.AddHouseQuery.Prepared := true;
    DataModule2.AddHouseQuery.SQL.Add('INSERT INTO Inspector (InspectorID, InspectorPhone, CounterNum, InspectorSurname, InspectorName) ');
    DataModule2.AddHouseQuery.SQL.Add('VALUES (:a1, :a2, :a3, :a4, :a5, :a6, :a7, :a8, :a9)');
    DataModule2.AddHouseQuery.Parameters.ParamByName('a1').Value:=HouseIDBox.Text;
    DataModule2.AddHouseQuery.Parameters.ParamByName('a2').Value:=DistrictBox.Text;
    DataModule2.AddHouseQuery.Parameters.ParamByName('a3').Value:=StreetBox.Text;
    DataModule2.AddHouseQuery.Parameters.ParamByName('a4').Value:=HouseNumBox.Text;
    DataModule2.AddHouseQuery.Parameters.ParamByName('a5').Value:=WallsBox.Text;
    DataModule2.AddHouseQuery.Parameters.ParamByName('a6').Value:=OverlapBox.Text;
    DataModule2.AddHouseQuery.Parameters.ParamByName('a7').Value:=HallCountBox.Text;
    DataModule2.AddHouseQuery.Parameters.ParamByName('a8').Value:=FlatCountBox.Text;
   [b]DataModule2.AddHouseQuery.Parameters.ParamByName('a9').LoadFromStream(MyStream, TGraphic);[b]
   DataModule2.AddHouseQuery.Parameters.ParamByName('Image_PurposePay').LoadFromStream(MyStream, TGraphic);
    DataModule2.AddHouseQuery.open;
    DataModule2.AddHouseQuery.ExecSQL;

на выделенную строчку компилятор ругается со словами 'Incompatible types: 'TFieldType' and 'ClassReference''
что он мне говорит - я понял, видимо, вместе типа поля я поставил определение класса (или наоборот). вот ток что мне это дало? куда копать - так вопрос поставим ))

	26.04.2008, 08:59