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

9-2 圖 形 顯 示 的 進 階 處 理

要 解 決 上 述 的 那 個 問 題 ， 我 們 可 以 在 TDataSetAdapter 加 入 一 個 TAdapterImageField ， 接 著 將 她 串 回 DataSetAdapter Fields 中 ， 聽 起 來 很 簡 單 ， 好 像 也 很 合 理 。 呵 ! 事 情 還 沒 完 呢 ， 這 是 我 們 自 己 加 入 的 TAdapterImageField ， 除 了 是 位 於 TDataSetAdapter 內 之 外 ， 她 跟 TDataSetAdapter 可 毫 無 關 係 ， 這 也 就 是 說 不 管 TDataSetAdapter 如 何 移 動 記 錄 指 標 ， 我 們 的 TAdapterImageField 可 是 不 動 如 山 的 。 為 了 解 決 這 個 問 題 ， 我 們 得 運 用 一 下 OnGetParam 特 性 ， 迫 使 WebSnap 移 動 她 ， TDataSetAdapter 及 TAdpterImageField 處 理 的 程 式 碼 如 下 :

function TImageDB.GetAppPath:string;

var

FN: array[0..255] of char;

begin

GetModuleFileName(hInstance,FN,SizeOf(FN));

Result:=ExtractFileDir(FN);

end;

procedure TImageDB.AdaptPictureNameGetImage(Sender: TObject;

Params: TStrings; var MimeType: String; var Image: TStream;

var Owned: Boolean);

var

AppPath:string;

sImagePos:string;

begin

AppPath:=GetAppPath;

sImagePos:=Params.Values[''''PICTURE_NAME''''];

Image:=TFileStream.Create(AppPath ''''\Images\'''' sImagePos,fmOpenRead);

end;

procedure TImageDB.AdaptPictureNameUploadFile(Sender: TObject;

AFile: TAbstractWebRequestFile);

var

fs:TFileStream;

AppPath:string;

FileExt:string;

begin

if AFile.ContentType = ''''image/jpg''''

标签：

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