引言: 小弟使用ServerSocket撰寫網路檔案傳輸程式的伺服器端，但是一但Client端在檔案傳輸過程中間中斷，則Server這邊就會出現Access Violation的錯誤，且程式也為之中斷，請教要如何使錯誤被跳過（不出現錯誤視窗），且程式能持續進行？ 謝謝您！

danielj 你好: 你的程式碼呢?? 是否方便貼上來，幫你看看?? --

引言: 首先感謝RaynorPao的熱心，以下是Server端程式的重點部分，請RaynorPao及眾高手們幫忙看看… 附註： (1)我主要是藉由Server端所收到的文字檔決定是否送出圖片及送出數量，如果在尚未傳送完畢前Client端因故離線或者是發生錯誤，則Server這邊會出現Access Violation的錯誤，原本以為在OnError那邊將ErrorCode設為0就可以了，但是好像沒那麼容易… (2)另外，由於Client端只負責發一次text形式指令給Server，剩下就只有收資料的份，大概不會是Client端的問題，故Client端程式暫不附上… //--------------------------------------------------------------------------- void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender, TCustomWinSocket *Socket) { AnsiString command = Socket->ReceiveText(); AnsiString filename; if (command=="Command_1") { for (int i=0;i<1000;i ) { filename.printf("d",i&); filename=JPEG_PATH filename ".jpg"; SendImage0(filename); } } else if (command=="Command_2") SendImage0("c:\\0000.jpg"); else if (command=="Command_3") SendImage0("c:\\0002.jpg"); } //--------------------------------------------------------------------------- void TForm1::SendImage0(AnsiString image_name) { TMemoryStream *msFile=new TMemoryStream; msFile->LoadFromFile(image_name); 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(SLEEP_TIME); } StatusBar1->SimpleText = image_name "(" mp.dwTotalDataSize "Byte)傳送完成" ; delete msFile; } //--------------------------------------------------------------------------- void __fastcall TForm1::ServerSocket1ClientError(TObject *Sender, TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode) { ErrorCode = 0 ; StatusBar1->SimpleText = "Error from Client socket" ; StatusBar1->SimpleText = "Client 端發生錯誤！已中斷與" Socket->RemoteHost "之連線，請重新開啟伺服器" ; for(int i=0; iSocket->ActiveConnections; i ) { if(Socket->RemoteAddress==ServerSocket1->Socket->Connections[i]->RemoteAddress) { ServerSocket1->Socket->Disconnect(i); } } }

danielj 你好:
小弟我大概已經看過你的程式碼了，應該是參考站內某篇範例改寫而成，因此，
給你一個架構上的建議 (這是我當初一直想更新的版本)
( >
    --