Web Application 開 發 利 器 - WebSnap（九）(3…

then

FileExt:=''''.jpg''''

else if AFile.ContentType = ''''image/pjpeg'''' then

FileExt:=''''.jpg''''

else if AFile.ContentType = ''''image/bmp'''' then

FileExt:=''''.bmp''''

else if AFile.ContentType = ''''image/gif'''' then

FileExt:=''''.gif''''

else FileExt:='''''''';

if FileExt <> '''''''' then

begin

fs:=TFileStream.Create(AppPath ''''\Images\'''' AdaptName.ActionValue.Values[0] FileExt,fmCreate);

fs.CopyFrom(AFile.Stream,0);

DataSetAdapter1.DataSet.FieldByName(''''PICTURE'''').AsString:=AdaptName.ActionValue.Values[0] FileExt;

fs.Free;

end;

end;

procedure TImageDB.AdaptPictureNameGetParams(Sender: TObject;

Params: TStrings);

begin

Params.Add(''''PICTURE_NAME='''' AdaptPicture.Value);

end;

procedure TImageDB.AdaptPictureNameValidateFile(Sender: TObject;

AFile: TAbstractWebRequestFile);

begin

if (AFile.ContentType <> ''''image/jpg'''') and

(AFile.ContentType <> ''''image/pjpeg'''') and

(AFile.ContentType <> ''''image/bmp'''') and

(AFile.ContentType <> ''''image/gif'''') then

raise EAdapterException.Create('''' 未 知 的 圖 形 格 式 '''');

end;

我 們 先 看 到 OnGetImage 事 件 ， 我 們 在 這 裡 面 讀 取 圖 型 後 傳 回 給 Client 端 ， 檔 名 是 從 Params 參 數 中 取 出 來 的 ， 那 這 個 參 數 在 那 放 進 去 的 呢 ? 你 看 到 OnGetParams 部 份 了 嗎 ? 我 們 就 是 在 這 裡 將 參 數 放 進 去 的 ， 看 下 列 的 HTML:

/Exam_1_TestSvr.MySimpleWeb/?

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有