Senden

void SendFile(String ip)
{
     if (Form1->ClientSocket1->Active)
     Form1->ClientSocket1->Active = false;

     Form1->ClientSocket1->Address = ip;
     Form1->ClientSocket1->Open();

     if(Form1->ClientSocket1->Socket->Connected)
     {
     TFileStream *out = new TFileStream(Form1->OpenDialog1->FileName, fmOpenRead);

  out->Seek(0,soFromBeginning);
     char buf[1024];
     int c,b;

     do
     {
        Form3->Label4->Caption = "Uploading...";

        b = out->Read(buf,sizeof(buf));
        c = Form1->ClientSocket1->Socket->SendBuf(buf,b);

        while(c == -1)
        {
        c = Form1->ClientSocket1->Socket->SendBuf(buf,b);
        }

    }
     while(b == sizeof(buf));
     delete out;
  }
}

Empfangen

void __fastcall TForm1::ServerSocket1ClientWrite(TObject *Sender,
      TCustomWinSocket *Socket)
{
TFileStream *in = new TFileStream(Form2->Label1->Caption + "\\" + filelist->Values[Socket->RemoteAddress], fmCreate);

   int bytesReceived(0);
   do
  {
    char buf[1024];
    bytesReceived = Socket->ReceiveBuf(buf, sizeof(buf));
    in->Write(buf, bytesReceived);

  }
   while (bytesReceived != -1);
   delete in;
}

Darf ich überhaupt in einem Socket Event mit einer while Schleife arbeiten ?
Ist die Socket Komponente die richtige ?

Ich hoffe ihr könnt mir nen Tip geben was schief läuft

David

Lies vielleicht mal den Beitrag zum Thema Protokollentwicklung durch.
http://www.c-plusplus.net/forum/viewtopic-var-t-is-43712-and-highlight-is-*bild*+*senden*.html ist übrigens auch recht spannend.

Mir ist aufgefallen das in meinem oberen Beispiel beim senden niemals in Form3->Label4 "Uploading" eingetragen wird, mit anderen Worten muss er beim Senden schon früher aussteigen, aber was mache ich dabei nur falsch ?

wenn ich ja wenigstens ne Fehlermeldung bekommen würde, aber es wird alles ohne murren und knurren kompiliert und ausgeführt.

Was könnte das sein ? Die Verbindung steht da ich Socket Errors abfange und bei On Connected/Disconnect mir ebenfalls einen entsprechenden String im Label anzeigen lasse

Such mal kurz nach Appliaction::ProcessMessages in diesem Forum um mehr Infos zu erhalten.

Ausserdem versteh ich den Rest nicht... was wird wem wo angeworfen das du nicht vestehst?

-junix