دستور Mid برای باینری

[mpmsoft]

دوستان من از MidB استفاده کردم ولی مشکل دارم توش اونم فرض کنید می خواهید یک فایل رو از SQL خورد خورد بخونید و توی فایل بنویسید

MidB مثلا باینری برمی گردونه ، من از ADODB.Stream استفاده می کنم ولی خطایی که میده اینه که نمی تونی این تایپ رو توی Stream بنویسه



Dim Strm as ADODB.Stream


Strm.Type = adTypeBinary
Strm.Open
Strm.Write MidB(RS("data"), 1, 104600)


تایپ این فیلد توی بانک Image هستش

[Mbt925]

احتمالا اگه به اینصورت بنویسید مشکل حل بشه:





Dim Strm As New Stream
Dim arrByte() As Byte

arrByte = MidB(RS("data").Value, 1, 104600)

Strm.Type = adTypeBinary
Strm.Open
Strm.Write arrByte
Strm.Close

[mpmsoft]

اتفاقا فبل از اینکه این تاپیک رو بزنم این روش رو هم تست کردم ولی با خطا مواجه شدم

[Mbt925]

من به این صورت تست کردم، مشکلی نداشت:





Dim Strm As New Stream
Dim arrByte() As Byte

arrByte = MidB(Picture1.Picture, 1, 104600)

Strm.Type = adTypeBinary
Strm.Open
Strm.Write arrByte
Strm.Close