各位前輩你們好 請問一下…若server端傳送的是byte的資料 那我應該是利用receivebuf來收資料 我的程式如下

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
 data:array of byte;
 I,j:integer;
begin
 i:=ClientSocket1.Socket.ReceiveLength;
 SetLength(data,i 1);
 Socket.ReceiveBuf(data,i);
 for j:=1 to i do
  memo1.lines.add(inttostr(data[j]));,--->每次都出錯在這行
end;

我有去參考過其他的文章 大部份都是針對傳送檔案的方式寫的 也有c 類似的問題 我將c 的寫法改為delphi的方式 但是一樣不行 請問是那裡錯誤的觀念 麻煩幫忙一下…謝謝

SORRY~~我找到問題所在 原來是陣列需預設大小 那請問一下 若是無法確定傳送的資料大小時該怎做 謝謝

引言:

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
 data:array of byte;
 I,j:integer;
begin
 i:=ClientSocket1.Socket.ReceiveLength;
 SetLength(data,i 1);
 Socket.ReceiveBuf(data,i);
 for j:=1 to i do
  memo1.lines.add(inttostr(data[j]));,--->每次都出錯在這行
end;

for j:=1 to i do 這行改成 for j := 0 to i - 1 do 試試 -- 向 KTop 的弟兄們致敬! 發表人 - hagar 於 2004/07/22 08:49:45

謝謝hagar大大的幫忙 這招試過…不行 昨天我的解決方式是

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
 data:byte;--->設為單一變數
 I,j:integer;
begin
 Socket.ReceiveBuf(data,1);--->每次讀取一筆資料       
 memo1.lines.add(inttostr(data));
end;

這樣就可以了 謝謝hagar大大

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.