//----server 端
#include 
#pragma hdrstop    #include "Unit1.h"
TMemoryStream *gmsFile=NULL;    //---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
   : TForm(Owner)
{
   ServerSocket1->Port=4000;
   ServerSocket1->Open();
   gmsFile=new TMemoryStream;
}
__fastcall TForm1::~TForm1()
{
   if(gmsFile) delete gmsFile;
   ServerSocket1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   TMemoryStream *msFile=new TMemoryStream;
   msFile->LoadFromFile("hand(s2c).jpg");
   MYPACK mp;
   int i=0;
   int block=(msFile->Size%MAX_DATASIZE==0)?
      msFile->Size/MAX_DATASIZE: msFile->Size/MAX_DATASIZE 1;       for(i=0; iSize;
      mp.dwThisDataSize=((i 1)*MAX_DATASIZE>msFile->Size)?
         msFile->Size-i*MAX_DATASIZE: MAX_DATASIZE;
      msFile->Position=i*MAX_DATASIZE;
      msFile->Read(mp.pbThisData, mp.dwThisDataSize);          ServerSocket1->Socket->Connections[0]->SendBuf(&mp, sizeof(MYPACK));
      Sleep(10);
   }
   delete msFile;
}
//---------------------------------------------------------------------------    void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
   MYPACK mp;
   Socket->ReceiveBuf(&mp, sizeof(MYPACK));       AnsiString sz=(AnsiString)mp.szHeader;
   if(sz.SubString(1, 4)=="FILE")
   {
      if(sz=="FILE-START")
      {
         gmsFile->Size=mp.dwTotalDataSize;
         gmsFile->Position=0;
      }
      gmsFile->Write(mp.pbThisData, mp.dwThisDataSize);
      if(sz=="FILE-END")
      {
         gmsFile->Position=0;
         gmsFile->SaveToFile(mp.szFileName);
         gmsFile->Clear();
      }
   }
}

//------client 端
#include 
#pragma hdrstop
#include "Unit1.h"
TMemoryStream *gmsFile=NULL;
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//-------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
   : TForm(Owner)
{
   ClientSocket1->Address="127.0.0.1";
   ClientSocket1->Port=4000;
   ClientSocket1->Open();
   gmsFile=new TMemoryStream;
}
__fastcall TForm1::~TForm1()
{
   if(gmsFile) delete gmsFile;
   ClientSocket1->Close();
}
//-------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   TMemoryStream *msFile=new TMemoryStream;
   msFile->LoadFromFile("hand(c2s).jpg");
   MYPACK mp;
   int i=0;
   int block=(msFile->Size%MAX_DATASIZE==0)?
      msFile->Size/MAX_DATASIZE: msFile->Size/MAX_DATASIZE 1;       for(i=0; iSize;
      mp.dwThisDataSize=((i 1)*MAX_DATASIZE>msFile->Size)?
         msFile->Size-i*MAX_DATASIZE: MAX_DATASIZE;
      msFile->Position=i*MAX_DATASIZE;
      msFile->Read(mp.pbThisData, mp.dwThisDataSize);          ClientSocket1->Socket->SendBuf(&mp, sizeof(MYPACK));
      Sleep(10);
   }
   delete msFile;
}
//-------------------------------------------------------------------
void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
      TCustomWinSocket *Socket)
{
   MYPACK mp;
   Socket->ReceiveBuf(&mp, sizeof(MYPACK));       AnsiString sz=(AnsiString)mp.szHeader;
   if(sz.SubString(1, 4)=="FILE")
   {
      if(sz=="FILE-START")
      {
         gmsFile->Size=mp.dwTotalDataSize;
         gmsFile->Position=0;
      }
      gmsFile->Write(mp.pbThisData, mp.dwThisDataSize);
      if(sz=="FILE-END")
      {
         gmsFile->Position=0;
         gmsFile->SaveToFile(mp.szFileName);
         gmsFile->Clear();
      }
   }
} 

引言: 我按照站上http://delphi.ktop.com.tw/topic.php?topic_id=25913，http://delphi.ktop.com.tw/topic.php?topic_id=25912的兩個範例，嘗試用bcb5來作，有些問題想請教各位大大 Question: 在server 端 1.Button1Click以及ServerSocket1ClientRead這兩部分作了什麼動作呢? 其中 "FILE-START"，"FILE-END"，"FILE-CONTINUE"有什麼函意嗎? 2.執行程式會發生"list index out of bounds(0) " 在client端 1.Button1Click以及ServerSocket1ClientRead這兩部分作了什麼動作呢? 其中 "FILE-START"，"FILE-END"，"FILE-CONTINUE"有什麼函意嗎? 2.執行程式會發生"Asynchronous socket error 10061" 第一次接觸網路程式，有很多地方不懂，所以想請大大們解惑^^" 祝：如意

  if(接收第一個封包)
  {
    //接收第一個封包的處理
  }
  else
    if(接收中間的封包)
    {
      //接收中間封包的處理
    }
    else  //(接收最後的封包)
    {
      //接收最後封包的處理
    }

引言: 我按照站上http://delphi.ktop.com.tw/topic.php?topic_id=25913，http://delphi.ktop.com.tw/topic.php?topic_id=25912的兩個範例，嘗試用bcb5來作，有些問題想請教各位大大 Question: 在server 端 1.Button1Click以及ServerSocket1ClientRead這兩部分作了什麼動作呢? 其中 "FILE-START"，"FILE-END"，"FILE-CONTINUE"有什麼函意嗎? 2.執行程式會發生"list index out of bounds(0) " 在client端 1.Button1Click以及ServerSocket1ClientRead這兩部分作了什麼動作呢? 其中 "FILE-START"，"FILE-END"，"FILE-CONTINUE"有什麼函意嗎? 2.執行程式會發生"Asynchronous socket error 10061" 第一次接觸網路程式，有很多地方不懂，所以想請大大們解惑^^" 祝：如意

引言: 在client端 2.執行程式會發生"Asynchronous socket error 10061" 第一次接觸網路程式，有很多地方不懂，所以想請大大們解惑^^" 祝：如意 就我所知這是因為你的SOCKET斷線了，但是卻還一直在傳送資料，所以你應該加一個判斷斷線時的處理。

 #define MAX_STRLEN 16
#define MAX_DATASIZE 1024
typedef struct _MyPack
{
   char szHeader[MAX_STRLEN];
   char szFileName[MAX_STRLEN];
   DWORD dwPackTotal;
   DWORD dwPackCount;
   DWORD dwTotalDataSize;
   DWORD dwThisDataSize;
   BYTE pbThisData[MAX_DATASIZE];
} MYPACK;

引言:

引言: 在client端 2.執行程式會發生"Asynchronous socket error 10061" 第一次接觸網路程式，有很多地方不懂，所以想請大大們解惑^^" 祝：如意 就我所知這是因為你的SOCKET斷線了，但是卻還一直在傳送資料，所以你應該加一個判斷斷線時的處理。

好像不是斷線問題，測試了一下，程式會跑到clientsocketerror然後停止了 並不會跑到clientsocketdisconnect這個地方 在程式中還有一些地方不懂想請問前輩們^^" Q1: 程式中下列這段

 #define MAX_STRLEN 16
#define MAX_DATASIZE 1024
typedef struct _MyPack
{
   char szHeader[MAX_STRLEN];
   char szFileName[MAX_STRLEN];
   DWORD dwPackTotal;
   DWORD dwPackCount;
   DWORD dwTotalDataSize;
   DWORD dwThisDataSize;
   BYTE pbThisData[MAX_DATASIZE];
} MYPACK;

這是不是所謂的封包，一定要定義這些才能傳送檔案嗎? 這種定義是制式的嗎? Q2:下面兩段程式定義差別是? 1. gmsFile=new TMemoryStream; 2. TMemoryStream *msFile=new TMemoryStream;

引言: 其實我之前也常發生這樣的狀況，你可以檢查一下是不是有那個地方你把socket server關掉了，但是client卻還在繼續傳，我看到網上有人在clientsocketerror 將errorcode = 0;好像可以讓這個訊息不出現，但是並不能真正解決這個問題，但如果你將errorcode = 0;後再重建socket看看是不是可行。 還有你試一下在clientsocketdisconnect、clientsocketerror、clientsocketconnect都做一個出輸訊息就可以知道是不是斷線了。 MYPACK只定義要互傳檔案的資料內容而己，其實並不是那麼須要的。

引言: 意思是說MYPACK可以刪掉囉，如果刪掉的話，那 ServerSocket1->Socket->Connections[0]->SendBuf(&mp, sizeof(MYPACK)) 這個地方要如何改寫才可以達到傳檔的功能?

引言:

引言: 意思是說MYPACK可以刪掉囉，如果刪掉的話，那 ServerSocket1->Socket->Connections[0]->SendBuf(&mp, sizeof(MYPACK)) 這個地方要如何改寫才可以達到傳檔的功能?

傳檔的話就我所知是不能用sendstring的，收檔會有問題(char *跟string之間的問題) 不一定要用mypake這個strcut啦 下面有我之前寫的傳檔，裡面就沒有用到struct，你可以參考看看 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=77282 另外，我有遇到一個錯誤訊息"Asynchronous socket error 10053" 是在我server client連線建立後傳第一個封包的時後出現的(client -> server)， 用seniffer看client端跟本沒送出封包，防火牆也沒開 這..是什麼情況丫??>"<