delphi K3读取基础资料图片

Question

一下代码是VB写的，如何转换成delphi

1）从数据库取得图片的二进制数据
Dim bytFile() As Byte
'SQL读取:select FFile,FFileName from t_Accessory where FItemID=？
bytFile= rs.Fields("FFile")

2)保存到文件
Dim m_sTempFileName As String
Dim sFileName As String

m_sTempFileName = App.Path + "\" + rs.Fields("FFileName") + ".tmp"
sFileName = App.Path + "\" + rs.Fields("FFileName")

Dim smFile As adodb.Stream

Set smFile = New adodb.Stream

smFile.Type = adTypeBinary

smFile.Open

smFile.Write bytFile

smFile.SaveToFile m_sTempFileName, adSaveCreateOverWrite

3)解压缩
Dim ozip As Object
Set ozip = CreateObject("KDZIP.ZIP")
ozip.DeCompress m_sTempFileName, sFileName
Kill m_sTempFileName
Set ozip = Nothing

4)显示出来

Answer 1

调用activex的代码在delphi也是一样的，你随便雇一个初级delphi程序员就能帮你搞定