网络传输(100分)

各位高人，请帮帮忙：
我想通过客户端传图片给服务器（一次大概，60张左右，大小一共大概30M左右），客户端也可以读回服务器上的图片（也即是把服务器上的图片写到客户端本地）。
可以多个客户端同时操作。请问：客户端，服务器端，怎么做，希望能给出一点源码。谢谢，如果分不够可以加。

呵呵，这个简单了。如果使用API来编写。
使用简单的select模型，然后定义一个简单的协议，读取文件发送就是了！

socket接受发送stream，流读取图片就可以了

_ProcMsg := FALSE; {Inhibit Event processing for socket}
{ Initialize memory }
getmem(RemoteHostS, MAXGETHOSTSTRUCT); {Initialize memory for host address structure}
FSocketWindow := AllocateHWnd(WndProc); {Create Window handle to receive message notification}
{ Set Variables }
FreportLevel := Status_Informational; {Set Default Reporting Level}
Canceled := FALSE; {Cancelled flag off}
EventHandle := CreateEvent(nil, True, False, '');
StatusMessage(Status_debug, Cons_Msg_Wsk); {Status Message}
if WSAStartUp($0101, MyWSADATA) = 0 then
try
ThisSocket := Socket(AF_INET, SOCK_DGRAM, 0); {Get a new socket}
if ThisSocket = TSocket(INVALID_SOCKET) then
ErrorManager(WSAEWOULDBLOCK); {If error handle error}
setsockopt(ThisSocket, SOL_SOCKET, SO_DONTLINGER, Const_cmd_true, 4);
except
WSACleanup; {If error Cleanup}
raise; {Pass exception to calling function}
end {_ try _}
else {_ NOT if WSAStartUp($0101, MyWSADATA) = 0 then _}
ErrorManager(WSAEWOULDBLOCK); {Handle Statrtup error}
_ProcMsg := true;
end; 转帖

to :fxh7622 我对API不是很熟悉,能不能多点指点,怎么写,谢谢,
TO :superrgf 我只明白一点对数据流的操作,但是网络传输不明白,以前从来没有接触过,具体怎么做.
TO :eire能不能给点注解,看得不是太明白,呵呵,
实在太菜了,各位大侠见谅,呵呵,在次感谢你们,如果问题解决了,一定另开帖加分

高手们春节快乐,有没有人帮帮我啊,有人建议我做成FTP,但是不是很懂,有人帮帮忙吗,谢谢了

帮顶！

╭=========================================╮

80G海量源代码,控件，书籍全免费狂下不停！

http://www.source520.com

╰=========================================╯

多人接受答案了。