vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Fortgeschrittene
Re: Download verzeichnis bestimmen 
Autor: marina
Datum: 25.08.06 16:11

Und Teil 6
private string readLine()
{

while(true)
{
bytes = clientSocket.Receive(buffer, buffer.Length, 0);
mes += ASCII.GetString(buffer, 0, bytes);
if(bytes < buffer.Length)
{
break;
}
}

char[] seperator = {'\n'};
string[] mess = mes.Split(seperator);
for (int i=0;i<mess.Length-1;i++)
{
Console.WriteLine(mess);
}
if(mes.Length > 2)
{
mes = mess[mess.Length-2];
}
else
{
mes = mess[0];
}

if(!mes.Substring(3,1).Equals(" "))
{
return readLine();
}

if(debug)
{
for(int k=0;k < mess.Length-1;k++)
{
Console.WriteLine(mess[k]);
}
}
return mes;
}

private void sendCommand(String command)
{

Byte[] cmdBytes =
Encoding.ASCII.GetBytes((command+"\r\n").ToCharArray());
clientSocket.Send(cmdBytes, cmdBytes.Length, 0);

Console.WriteLine(command);
readReply();
}

private Socket createDataSocket()
{

sendCommand("PASV");

if(retValue != 227)
{
throw new IOException(reply.Substring(4));
}

int index1 = reply.IndexOf('(');
int index2 = reply.IndexOf(')');
string ipData =
reply.Substring(index1+1,index2-index1-1);
int[] parts = new int[6];

int len = ipData.Length;
int partCount = 0;
string buf="";

for (int i = 0; i < len && partCount <= 6; i++)
{

char ch = Char.Parse(ipData.Substring(i,1));
if (Char.IsDigit(ch))
buf+=ch;
else if (ch != ',')
{
throw new IOException("Malformed PASV reply: " +
reply);
}

if (ch == ',' || i+1 == len)
{

try
{
parts[partCount++] = Int32.Parse(buf);
buf="";
}
catch (Exception)
{
throw new IOException("Malformed PASV reply: " +
reply);
}
}
}

string ipAddress = parts[0] + "."+ parts[1]+ "." +
parts[2] + "." + parts[3];

int port = (parts[4] << 8) + parts[5];

Socket s = new
Socket(AddressFamily.InterNetwork,SocketType.Stream,ProtocolType.Tcp);
IPEndPoint ep = new
IPEndPoint(Dns.Resolve(ipAddress).AddressList[0], port);

try
{
s.Connect(ep);
}
catch(Exception)
{
throw new IOException("Can't connect to remote server");
}

return s;
}

}
}

Reicht's dir so????
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Download verzeichnis bestimmen1.191marina25.08.06 10:13
Re: Download verzeichnis bestimmen744ModeratorFZelle25.08.06 11:45
Re: Download verzeichnis bestimmen732marina25.08.06 11:48
Re: Download verzeichnis bestimmen731uliop197825.08.06 14:16
Re: Download verzeichnis bestimmen712ModeratorFZelle25.08.06 14:24
Re: Download verzeichnis bestimmen770uliop197825.08.06 14:35
Re: Download verzeichnis bestimmen773ModeratorFZelle27.08.06 20:01
Re: Download verzeichnis bestimmen758uliop197828.08.06 10:42
Re: Download verzeichnis bestimmen856ModeratorFZelle28.08.06 20:19
Re: Download verzeichnis bestimmen771uliop197829.08.06 09:08
Re: Download verzeichnis bestimmen779marina25.08.06 16:06
Re: Download verzeichnis bestimmen753marina25.08.06 16:08
Re: Download verzeichnis bestimmen694marina25.08.06 16:10
Re: Download verzeichnis bestimmen810marina25.08.06 16:11
Re: Download verzeichnis bestimmen694marina25.08.06 16:11
Re: Download verzeichnis bestimmen742marina25.08.06 16:09
Re: Download verzeichnis bestimmen765uliop197825.08.06 16:56
Re: Download verzeichnis bestimmen740marina25.08.06 18:01

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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 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