修改Dsoframer源碼支援D7

1.修改OnDraw函數中的FDrawText或DrawText;
2 為過程FRunningInDesignMode()中的1個變體變數分配記憶體空間

VARIANT vtUserMode;
//添加下面這句：
memset(&vtUserMode,0,sizeof(VARIANT));
在VC++中重新編譯，註冊dsoframer.ocx.

3.擷取word文檔資料流及其與D7變體的資料交換
ovOption:=EmptyParam;
ovFormat:='Rich Text Format';
FramerControl1.ExecOleCommand($7001, ovOption, ovFormat, ovWBinary);
//OLECMDID_GETDATAFORMAT=$7001; 執行OLE命令擷取資料流
if VarType(ovWBinary)<>varEmpty then begin
pBuf := VarArrayLock(ovWBinary);
Stream.Size := VarArrayHighBound(ovWBinary, 1)-VarArrayLowBoundovWBinary, 1) + 1;
Stream.Position := 0;
Stream.Write(pBuf^, FS.Size);
VarArrayUnlock(ovWBinary);
WriteWordBinaryToDataBase(Stream);//儲存流資料到資料庫

向WORD文檔中寫入流資料關鍵代碼：
GetWordBinaryFromDataBase(Stream);//從資料庫讀出試題資料流
ovWBinary:=VarArrayCreate([0,msStream.Size-1],varByte);
pBuf := VarArrayLock(ovWBinary);
Stream.Position:=0;
Stream.Read(pBuf^, Stream.Size);
VarArrayUnlock(ovWBinary);
FramerControl1.ExecOleCommand($7002, ovOption, ovFormat, ovWordBinary);
//OLECMDID_SETDATAFORMAT=$7002; 執行OLE命令向Word文檔寫入試題資料流，呈遞試題內容
資料流寫入Windows剪貼簿
var
pBuf, bufptr: Pointer; hbuf : THandle; nRfetc,nSize:integer;
begin
nRfetc:=RegisterClipboardFormat('Rich Text Format');
GetWordBinaryFromDataBase(Stream); //從資料庫讀出試題資料流
hbuf := GlobalAlloc(GMEM_MOVEABLE, Stream.size);
if hbuf=0 then begin OutOfMemoryError; exit;end;
bufptr := GlobalLock(hbuf);
try
Stream.Read(bufptr^, Stream.size);//將試題流寫入到全域記憶體
Clipboard.SetAsHandle(nRfetc, hbuf);//將全域記憶體流放置Windows剪貼簿
PasteContentOnWordPaper;//從剪貼簿中試題資料粘貼到Word試卷
finally
GlobalUnlock(hbuf);
end;
GlobalFree(hbuf); Stream.Free;
end;