關於傳檔的一個問題 |
尚未結案
|
blaze
一般會員 ![]() ![]() 發表:1 回覆:0 積分:0 註冊:2003-02-20 發送簡訊給我 |
下面是我的程式碼 for Delphi 6
所使用的元件為 TServerSocket procedure TMainForm.FileServerClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
FileName: String;
SendFile: File;
Buffer: array[1..1024] of Char;
SourceCount: Integer;
begin
FileName := Socket.ReceiveText; FileName := ProgramPath ImagePath FileName;
// 檢測檔案是否存存,不存在則傳回預設檔
if not FileExists(FileName) then
begin
FileName := ProgramPath ImagePath 'error.gif';
end ; // 開啟檔案
AssignFile(SendFile,FileName);
ReSet(SendFile,1); // 唯讀模式,一次讀取一筆資料 // 讀取資料並傳送
repeat
BlockRead(SendFile,Buffer,Sizeof(Buffer),SourceCount);
Socket.SendBuf(Buffer,sizeof(Buffer));
until (SourceCount=0); CloseFile(SendFile);
Socket.Close;
end; 現在我要另外寫一個 Client 端來接收此資料,但是我試過很多的方法就是沒有辦法正常的接收,是否有那位大大可以教授一下,謝謝,非常感激
( 使用的元件為 TClientSocket )
|
flyup
資深會員 ![]() ![]() ![]() ![]() ![]() 發表:280 回覆:508 積分:385 註冊:2002-04-15 發送簡訊給我 |
|
Ktop_Robot
站務副站長 ![]() ![]() 發表:0 回覆:3511 積分:0 註冊:2007-04-17 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |