C++和pascal之间的通信
// MyFirst.cpp : 定义控制台应用程序的入口点。
//
#include "stdafx.h"
#include "Winsock2.h"
#pragma comment(lib,"ws2_32.lib")
int _tmain(int argc, _TCHAR* argv[])
{
WORD wVersionRequested;
WSADATA wsaData;
int err;
wVersionRequested = MAKEWORD(1,1);
err = WSAStartup(wVersionRequested,&wsaData);
if (err!=0)
{
return 0;
}
if (LOBYTE(wsaData.wVersion)!=1||
HIBYTE(wsaData.wVersion)!=1)
{
WSACleanup();
return 0;
}
SOCKET sockSrv=socket(AF_INET,SOCK_STREAM,0);
SOCKADDR_IN addrSrv;
addrSrv.sin_addr.S_un.S_addr=htonl(INADDR_ANY);
addrSrv.sin_family=AF_INET;
addrSrv.sin_port=htons(5101);
bind(sockSrv,(SOCKADDR*)&addrSrv,sizeof(SOCKADDR));
listen(sockSrv,5);
SOCKADDR_IN addrClient;
int len=sizeof(SOCKADDR);
while(1)
{
SOCKET sockConn=accept(sockSrv,(SOCKADDR*)&addrClient,&len);
char sendBuf[100];
// sprintf_s(sendBuf,"Welcome %s to here!",inet_ntoa(addrClient.sin_addr));
/*send(sockConn,sendBuf,strlen(sendBuf)+1,0);*send函数是将指定长度的数据复制到TCP的系统缓冲区,然后系统缓冲区负责发送流数据到接收端的缓冲区
recv负责从缓冲区复制数据到指定存储地址字节不一样又没事的,recv每次不一定接收固定的数据的*/
char recvBuf[100];
memset(recvBuf,0,sizeof(recvBuf));
recv(sockConn,recvBuf,sizeof(recvBuf),0);
printf("%s\n",recvBuf);
memset(recvBuf,0,sizeof(recvBuf));
recv(sockConn,recvBuf,sizeof(recvBuf),0);
printf("%s\n",recvBuf);
closesocket(sockConn);}
return 0;
}
网上找的一段代码用C++重写了一遍然后用pascal写的客户端发送;
发现总是无法接受到正常的数据,在经过N边检查之后,才明白。
问题出现在客户端发送哪里有一个数据大小验证。
unit uSendMsg;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,IdTCPClient,WinSock, IdBaseComponent, IdComponent,
IdTCPConnection;
type
TFSendMsg = class(TForm)
btnsend: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Memo1: TMemo;
Label3: TLabel;
Edit3: TEdit;
Label4: TLabel;
Button2: TButton;
dlg: TOpenDialog;
procedure btnsendClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Memo1Click(Sender: TObject);
procedure Edit3Click(Sender: TObject);
private
{ Private declarations }
client: TIdTCPClient;
procedure sendSplitText(client: TIdTCPClient; s: String);
Procedure SendFile(IFileName:string);
public
{ Public declarations }
end;
var
FSendMsg: TFSendMsg;
implementation
uses IdGlobal,IniFiles;
{$R *.dfm}
procedure TFSendMsg.btnsendClick(Sender: TObject);
var
iLength: Integer;
s,s1,sSendText: String;
flag: Boolean;
aText: string;
begin
try
if client.Connected() then
client.Disconnect();
if not client.Connected() then
begin
client.Host := trim(edit1.Text);
client.Port := strtoint(trim(edit2.Text));
client.Connect();
// showmessage('连接成功');
end;
except on E: Exception do
begin
showMessage('连接主机失败,错误描述:'+ E.Message);
exit;
end;
end;
if not memo1.ReadOnly then
begin
try
aText := trim(memo1.Text);
if atext = '' then begin
showmessage('No message send');
exit;
end;
iLength := Length(aText);
sSendText := intToStr(100000000 + iLength);
Delete(sSendText, 1, 1);
sSendText := sSendText + aText;
if client.Connected() then
sendSplitText(client,sSendText);
showmessage('发送成功');
except on E: Exception do
ShowMessage('发送失败,错误描述:'+ E.Message);
end;
end else
begin
// edit3.Text := 'E:\华腾项目软件\sendmsg\a.txt';
s1 := trim(edit3.Text);
if s1 = '' then begin
showmessage('请选择文件');
exit;
end;
try
if client.Connected() then
sendfile(s1);
showmessage('发送成功');
except on E: Exception do
ShowMessage('发送失败,错误描述:'+ E.Message);
end;
end;
end;
procedure TFSendMsg.Button1Click(Sender: TObject);
begin
close;
end;
procedure TFSendMsg.Button2Click(Sender: TObject);
begin
btnsend.Enabled := true;
edit3.ReadOnly := false;
memo1.ReadOnly := true;
if dlg.Execute then
edit3.Text := dlg.FileName;
end;
procedure TFSendMsg.Edit3Click(Sender: TObject);
begin
btnsend.Enabled := true;
edit3.ReadOnly := false;
memo1.ReadOnly := true;
end;
procedure TFSendMsg.FormShow(Sender: TObject);
var
s: string;
ini: TIniFile;
begin
client := TIdTCPClient.Create(nil);
s := ExtractFilePath(Application.ExeName)+'info.ini';
if not fileExists(s) then
begin
ShowMessage('未找到配置文件'+ s);
Application.Terminate;
exit;
end;
ini := TIniFile.Create(s);
Edit1.Text := ini.ReadString('info','ip','');
Edit2.Text := IntToStr(ini.ReadInteger('info','port',0));
Edit3.Text := ini.ReadString('info','path','');
ini.Free;
end;
procedure TFSendMsg.Memo1Click(Sender: TObject);
begin
btnsend.Enabled := true;
edit3.ReadOnly := true;
memo1.ReadOnly := false;
end;
procedure TFSendMsg.SendFile(IFileName: string);
var
iFileHandle:integer;
iFileLen,cnt:integer;
buf:array[0..4096] of byte;
mdata: TBytes;
cc: array[0..3000] of char;
bb: array[0..3000] of char;
aa: array[0..3000] of char;
sText,sSendText: string;
i,iLength,isum: integer;
begin
iFileHandle:=FileOpen(IFileName,fmOpenRead);
iFileLen:=FileSeek(iFileHandle,0,2); //返回文件共多少个字符
FileSeek(iFileHandle,0,0); //指针指向文件开头
FillChar(cc, sizeof(cc),0);
cnt := FileRead(iFileHandle,cc,iFileLen);
sSendText := intToStr(100000000 + iFileLen);
Delete(sSendText, 1, 1);
FillChar(aa, sizeof(aa),0);
for i := 1 to 8 do
aa[i-1] := sSendText[i];
mdata := rawtobytes(aa, 8);
client.Socket.Write(mdata);
isum := 0;
while iFileLen > 1000 do
begin
FillChar(bb, sizeof(bb),0);
for i := 0 to 1000 - 1 do
bb[i] := cc[i+isum];
mdata := rawtobytes(bb, 1000);
client.Socket.Write(mdata);
isum := isum + 1000;
iFileLen := iFileLen - 1000;
end;
if iFileLen > 0 then
begin
FillChar(bb, sizeof(bb),0);
for i := 0 to iFileLen - 1 do
bb[i] := cc[i+isum];
mdata := rawtobytes(bb, iFileLen);
client.Socket.Write(mdata);
end;
FileClose(iFileHandle);
end;
procedure TFSendMsg.sendSplitText(client: TIdTCPClient; s: String);
var
strStream:TStringStream;
sText, s1: String;
mdata: TBytes;
cc: array[0..3000] of char;
i: Integer;
begin
sText := s;
FillChar(cc, sizeof(cc),0);
for i := 1 to 18 do
cc[i-1] := sText[i];
mdata := rawtobytes(cc, 18);
client.Socket.Write(mdata);
Delete(sText,1,18);
while Length(sText) > 1000 do
begin
s1 := Copy(sText,1,1000);
FillChar(cc, sizeof(cc),0);
for i := 1 to Length(s1) do
cc[i-1] := s1[i];
mdata := rawtobytes(cc, 1000);
client.Socket.Write(mdata);
Delete(sText,1,1000);
end;
if Length(sText) > 0 then
begin
FillChar(cc, sizeof(cc),0);
for i := 1 to Length(sText) do
cc[i-1] := sText[i];
mdata := rawtobytes(cc, Length(sText));
client.Socket.Write(mdata);
end;
end;
C++和pascal之间的通信的更多相关文章
- android中四大组件之间相互通信
好久没有写有关android有关的博客了,今天主要来谈一谈android中四大组件.首先,接触android的人,都应该知道android中有四大组件,activity,service,broadca ...
- angularJS中directive与directive 之间的通信
上一篇讲了directive与controller之间的通信:但是我们directive与directive之间的通信呢? 当我们两个directive嵌套使用的时候怎么保证子directive不会被 ...
- 使用reflux进行react组件之间的通信
前言 组件之间为什么要通信?因为有依赖. 那么,作为React组件,怎么通信? React官网说, 进行 父-子 通信,可以直接pass props. 进行 子-父 通信,往父组件传给子组件的函数注入 ...
- Fragment之间的通信(四)
自定义两个fragment的布局和java类. 在mainactivity中引用布局文件 在其中的一个fragment中的控件上添加监听,获取到另一个fragment中控件的内容,展示出来完成frag ...
- react native 之子组件和父组件之间的通信
react native开发中,为了封装性经常需要自定义组件,这样就会出现父组件和子组件,那么怎么在父组件和子组件之间相互通信呢,也就是怎么在各自界面push和pop.传值. 父组件传递给子组件: 父 ...
- js组件之间的通信
应用场景: 1.在刷微博的时候,滑到某个头像上,会出现一张usercard(用户名片), 微博列表区有这个usercard, 推荐列表也有这个usercard,评论区也有. 2.在网上购物时,购物车安 ...
- react8 组件之间的通信
<body><!-- React 真实 DOM 将会插入到这里 --><div id="example"></div> <!- ...
- Android使用Fragment来实现ViewPager的功能(解决切换Fragment状态不保存)以及各个Fragment之间的通信
以下内容为原创,转载请注明:http://www.cnblogs.com/tiantianbyconan/p/3364728.html 我前两天写过一篇博客<Android使用Fragment来 ...
- Android使用Fragment来实现TabHost的功能(解决切换Fragment状态不保存)以及各个Fragment之间的通信
以下内容为原创,转载请注明:http://www.cnblogs.com/tiantianbyconan/p/3360938.html 如新浪微博下面的标签切换功能,我以前也写过一篇博文(http:/ ...
随机推荐
- Assembly(程序集) 反射和缓存
using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; usin ...
- Template、ItemsPanel、ItemContainerStyle、ItemTemplate
先来看一张图(网上下的图,加了几个字) 1.Template是指控件的样式 在WPF中所有继承自contentcontrol类的控件都含有此属性,(继承自FrameworkElementdl类的Tex ...
- linux服务器git pull/push时提示输入账号密码之免除设置
1.先cd到根目录,执行git config --global credential.helper store命令 [root@iZ25mi9h7ayZ ~]# git config --global ...
- PHP流程控制语句下
ok,继续搞. while循环: while(expr){ 程序块: } 条件expr成立执行程序块,否则结束. do while循环:do while循环比while循环要多循环一次,它要先执行程序 ...
- 防火墙设置:虚拟机ping不通主机,但是主机可以ping通虚拟机(转载)
我在Windows7系统安装了虚拟机,通过虚拟机安装了Ubuntu13.04,我设置的主机与虚拟机的连接方式是桥接,安装好后,发现虚拟机ping不通主机,但是主机可以ping通虚拟机. 我的操作是:关 ...
- 图片放大缩小(和ViewPager配合使用流畅显示)--第三方开源--PhotoView
图片的放大缩小实现效果是使用的github上的一个开源项目photoView实现的,下载地址:https://github.com/chrisbanes/PhotoView 下面看测试代码: acti ...
- 一道关于比赛胜负的Sql查询题目
以前做过一道题目,一直没有来得及总结下来.贴图: 记得以前曾经找到了两种方法,今天试了一下,还是可以的,贴出过程: 下面是具体的查询方法: 原来放的是图片,今天又练习了一下,附代码: create T ...
- java之jar命令详解
1. JAR 文件包 JAR 文件就是 Java Archive File,顾名思意,它的应用是与 Java 息息相关的,是 Java 的一种文档格式.JAR 文件非常类似 ZIP 文件——准确的说, ...
- 通过keepalived实现 MySQL VIP 自动切换
首先配置keepalived.链接如下:http://blog.itpub.net/28939273/viewspace-1808369/ 主服务器keepalived的配置文件内容如下: [root ...
- linux内核中的get_user和put_user
linux内核中的get_user和put_user 在 内核空间和用户空间交换数据时,get_user和put_user是两个两用的函数.相对于copy_to_user和 copy_from_use ...