| |
Jobs Suche, GesucheRe: Suche Programmierer für eine TCP-IP Class! | | | Autor: Cheffboss | Datum: 10.02.15 10:46 |
| Hallo!
Ich habe inzwischen Zeit meine eigene Class programmieren können.
Leider, habe ich es bis jetzt nur geschafft Strings über TCP/IP zu verschicken!
Ich möchte aber auch, dass man Dateien verschicken kann.
Falls jemand den Auftrag möchte, melden Sie sich bitte.
Ich würde für die zwei Subs, 5 € per PayPal zahlen!
Ist das OK, für Sie?
Die Bezahlung erfolgt, sobald ich es getestet habe, und fehlerfrei ist!
Nun die Beschreibung:
-----------------------------
Ich möchte dass der Client eine Datei zu gesendet bekommt.
Nun soll geprüft werden, ist eine Datei oder sind es normale Strings(Befehle).
Falls es eine Datei ist, Diese gerade verschickt wird.
Soll er mir den Fortschritt in 1 – 100% anzeigen.
Außerdem die Events für den „start, erfolgreich, fehler, fertig“!
Ich habe hier unten ein Beispielcode, da mit Sie verstehen was ich meine!
Bitte um Antwort!
Vielen Dank!
Client:
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) _
Handles Button3.Click
' Datei auslesen und versenden!
Dim datei As String = "F:\Temp\atomzeit.exe"
Dim bytes() As Byte = GetBytes(datei)
Dim result = Convert.ToBase64String(bytes)
Winsock1.SendenServer(result) ' String senden
End Sub Server:
Private Sub Winsock1_DateiEmpfangClient(dateiempfang As String) Handles _
Winsock1.DateiEmpfangClient
Me.TextBox3.Text = dateiempfang
' Dateien Empfangen
If dateiempfang Is SendFile Then
' Wenn eine Datei verschickt wird!
Dim bytesBack = Convert.FromBase64String(Me.TextBox3.Text)
System.IO.File.WriteAllBytes(Application.StartupPath & _
"\Downloads\atomzeit.exe", bytesBack)
' Senden mit Progressbar 1 - 100%
' Event: gestartet, erfolgreich, fehler, fertig....
End If
' Wenn keine Datei dann hier den String auslesen.....
If Me.TextBox3.Text = "test" Then
MsgBox("test")
End If
End Sub
Beitrag wurde zuletzt am 10.02.15 um 10:52:49 editiert. | |
| 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 |
|
|
TOP! Unser Nr. 1
Neu! sevDataGrid 3.0
Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|