послать stdPicture по винсоку

[Лёха_Virus]

с отправкой всё оки, а вот приём... кодом в меня не кинете?

[Amed]

Winsock шлёт данные в формате String и (или) Variant... Сначала проконвертируй stdPicture в них %)

[GoGosha]

Winsock шлёт данные в формате String и (или) Variant... Сначала проконвертируй stdPicture в них %)

Не выдет! Str(IPictureDisp) ввозвращает handle окна, при этом на удалённом компьютере уже должна-быть эта картинка, причём с таким Handel-om. Я рекомендую сделать SavePicture(IPictureDisp, App.Path + "\Picture.bmp") и отослать как файл

[Vi]

Воспользуйся PropertyBag. Сохранив туда картинку, можно передать массив байт, принять в клиенте, и через клиентский PropertyBag восстановить в реальную картинку.
Сервер:

Код: Выделить всё

  Dim p As IPictureDisp, pb As PropertyBag, b() As Byte

  On Error Resume Next
  Set pb = New PropertyBag

  Set p = LoadPicture("...") ' или из Object.Picture
  pb.WriteProperty "Image", p
   
  b = pb.Contents
' передаем массив b


Клиент:

Код: Выделить всё

  Dim p As IPictureDisp, pb As PropertyBag, b() As Byte

  On Error Resume Next
  Set pb = New PropertyBag

' получаем массив b
  pb.Contents = b

  Set Picture1.Picture = pb.ReadProperty("Image")


[Лёха_Virus]

класс! спасиба!