用ClientSocket怎么发送以下文件?
我不要昵称 2003-08-22 09:15:17 文件tcpip.txt的内容数据格式如下
=======================================================================
16 18 98 00 78 2E 4A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 7F 7F 7F 7F B1 00 00 00 00 00 F3 F3 F3 F2 F2 20 16 18 98 00 7B 05 00 32 00 00 02 7A 16 18 98 00 78 2E 4A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 7F 7F 7F 7F B1 00 00 00 00 00 F2 F2 F2 F2 F2 1D 16 18 98 00 79 0F 00 7F FF D8 FF FF FF 00 00 FF FF FF FF FF AD 16 18 98 00 78 2E 4A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 7F 7F 7F 7F B1 00 00 00 00 00 F2 F2 F2 F2 F2 1D 16 18 98 00 78 2E 4A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 7F 7F 7F 7F B1 00 00 00 00 00 F2 F2 F2 F2 F2 1D 16 18 98 00 78 2E 4A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 7F 7F 7F 7F B1 00 00 00 00 00 F2 F2 F1 F1 F1 1A 16 18 98 00 78 2E 4A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 7F 7F 7F 7F B1 00 00 00 00 00 F1 F1 F1 F1 F1 18 16 18 98 00 7B 05 00 32 00 00 02 7A 16 18 98 00 78 2E 4A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 7F 7F 7F 7F B1 00 00 00 00 00 F1 F1 F1 F1 F1 18 16 18 98 00 7C 02 02 03 49 16 18 98 00 78 2E 4A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 7F 7F 7F 7F B1 00 00 00 00 00 F1 F1 F1 F1 F1 18 16 18 98 00 78 2E 4A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 7F 7F 7F 7F B1 00 00 00 00 00 F1 F1 F1 F1 F1 18 16 18 98 00 78 2E 4A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 7F 7F 7F 7F B1 00 00 00 00 00 F1 F1 F1 F1 F1 18 16 18 98 00 78 2E 4A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 7F 7F 7F 7F B1 00 00 00 00 00 F1 F1 F1 F1 F1 18 16 18 98 00 7B 05 00 32 00 00 02 7A 16 18 98 00 78 2E 4A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 7F 7F 7F 7F B1 00 00 00 00 00 F1 F1 F2 F2 F2 1B 16 18 98 00 7C 02 02 03 49 16 18 98 00 78 2E 4A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 7F 7F 7F 7F B1 00 00 00 00 00 F2 F2 F2 F2 F2 1D 16 18 98 00 78 2E 4A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 7F 7F 7F 7F B1 00 00 00 00 00 F2 F2 F2 F2 F2 1D 16 18 98 00 78 2E 4A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 7F 7F 7F 7F B1 00 00 00 00 00 F2 F2 F2 F2 F2 1D 16 18 98 00 78 2E 4A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 7F 7F 7F 7F B1 00 00 00 00 00 F2 F2 F2 F2 F2 1D 16 18 98 00 7B 05 00 32 00 00 02 7A 16 18 98 00 78 2E 4A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 7F 7F 7F 7F B1 00 00 00 00 00 F2 F2 F2 F2 F2 1D 16 18 98 00 79 0F 00 7F FF D8 FF FF FF 00 00 FF FF FF FF FF AD 16 18 98 00 78 2E 4A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 7F 7F 7F 7F B1 00 00 00 00 00 F2 F2 F2 F2 F2 1D 16 18 98 00 78 2E 4A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 7F 7F 7F 7F B1 00 00 00 00 00 F2 F2 F2 F2 F2 1D 16 18 98 00 78 2E 4A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 7F 7F 7F 7F B1 00 00 00 00 00 F2 F2 F2 F2 F2 1D 16 18 98 00 78 2E 4A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 7F 7F 7F 7F B1 00 00 00 00 00 F2 F2 F2 F2 F3 1E 16 18 98 00 7B 05 00 32 00 00 02 =======================================================================
经过LZW算法压缩后,形成tcpip111.txt文件,内容格式如下
========================================================================
A陌!?a q脿? h饴?/j慈1c菎C?咶P慠H?嵦 !撴L#2h鏀眕`羶 ?B??9C婕1裧?96?饽揦If吷u玏?W?氩隖?英E儓@侽丣虯1e虐FR1槜f示?﨣D種?e?硱縁諮y苍睒U枙?g绱m唼寊繁U藪SWVm9虥W/麹;g枘rKSu|U6j攥儍忘Dl却_Q?FS笂~,蹶[??緐9M孢们臡Z(QF+"5刽臩玆Nz赼夸藁???%曉L4?爐粷嗇}谇U~氻幺醓8t?5]o>b?抏!r偤?0F萙?澵潑萢y?8邎@?嵠賆咹(Z\<U訯I佋迴训萚?f)!戃贌g`
D婤儊!ㄠ庰}堝汢災\咋杕埍蔂媝jgesZf鏶烽i~&阽勀?h榲濿ē乺棣?閉绁沸zJ1?搈ⅱ朾趆厪?ㄎU譭~伆W畠曉氙)Fe?蛸*釰a梪rJě?睏j欓呂咺k?猌矸"^媆稜A薽睍&K瓙鈜GnM1@D&C蔀┟6殒宏*陬?l永2豧h?&儦jl苦Z墏
\优3?F毂d謎袢T黫?駥譞窭覦U3?_??g薊
:??-3U7l険闑傺?锘蛴[蛱霫@m凲W觗?{儥h.褮'[1?*5漈c矶謕薂`愚w}!?w諪詗僼w??撨堄旞?l龃P炤趥&?1n磞H彧4FL;~筚憲>$鍦Y?氎Lv U禺历ZX砺幊洇?+.?E蟴廷;M8锸?uL臛O擊3罆|萁g翔?s&今?]彲jQ
=========================================================================
我现在想把压缩的文件tcpip111.txt用ClientSocket发送给服务端,我的代码如下,
procedure TfrmComm.btnSendClick(Sender: TObject);
var
s:pchar;
FS:TFileStream ;
begin
fs:=TfileStream.Create('c:\tcpip111.txt',FmOpenRead);
getmem(s,fs.size);
try
fs.Read(s^,fs.Size);
//fs.ReadBuffer(buf,fs.Size);
//clientsocket.Socket.SendBuf(buf,fs.Size);
clientsocket.Socket.Sendtext(s);
memo1.Text :=s;
finally
fs.free;
end;
freemem(s);
end;
怎么s的内容为空呢?向服务端发送不了?如果我把
fs:=TfileStream.Create('c:\tcpip111.txt',FmOpenRead);
改成读没压缩的文件
fs:=TfileStream.Create('c:\tcpip.txt',FmOpenRead);
就可以发送,为什么???