WinSock og Objekt

Nej, du kan ikke sende et objekt. Det du skal gøre er, at sende objektets data, og oprette et nyt objekt på klientmaskinen.

Har du et foreslag til hvordan det kan gøres!

Nej ikke umiddelbart.

Måske skulle du overveje at sende noget XML og så instansiere objektet udfra dit xml-træ?

Tag evt. et kig på http://msdn.microsoft.com/xml/default.asp

/Jennemaan

Ja, XML er en god idé, ellers kan du bruge en almindelig record/struct til at overføre data ...

->wisen

Jamen hvordan kan jeg bruge en record/struct hvis jeg kun kan sende en streng med senddata!?

Du skal heller ikke bruge senddata, men send :

send (SOCKET s, const char *buf, int len, int flags)

Her laver du en buffer med det der skal sendes.

-> wisen

For mig og se ligner det lidt noget C kode!?!

:-)

Ja, det er fordi det er C kode. Det er selve API kaldet. Du må kunne finde en VB oversættelse :) Det var mere for at vise dig, at du skulle bruge det funktionskald...

Ups. det er ud til, at VB\'s implementation af send er nonexistent !!

SendData Method
     
Sends data to a remote computer.

Return Value
Void

Syntax
object.SendData data

The SendData method syntax has these parts

Part Description
object An object expression that evaluates to an object in the Applies To list.
data Data to be sent. For binary data, byte array should be used.

Remarks
When a UNICODE string is passed in, it is converted to an ANSI string before being sent out on the network.

... det ser ud til at du bare skal bruge et byte array ...

wisen > jeg tror at deamill bruger winsock kontrollen som følger med vb.

Der skriver han bare

Winsock1.Senddata data

/Jennemaan

jennemaan >> Jeps...

deamill >> Jeg har fundet dette eks :

\'In the General Declarations

Private Declare Sub CopyMemory Lib \"KERNEL32\" Alias \"RtlMoveMemory\" ( _
hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)

Private Type TData
Data1 as String * 10
Data2 as String * 10
End Type

\'In the procedure...
Public Sub SendTheData()
Dim TDataStream as TData
Dim bytData()  as Byte
Dim hSocket    as Long

  \'Assuming gobjWinsockQ has been instantiated and Activated
  hSocket = gobjWinsockQ.Connect(\"TheHostToConnectTo\", 80)

  TDataStream.Data1 = \"12345Test1\"
  TDataStream.Data2 = \"12345Test2\"
  Redim bytData(Len(TDataStream))

  \'Copy the data from the UDT to a byte array
  CopyMemory bytData(0), TDataStream, Len(TDataStream)

  \'Ready to send the data using WinsockQ\'s SendData method
  gobjWinsockQ.SendData hSocket, bytData()

End Sub

Det ser sku\' lidt hardcore ud! men jeg prøver at rode med det :-)