Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Winsock Datei senden
Autor: sico
Datum: 23.05.05 13:39
Dieter schrieb: Zitat: Also ich bin der Meinung, dass in dem Tipp alles sehr gut beschrieben ist und auch der Quellcode ausreichend dokumentiert ist, so dass es verständlich sein sollte. Hallo Dieter, kann schon sein... Ich wollte eigendlich zuerst nur wissen wie man eine Datei Binär einliest und verschickt. Naja das war aus dem Code nicht auf anhieb zu sehen. Ich habe es aber hinbekommen. So sende ich eine Binärdatei. Dim daten As String * 1024 Open "c:\1.zip" For Binary As 1 Do While Not EOF(1) Get #1, , daten DoEvents Text1 = daten Winsock1.SendData daten Loop Close #1 Und zusammen setze ich sie so... Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) 'wenn daten ankommen Dim b() As Byte 'ein bytedatenfeld Winsock1.GetData b(), vbByte Put #2, , b() 'alle daten byteweise speichern text1 = b() End Sub Bei mir muss es immer so einfach wie möglich sein. Naja der Code ist noch nicht ausgereift. Aber es geht. cu sico

Winsock Datei senden	1.126	sico	23.05.05 11:07
Re: Winsock Datei senden	705	Joerg	23.05.05 12:32
Re: Winsock Datei senden	671	sico	23.05.05 12:40
Re: Winsock Datei senden	658	Dieter	23.05.05 13:32
Re: Winsock Datei senden	653	sico	23.05.05 13:39
Re: Winsock Datei senden	616	Joerg	23.05.05 15:58
Re: Winsock Datei senden	638	sico	23.05.05 16:25
Re: Winsock Datei senden	549	Gateway	29.01.06 20:28
Re: Winsock Datei senden	651	sico	30.01.06 11:26

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen