Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi Datei über DataSnap Verbindung senden

**himitsu**

So, hab mich nun doch nochmal an Emba gewendet.

http://qc.embarcadero.com/wc/qcmain.aspx?d=90995

Ich liebe dieses vor Datenschutz mangelnde Meldesystem, welches den Post löscht und man alle neu schreiben müßte, wenn man nicht schnell genug schreibt, bevor man wieder ausgeloggt wird.
Und wenn sich wer über das größtenteils Goggle-Translate-Englisch beschwert, dann steige ich wieder auf den Babelfish um.

[add]
noch 'ne kleine Demoanwendung

markieren

Code:

			Size of Stream (0 = Exit, -1 = basic tests): -1

ServerMethods1Client.SendToServer

  Data.ClassName = TMemoryStream

  Data.Size      = 0

ServerMethods1Client.ReciveFromServer

  Result.ClassName = TDBXBytesStream

  Result.Size      = 0 (0)

ServerMethods1Client.SendToServer

  Data.ClassName = TMemoryStream

  Data.Size      = 100

ServerMethods1Client.ReciveFromServer

  Result.ClassName = TDBXBytesStream

  Result.Size      = 100 (100)

ServerMethods1Client.SendToServer

  Data.ClassName = TMemoryStream

  Data.Size      = 29000

ServerMethods1Client.ReciveFromServer

  Result.ClassName = TDBXBytesStream

  Result.Size      = 29000 (29000)

ServerMethods1Client.SendToServer

  Data.ClassName = TMemoryStream

  Data.Size      = 32000

ServerMethods1Client.ReciveFromServer

  Result.ClassName = TDBXStreamReaderStream

  Result.Size      = -1 (32000)

ServerMethods1Client.SendToServer

  Data.ClassName = TMemoryStream

  Data.Size      = 64000

ServerMethods1Client.ReciveFromServer

  Result.ClassName = TDBXStreamReaderStream

  Result.Size      = -1 (64000)

ServerMethods1Client.SendToServer

  Data.ClassName = TMemoryStream

  Data.Size      = 1000000

ServerMethods1Client.ReciveFromServer

  Result.ClassName = TDBXStreamReaderStream

  Result.Size      = -1 (1000000)

Size of Stream (0 = Exit, -1 = basic tests):

markieren

Code:

			Starting TServerContainer1

Press ESC to stop the server

TServerMethods1.SendToServer

  Data.ClassName = TDBXBytesStream

  Data.Size      = 0 (0)

TServerMethods1.ReciveFromServer

  Result.ClassName = TMemoryStream

  Result.Size      = 0

TServerMethods1.SendToServer

  Data.ClassName = TDBXBytesStream

  Data.Size      = 100 (100)

TServerMethods1.ReciveFromServer

  Result.ClassName = TMemoryStream

  Result.Size      = 100

TServerMethods1.SendToServer

  Data.ClassName = TDBXBytesStream

  Data.Size      = 29000 (29000)

TServerMethods1.ReciveFromServer

  Result.ClassName = TMemoryStream

  Result.Size      = 29000

TServerMethods1.SendToServer

  Data.ClassName = TDBXStreamReaderStream

  Data.Size      = -1 (32000)

TServerMethods1.ReciveFromServer

  Result.ClassName = TMemoryStream

  Result.Size      = 32000

TServerMethods1.SendToServer

  Data.ClassName = TDBXStreamReaderStream

  Data.Size      = -1 (64000)

TServerMethods1.ReciveFromServer

  Result.ClassName = TMemoryStream

  Result.Size      = 64000

TServerMethods1.SendToServer

  Data.ClassName = TDBXStreamReaderStream

  Data.Size      = -1 (1000000)

TServerMethods1.ReciveFromServer

  Result.ClassName = TMemoryStream

  Result.Size      = 1000000

und wenn ServerContainerUnit.TServerContainer1.DSTCPServerT ransport1.BufferKBSize auf 1000 gesetzt ist, dann sieht es so aus:

markieren

Code:

			**************************************************

*** Client ***************************************

**************************************************

Starting TServerContainer1

Press ESC to stop the server

TServerMethods1.SendToServer

  Data.ClassName = TDBXBytesStream

  Data.Size      = 0 (0)

TServerMethods1.ReciveFromServer

  Result.ClassName = TMemoryStream

  Result.Size      = 0

TServerMethods1.SendToServer

  Data.ClassName = TDBXBytesStream

  Data.Size      = 100 (100)

TServerMethods1.ReciveFromServer

  Result.ClassName = TMemoryStream

  Result.Size      = 100

TServerMethods1.SendToServer

  Data.ClassName = TDBXBytesStream

  Data.Size      = 29000 (29000)

TServerMethods1.ReciveFromServer

  Result.ClassName = TMemoryStream

  Result.Size      = 29000

TServerMethods1.SendToServer

  Data.ClassName = TDBXStreamReaderStream

  Data.Size      = -1 (32768)

TServerMethods1.ReciveFromServer

  Result.ClassName = TMemoryStream

  Result.Size      = 32768

TServerMethods1.SendToServer

  Data.ClassName = TDBXStreamReaderStream

  Data.Size      = -1 (65535)

TServerMethods1.ReciveFromServer

  Result.ClassName = TMemoryStream

  Result.Size      = 65535

TServerMethods1.SendToServer

  Data.ClassName = TDBXStreamReaderStream

  Data.Size      = -1 (65536)

TServerMethods1.ReciveFromServer

  Result.ClassName = TMemoryStream

  Result.Size      = 65536

TServerMethods1.SendToServer

  Data.ClassName = TDBXStreamReaderStream

  Data.Size      = -1 (1000000)

TServerMethods1.ReciveFromServer

  Result.ClassName = TMemoryStream

  Result.Size      = 1000000

**************************************************

*** Server ***************************************

**************************************************

Size of Stream (0 = Exit, -1 = basic tests): -1

ServerMethods1Client.SendToServer

  Data.ClassName = TMemoryStream

  Data.Size      = 0

ServerMethods1Client.ReciveFromServer

  Result.ClassName = TDBXBytesStream

  Result.Size      = 0 (0)

ServerMethods1Client.SendToServer

  Data.ClassName = TMemoryStream

  Data.Size      = 100

ServerMethods1Client.ReciveFromServer

  Result.ClassName = TDBXBytesStream

  Result.Size      = 100 (100)

ServerMethods1Client.SendToServer

  Data.ClassName = TMemoryStream

  Data.Size      = 29000

ServerMethods1Client.ReciveFromServer

  Result.ClassName = TDBXBytesStream

  Result.Size      = 29000 (29000)

ServerMethods1Client.SendToServer

  Data.ClassName = TMemoryStream

  Data.Size      = 32768

ServerMethods1Client.ReciveFromServer

  Result.ClassName = TDBXBytesStream

  Result.Size      = 32768 (32768)

ServerMethods1Client.SendToServer

  Data.ClassName = TMemoryStream

  Data.Size      = 65535

ServerMethods1Client.ReciveFromServer

  Result.ClassName = TDBXBytesStream

  Result.Size      = 65535 (65535)

ServerMethods1Client.SendToServer

  Data.ClassName = TMemoryStream

  Data.Size      = 65536

ServerMethods1Client.ReciveFromServer

  Result.ClassName = TDBXStreamReaderStream

  Result.Size      = -1 (65536)

ServerMethods1Client.SendToServer

  Data.ClassName = TMemoryStream

  Data.Size      = 1000000

ServerMethods1Client.ReciveFromServer

  Result.ClassName = TDBXStreamReaderStream

  Result.Size      = -1 (1000000)

Size of Stream (0 = Exit, -1 = basic tests):

Einzelnen Beitrag anzeigen

AW: Datei über DataSnap Verbindung senden