该有图片的地方都没有图片？路径也对呀(SCRIPTS目录下有images目录和图片)，源程序如下：

Question

procedure TWebModule1.WebModule1ActionItem1(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
   var usernm,mail,url,city,previence,country:string;
   memo:Tstringlist;
   tst:string;
   link:string;
   hh:Tstringlist;
  begin try
   with ADOQ do
   begin
    usernm:=Request.QueryFields.Values['username'];
    mail:=Request.QueryFields.Values['email'];
    url:= Request.QueryFields.Values['url'];
    city:=Request.QueryFields.Values['city'];
    previence:=Request.QueryFields.Values['provience'];
    country:=Request.QueryFields.Values['country'];
    memo:=TStringlist.Create;
    hh:= TStringlist.Create;
    memo.Add(Request.QueryFields.Values['comments']);
  ADOq.SQL.Clear;
   tst:= 'insert into lyb values("'+usernm+'","'+mail+'","'+url+'","'+city+'","'+previence+'","'+country+'","'+memo.Strings[0]+'")';
   ADOQ.SQL.Add(tst);
   ADoq.ExecSQL;
   pageproducer1.HTMLDoc.Clear;
   hh.Clear;
   hh.LoadFromFile('upper.txt');
  pageproducer1.HTMLDoc.AddStrings(hh);
  if url<>'http://' then link:='&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href='+url+'>'+url+'</a>';
   pageproducer1.HTMLDoc.Add(usernm+'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'+previence+city+'.'+country+'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href=mailto:"'+mail+'">'+mail+'</a>'+link+'<hr> <p>'+memo.Strings[0]+'</p><hr> ');
   hh.Clear;
   hh.LoadFromFile('down.txt');
   pageproducer1.HTMLDoc.AddStrings(hh);
   response.Content:=pageproducer1.Content;
 ADOQ.Active:=false; end;
  except
     on E:Exception do
        Response.Content:='<p>保存记录失败，错误是：'+E.Message;
end;
end;

Answer 1

Var
  JPeg:TJPegImage;
begin
  JPeg := TJPegImage.Create;
  With Table1 do
  Begin
    Try
      If JPegOpenPictureDialog.Execute Then
      Begin        Jpeg.LoadFromFile(JPegOpenPictureDialog.FileName);
        Edit;
        FieldByName('FieldForPhoto').Assign(JPeg);
        Post;
      End;
    Except
      ShowMessage('无法打开该图像文件！');
    End;
  End;
  Jpeg.Free;
  miShowJPeg.Click;
  inherited;
end;图片读取：
Var
  Jpeg: TJPegImage;
  BlobStream:TStream;
begin
  JPeg := TJPegImage.Create;
  Try
    Begin
      BlobStream := MusterDm.MusterTable.
          CreateBlobStream(Table1.FieldByName('FieldForPhoto'),bmRead);
      Image1.Picture.Assign(nil);
      If BlobStream.Size <= 0 Then Exit;
      JPeg.LoadFromStream(BlobStream);
      Image1.Picture.Assign(JPeg);
    End;
  Except  End;
  inherited;
  JPeg.Free;
end;