Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Bilder mit Winsock versenden
Autor: BaarLun
Datum: 28.07.02 00:39
Hallo, Obj.Picture gibt nur eine Zugriffsnummer auf eine Grafik im Windowsspeicher wieder. Wenn du die Grafik speicherst, und dann die Grafikdatei verschickst, dürfte es funktionieren.   Dim Temp As String, DTemp as String savepicture Picture1.Picture, "c:Temp.Bmp" Temp=space(filelen("C:Temp.bmp")) open "C:Temp.bmp" for binary as 1 get #1,1,dtemp close Winsock1.senddata DTemp end sub "/pre" Blos beim Zusammensetzen der Datei musst du aufpassen, weil nur Pakete von ca. 8192 Byte auf einmal gesendet werden. Also mußt du vorher vielleicht noch ein Mini-Protokoll entwickeln, mit dem du entweder die zu übertragene Datenmenge vorher bekannt gibst, oder das Jeweilige Ende der Datei kennzeichnest (zb. eine Bestimmte Zeichenfolge), damit der Empfänger der Grafik auch weiß, wieviele der empfangenen Daten zur Datei gehören und diese dann jeweils nacheinander in eine Datei schreibt. Bis dann, BaarLun PS: A) Falls du einen Trojaner bauen willst: lass es, es ist unter VB zu langsam. B) Falls du es trotzdem machen willst, kann ich dir ja mal einen Versuch von mir schicken.

Bilder mit Winsock versenden	72	captain nemo	27.07.02 14:03
Re: Bilder mit Winsock versenden	60	BaarLun	28.07.02 00:39

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