請教各位同好.... 我要在三層式 Aplication 那一層定義一個可以讓Client傳送圖片至Application的FUNCTION 或者叫方法.... 請問我要如何定義這個型態(態别)??

------
叔叔有練過,初學者不要學。

引言: 請教各位同好.... 我要在三層式 Aplication 那一層定義一個可以讓Client傳送圖片至Application的FUNCTION 或者叫方法.... 請問我要如何定義這個型態(態?)??

我都是用OleVariant, 然後用ClientDataSet的Bolb欄位型態填資料, 再用ClientDataSet.Data傳. <iFrame src="http://www.coss.com.tw/jieshu/sign.htm" width=400 height=105 scolling="NO" border="0"></iFrame> 震江系統(股)公司: http://www.coss.com.tw/ 捷舒軟體設計坊: http://www.coss.com.tw/jieshu/

可以用IPicture。 IPicture 實際上是 OlePicture 的指針。 在 AXCtrls.pas 中提供了兩個函數 可以將 ActiveX 中的 OlePicture 和 TPicture 進行轉換工作。 procedure GetOlePicture(Picture: TPicture; var OlePicture: IPicture); procedure SetOlePicture(Picture: TPicture; OlePicture: IPictureDisp); 我再補充一點也可以用 Variant 型態。 由Client 先將圖片存為 Stream 再轉換為 OleVariant 傳送出去; Image1.Picture.Graphic.SaveToStream 發表人 - wameng 於 2004/10/18 18:28:23

wameng桑.... 可是會出現沒有定義的訊息呢.... 我是否要uses 那一個unit 呢?? 請您賜教....^_^

------
叔叔有練過,初學者不要學。

>可是會出現沒有定義的訊息呢.... 是哪一個部分呢！

你可以參考這篇http://delphi.ktop.com.tw/topic.php?TOPIC_ID=52498 混心雜欲 棄修身~唉

------
唉~

interface 我是訂出來了.... 請問可有實例參考???.....

------
叔叔有練過,初學者不要學。

{ CLIENT } var P : IPictureDisp; begin GetOlePicture(Image1.Picture,P); //Application Server 自製事件 APPSERVER.PicTest(P); end;

wameng大大 可ipicture 不是一種interface 嗎??...並不是一種type 我已把 AXCtrls uses 進來了...還是會出現 ipicture 未定義..... 怎麼辦呢??... 須要我把圖傳上來嗎??

------
叔叔有練過,初學者不要學。

請 USES AXCtrls,Activex;

引言: 請 USES AXCtrls,Activex;

有的....我都有use 進來了

出現什麼問題呢！ 我試都沒問題啊！

引言: 出現什麼問題呢！ 我試都沒問題啊！

那我把我定義的傳上來(Ap & Client) 請稍候~~^_^

如圖片(ap 和 client 我都傳了)

------
叔叔有練過,初學者不要學。

是 IPicture 吧！

引言: 是 IPicture 吧！

還是不行.... 連傳都傳不出去.. 是不是....我的 SCComm.AppServer ===> variant 並不是 olevariant ??? 方便的話.....這是我的msn chih_kuan@hotmail.com

这种情况下，我通常喜欢用 BSTR。    不管是图片，还是其它BLOB的DATA，比如一个FILE，都是一串BINARY的数据。都可以放进字符串里，也就是BSTR里。    比如，可以这样写：    

var
  S:String;
  Mem:TMemoryStream;
  Pic:TPicture;
procedure
  Mem:=TMemoryStream.Create;
  try
    Pic.SaveToStream(Mem);
    SetLength(S,Mem.Size);
    Mem.Read(S[1],Mem.Size);
  finally
  end;
end;    当然，最后把这个S作为接口函数的结果传给客户端。客户端反过来恢复就行了。    

引言: 这种情况下，我通常喜欢用 BSTR。 不管是图片，还是其它BLOB的DATA，比如一个FILE，都是一串BINARY的数据。都可以放进字符串里，也就是BSTR里。 比如，可以这样写：

var
  S:String;
  Mem:TMemoryStream;
  Pic:TPicture;
procedure
  Mem:=TMemoryStream.Create;
  try
    Pic.SaveToStream(Mem);
    SetLength(S,Mem.Size);
    Mem.Read(S[1],Mem.Size);
  finally
  end;
end;    当然，最后把这个S作为接口函数的结果传给客户端。客户端反过来恢复就行了。    

呃...我現在就是用這種方式..... 但有些問題.... 況且..資料庫裡字串欄位的長度也有限制~~~ 所以我才想改採另一種方式

由Client 先將圖片存為 Stream 再轉換為 OleVariant 傳送出去 ====>請問.....一個是class 一個是 type ... 我要如何轉呢??

------
叔叔有練過,初學者不要學。

function MemoryStreamToOleVariant(Strm: TMemoryStream): OleVariant; var Data: PByteArray; begin Result := VarArrayCreate([0, Strm.Size - 1], varByte); Data := VarArrayLock(Result); try Strm.Position := 0; Strm.ReadBuffer(Data^, Strm.Size); finally VarArrayUnlock(Result); end; end; function OleVariantToMemoryStream(OV: OleVariant): TMemoryStream; var Data: PByteArray; Size: integer; begin Result := TMemoryStream.Create; try Size := VarArrayHighBound (OV, 1) - VarArrayLowBound(OV, 1) 1; Data := VarArrayLock(OV); try Result.Position := 0; Result.WriteBuffer(Data^, Size); finally VarArrayUnlock(OV); end; except Result.Free; Result := nil; end; end; {Cleint } var MemoryStream: TMemoryStream; BinaryData : OleVariant; begin MemoryStream := TMemoryStream.Create; try Image1.Picture.Graphic.SaveToStream(MemoryStream); BinaryData := MemoryStreamToOleVariant(MemoryStream); {呼叫APPSERVER 自訂 Method} APPSERVER.PICTEST(BinaryData); finally MemoryStream.Free; end; end; IPicture 也可以 Variant 也可以。

wameng大大.....可以了... 我現在可以用olevariant 傳到ap端了.... 剩下的我可以自己把它用blob 存到server 去了... 但在此..在請教一個相關問題... 如果..我從ap端傳回到client ... 要如何把這串stream顯示在image上....???? 謝謝你....

------
叔叔有練過,初學者不要學。

要引用回來，應該也是不難。 var BinaryData : OleVariant; Stream: TMemoryStream; begin {APPSERVER 自訂Method 回傳 OleVariant} BinaryData := APPSERVER.GetPicture; Stream := OleVariantToMemoryStream(BinaryData); Try Stream.Position := 0; Image1.Picture.Graphic.LoadFromStream(Stream); finally Stream.free; end; end;

wameng大大........ 有問題了....在Run的時候會變這樣.... 請問是何原因呢??

------
叔叔有練過,初學者不要學。

會發生 Access V..... 的問題。 主要因素為 Image2.Picture.Graphic 尚未建立類別。 若該圖片為 JPEG Jpeg :TJpegimage; begin Jpeg :=TJpegimage.Create; Try Jpeg.LoadFromStream(Stream); Image2.Picture.Assign(Jpeg); finally Jpeg.Free; end;

貼全來好了！ var BinaryData : OleVariant; Stream: TMemoryStream; Jpeg :TJpegimage; begin { Stream to Variant} Stream := TMemoryStream.Create; Try Image1.Picture.Graphic.SaveToStream(Stream); BinaryData := MemoryStreamToOleVariant(Stream); finally Stream.Free; end; { Varinat to Stream} Stream := OleVariantToMemoryStream(BinaryData); Try Stream.Position := 0; Jpeg :=TJpegimage.Create; Try Jpeg.LoadFromStream(Stream); Image2.Picture.Assign(Jpeg); finally Jpeg.Free; end; finally Stream.Free; end; end;

wameng....tks...... 都弄好了... 感謝你為我解決了延宕半年之久的問題... 謝謝....^_^

------
叔叔有練過,初學者不要學。