Перевести на DELPHI

[felicita_091]

if(!(TBlobField*)ADOTable1->FieldByName("Foto")->IsNull){
       if(!Form9->Image1->Visible) Form9->Image1->Visible=true;
       TMemoryStream* strm = new TMemoryStream;
       TJPEGImage *ptJpg=new TJPEGImage;
        ((TGraphicField*)ADOTable1->FieldByName("Foto"))->SaveToStream(strm);
        strm->Seek(0,0);
        if (*(Word*)strm->Memory == 0xD8FF) Form9->Image1->Picture->Graphic=ptJpg;
        Form9->Image1->Picture->Graphic->LoadFromStream(strm);
        delete strm;
        delete ptJpg;
      }
      else
     { Form9->Image1->Visible=false;

Помогите, надо завтра сдать

[Serge_Bliznykov]

ну, ПРИМЕРНО это будет выглядеть так:

if (NOT ADOTable1.FieldByName('Foto').IsNull) then begin 
       if (Form9.Image1.Visible = false) then Form9.Image1.Visible :=true;
       strm := TMemoryStream.Create();
       ptJpg := TJPEGImage.Create;
       ADOTable1.FieldByName('Foto').SaveToStream(strm);
       strm.Seek(0,0);
       if (strm.Memory = $D8FF) then Form9.Image1.Picture.Graphic := ptJpg;
       Form9.Image1.Picture.Graphic.LoadFromStream(strm);
       strm.Free;
       ptJpg.Free;
      end 
      else
        begin  Form9.Image1.Visible=false;

только я не понимаю зачем Вам ВЫРВАННЫЙ из контекста кусок кода, что он Вам даёт..


p.s. код не проверял. Особенно нужно обратить внимание на код: (strm.Memory = $D8FF), скорее всего, его придётся на месте ещё чуток напильником доработать!

[felicita_091]

[Toxa]

надо объявить переменные которые используются
перед begin
var
strm : tmemorystream;
prjpg : tjpegimage;

[felicita_091]

[Error] Unit4.pas(174): Undeclared identifier: 'SaveToStream'

[Toxa]

TGraphicField(ADOTable1.FieldByName ('Foto')).savetostream(strm)

[felicita_091]

Спасибо все получилось... только последняя осталось..ошибка

else if (strm.Memory = $D8FF) then begin

[Error] Unit4.pas(177): Operator not applicable to this operand type

[Аватар]

else if Word(strm.Memory^)=$D8FF then begin

[felicita_091]

Примерчик..посмотрите и исправьте пожалуйстаhttp://webfile.ru/9d396947b2a124f1dc911c56ccaec24c

[raxp]

TC, а у вас наглости не занимать. Вы хотя бы потрудились скопировать то, что вам уже понаписали.