ServerSocket向ClientSocket数据的问题?

long405 2005-10-15 06:23:25

怎样将服务器端测试表(SQLServer)中的记录内容通过通信在客户端显示出来？

...全文

184 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

Hero4444 2005-11-25

打赏
举报

頂

long405 2005-10-15

打赏
举报

有没有人推荐看什么书比较合适像我这样水平的？

long405 2005-10-15

打赏
举报

还希望各位兄弟多多帮助。

long405 2005-10-15

打赏
举报

小弟我刚刚接解到这方面。

Favinc 2005-10-15

打赏
举报

天啊，但不懂这个，如何写网络数据库应用？

long405 2005-10-15

打赏
举报

谢谢了，小弟我刚入行不久。

long405 2005-10-15

打赏
举报

看不懂，能解释一下吗？能说得详细点吗？

Favinc 2005-10-15

打赏
举报

TDataSetProvider.Data或TClientDataSet.Data都是 OleVariant类型，可将其转换到内存流，然后通过ServerSocket.SendBuff或SendStream发送给ClientSocket；

给你两个很有用的过程。

procedure StreamToVariant(Stream: TMemoryStream; var V: OleVariant);
var
P: Pointer;
begin
Stream.Position := 0;
V := VarArrayCreate([0, Stream.size - 1], varByte);
P := VarArrayLock(V);
Stream.Position := 0;
Stream.Read(P^, Stream.size);
VarArrayUnlock(V);
end;

procedure VariantToStream(const V: OleVariant; Stream: TMemoryStream);
var
P: Pointer;
begin

Stream.size := VarArrayHighBound(V, 1) - VarArrayLowBound(V, 1) + 1;
P := VarArrayLock(V);
Stream.Position := 0;
Stream.Write(P^, Stream.size);
VarArrayUnlock(V);
Stream.Position := 0;
end;