delphi代码转C#代码的问题 [问题点数:60分,无满意结帖,结帖人u012460844]

Bbs1
本版专家分:0
结帖率 80%
Bbs1
本版专家分:0
Bbs7
本版专家分:20921
Blank
红花 2019年2月 其他开发语言大版内专家分月排行榜第一
2019年1月 Delphi大版内专家分月排行榜第一
2018年8月 Delphi大版内专家分月排行榜第一
2018年7月 Delphi大版内专家分月排行榜第一
2018年4月 Delphi大版内专家分月排行榜第一
2018年3月 Delphi大版内专家分月排行榜第一
Blank
黄花 2016年11月 Delphi大版内专家分月排行榜第二
Blank
蓝花 2011年10月 其他开发语言大版内专家分月排行榜第三
2010年8月 其他开发语言大版内专家分月排行榜第三
2007年5月 其他开发语言大版内专家分月排行榜第三
Bbs1
本版专家分:0
Bbs7
本版专家分:20921
Blank
红花 2019年2月 其他开发语言大版内专家分月排行榜第一
2019年1月 Delphi大版内专家分月排行榜第一
2018年8月 Delphi大版内专家分月排行榜第一
2018年7月 Delphi大版内专家分月排行榜第一
2018年4月 Delphi大版内专家分月排行榜第一
2018年3月 Delphi大版内专家分月排行榜第一
Blank
黄花 2016年11月 Delphi大版内专家分月排行榜第二
Blank
蓝花 2011年10月 其他开发语言大版内专家分月排行榜第三
2010年8月 其他开发语言大版内专家分月排行榜第三
2007年5月 其他开发语言大版内专家分月排行榜第三
Bbs1
本版专家分:0
Bbs1
本版专家分:0
Bbs1
本版专家分:0
C#与VB.NET互转工具
CSharp2VB:C#<em>代码</em>转换到Vb.net的程序 VB2Csharp:VB转换到C#的程序(同时还支持Delphi、Vb6到C#的转换)
C#代码转VB代码转换器
C#<em>代码</em>转VB<em>代码</em>转换器C#<em>代码</em>转VB<em>代码</em>转换器C#<em>代码</em>转VB<em>代码</em>转换器C#<em>代码</em>转VB<em>代码</em>转换器
vb 代码delphi代码
vb <em>代码</em> 转 <em>delphi</em><em>代码</em>
10进制转36进制
10进制转36进制,输出为4位定长
Delphi源码实现C++代码delphi代码..rar
Delphi源码实现C++<em>代码</em>转<em>delphi</em><em>代码</em>..rar
VB与C#代码转换器
VB转化为C#<em>代码</em> C#转化VB<em>代码</em> VB转化为C#<em>代码</em> C#转化VB<em>代码</em>
Delphi2Cpp(delphi代码转换为C++代码
可以把<em>delphi</em><em>代码</em>转换为C++<em>代码</em>,每次转换单个文件。 源<em>代码</em>中的中文,转换后在界面看是乱码,将转换后的<em>代码</em>保存文件后,中文恢复,不再是乱码
C#与Vb.net互转工具
C#与Vb.net互转工具(离线版) CSharp2VB:C#<em>代码</em>转换到Vb.net的程序 VB2Csharp:VB转换到C#的程序(同时还支持Delphi、Vb6到C#的转换)
Delphi代码 转C#代码 就两句话
FrmMain.ParentWindow:=StrToInt(Edt3.Text); rn BringWindowToTop(FrmMain.Handle);
delphi to c# 转换代码
<em>delphi</em> to <em>c#</em> 转换<em>代码</em>,对任意DELPHI<em>代码</em>可以转化成C#<em>代码</em>
vs.net中vb代码转换为c#代码 vbtocs
vs.net中vb<em>代码</em>转换为<em>c#</em><em>代码</em>,较好的工具可以将<em>c#</em><em>代码</em>轻易的转化为<em>c#</em><em>代码</em>
delphi转c语言
<em>delphi</em>转c语言工具,用于<em>delphi</em><em>代码</em>转成C语言
c#代码转换为DELPHI
[code=Delphi(Pascal)]rn public static UInt32[] ToUInt32Array(Byte[] Data, Boolean IncludeLength)rn rn Int32 n = (((Data.Length & 3) == 0) ? (Data.Length >> 2) : ((Data.Length >> 2) + 1));rn UInt32[] Result;rn if (IncludeLength)rn rn Result = new UInt32[n + 1];rn Result[n] = (UInt32)Data.Length;rn rn elsern rn Result = new UInt32[n];rn rn n = Data.Length;rn for (Int32 i = 0; i < n; i++)rn rn Result[i >> 2] |= (UInt32)Data[i] << ((i & 3) << 3);rn rn return Result;rn rn[/code]
c语言转换成delphi程序语言
1,指针rnint *ptr; rnchar *ptr;rnvarrnptr:^Integer;rnptr:^char;rn2,无类型指针的定义rncrnvoid *ptr;rn<em>delphi</em>:rnptr:Pointerrn3,取值:rncrn(*ptr)rn<em>delphi</em>rnptr^rn4,取地址rncrnptr=&Object;rn<em>delphi</em>rnptr:=@Objectrn5,指针运算rncrn
C,C++ To Delphi转换器(源码)
C,C++ To Delphi转换器(源码).rar
JPG无损转PDF(包括源码)
可以无损的将jpg格式文件转成pdf,适合设计师用来转换作品为pdf
DELPHI XE7 JAVA 转换工具java to PAS
简便方法搞定第三方SDK的Jar包 在DELPHI XE 环境下的引入,生成原生桥接文件(NativeBridge File) 所谓“原生桥接文件”,即JAR文件的定义文件,说明了存在JAR库文件里的类、类型、函数等,相当于Windows系统下的dll文件和hpp文件,原生桥接文件只是进行说明定义,具体的实现功能<em>代码</em>仍然在JAR文件里。 如何生成原生桥接文件?EMB给出的方法是用Java2OP.exe工具,这是一个命令行程序,使用方法详见: http://docwiki.embarcadero.com/RADStudio/XE7/en/Java2OP.exe,_the_Native_Bridge_File_Generator_for_Android
Delphi转换C#
Delphi源码转换为C#,最高支持到Delphi2010,破除了原版500行的限制. 因为<em>delphi</em>的控件,C#没有,所以转换的<em>代码</em>不能直接运行,但是可以查看.
C#代码转换为VB.NET代码的工具
C#<em>代码</em>转换为VB.NET<em>代码</em>的工具
C++代码 转 C#代码神器
C++<em>代码</em> 转 C#<em>代码</em>神器。
delphi代码转VB代码
[b]有如下两段<em>delphi</em><em>代码</em>(是有关双向流加密的,出自http://www.<em>delphi</em>bbs.com/keylife/iblog_show.asp?xid=7088)rn我使用VB6.0,不知道怎么将<em>delphi</em><em>代码</em>转为VB<em>代码</em>。我试着转了一下,结果错误百出。rn恳请高手帮忙转一下,谢谢。wzq7585@163.com[/b]rnrnprocedure SeqEnc(var Str:String;Key:Integer;Times:Integer);rnvarrn i,c,n:Integer; rn Key1,Key2,Key3,Key4:Byte;rnbeginrn n:=Length(Str);rn if n=0 thenrn exit;rn Key4:=Byte(Key shr 24);rn Key3:=Byte(Key shr 16);rn Key2:=Byte(Key shr 8);rn Key1:=Byte(Key); rn for c:=Times-1 downto 0 dorn beginrn Str[1]:=Char(Byte(Str[1])+Key3);rn for i:=2 to n dorn Str[i]:=Char((Byte(Str[i-1])+Byte(Str[i])) xor Key1); rn Str[n]:=Char(Byte(Str[n])+Key4);rn for i:=n-1 downto 1 dorn Str[i]:=Char((Byte(Str[i+1])+Byte(Str[i])) xor Key2);rn end;rnend;rnprocedure SeqDec(var Str:String;Key:Integer;Times:Integer);rnvarrn i,c,n:Integer;rn Key1,Key2,Key3,Key4:Byte;rnbeginrn n:=Length(Str);rn if n=0 thenrn exit;rn Key4:=Byte(Key shr 24);rn Key3:=Byte(Key shr 16);rn Key2:=Byte(Key shr 8);rn Key1:=Byte(Key); rn for c:=Times-1 downto 0 dorn beginrn for i:=1 to n-1 dorn Str[i]:=Char(Byte(Str[i]) xor Key2-Byte(Str[i+1]));rn Str[n]:=Char(Byte(Str[n])-Key4);rn for i:=n downto 2 dorn Str[i]:=Char(Byte(Str[i]) xor Key1-Byte(Str[i-1]));rn Str[1]:=Char(Byte(Str[1])-Key3);rn end;rnend;rn
VC代码转DELPHI代码
typedef struct tagPOINTrnrn long x;rn long y;rn POINT, *PPOINT, NEAR *NPPOINT, FAR *LPPOINT; rnrn请朋友帮忙把以上是VC6.0的<em>代码</em>转成DELPHI,谢谢啊!我真的看不懂啊!
DELPHI公历与农历互转源代码 理论支持0--9999年
DELPHI公历与农历互转源<em>代码</em>:nnunit DateConvert;nninterfacennusesn  Windows,SysUtils,math;nnconstn  jsd = 31;n  rad = 180*3600/PI;n  DRAD = 180/PI;n  J2000=2451545;n  dts: array[0..100] of EXTENDED =(n     -4000,...
一个将数字金额转成英文大写金额的函数字母也是大写
一个将数字金额转成英文大写金额的函数字母也是大写
PDF转图片代码实例(完美实现)
本想依赖第三方jar包,但是对中文处理不是很好,通过朋友提示,最终完美解决。
Vc代码转Delphi代码问题!
//////////////////////////////VC的<em>代码</em>////////////////////////////////////rntypedef struct tagRCV_REPORT_STRUCTExrnrn WORD m_cbSize; // 结构大小rn time_t m_time; // 交易时间rn WORD m_wMarket; // 股票市场类型rn char m_szLabel[STKLABEL_LEN]; // 股票<em>代码</em>,以'\0'结尾rn char m_szName[STKNAME_LEN]; // 股票名称,以'\0'结尾rn rn float m_fLastClose; // 昨收rn float m_fOpen; // 今开rn float m_fHigh; // 最高rn float m_fLow; // 最低rn float m_fNewPrice; // 最新rn float m_fVolume; // 成交量rn float m_fAmount; // 成交额rnrn float m_fBuyPrice[3]; // 申买价1,2,3rn float m_fBuyVolume[3]; // 申买量1,2,3rn float m_fSellPrice[3]; // 申卖价1,2,3rn float m_fSellVolume[3]; // 申卖量1,2,3rnrn float m_fBuyPrice4; // 申买价4rn float m_fBuyVolume4; // 申买量4rn float m_fSellPrice4; // 申卖价4rn float m_fSellVolume4; // 申卖量4rnrn RCV_REPORT_STRUCTEx, *PRCV_REPORT_STRUCTEx;rnrntypedef struct tagRCV_DATArnrn int m_wDataType; // 文件类型rn int m_nPacketNum; // 记录数,参见注一rn RCV_FILE_HEADEx m_File; // 文件接口rn BOOL m_bDISK; // 文件是否已存盘的文件rn unionrn rn RCV_REPORT_STRUCTEx * m_pReport;rn RCV_HISTORY_STRUCTEx * m_pDay;rn RCV_MINUTE_STRUCTEx * m_pMinute;rn RCV_POWER_STRUCTEx * m_pPower;rn void * m_pData; // 参见注二rn ;rn RCV_DATA,*PRCV_DATA;rnrnLONG OnStkDataOK(UINT wParam,LONG lParam)rnrnunion tagSrcStock DOS_StkBuf;rnRCV_REPORT_STRUCTEx NEW_StkBuf;rnPBYTE pDataBuf;rnRCV_DATA Header;rnRCV_DATA * pHeader;rnDWORD dwFileLen;rnint ok;rn pHeader = (RCV_DATA *)lParam;rn switch( wParam )rn rn case RCV_REPORT: // 共享数据引用方式,股票行情rn for(i=0; im_nPacketNum; i++)rn rn pHeader->m_pReport[i]rn // 数据处理rn rn break;rnrn case RCV_FILEDATA: // 共享数据引用方式,文件rn switch(pHeader->m_wDataType)rn rn case FILE_HISTORY_EX: // 补日线数据rn break;rn case FILE_MINUTE_EX: // 补分钟线数据rn break;rn case FILE_POWER_EX: // 补充除权数据rn break;rn case FILE_BASE_EX: // 钱龙兼容基本资料文件,m_szFileName仅包含文件名rn break;rn case FILE_NEWS_EX: // 新闻类,其类型由m_szFileName中子目录名来定rn break;rn case FILE_HTML_EX: // HTML文件,m_szFileName为URLrn break;rn case FILE_SOFTWARE_EX: // 升级软件rn break;rn rn break;rn default:rn return 0; // unknown datarn rn return 1;rnrnrnrn/////////////////////////////////////////////////////////Delphi<em>代码</em>rntypern tagRCV_REPORT_STRUCTEx = recordrn m_cbSize: WORD; // 结构大小rn m_time: longint; // 交易时间rn m_wMarket: WORD; // 股票市场类型rn m_szLabel: array[0..STKLABEL_LEN - 1] of char; // 股票<em>代码</em>,以'\0'结尾rn m_szName: array[0..STKNAME_LEN - 1] of char; // 股票名称,以'\0'结尾rnrn m_fLastClose: Single; // 昨收rn m_fOpen: Single; // 今开rn m_fHigh: Single; // 最高rn m_fLow: Single; // 最低rn m_fNewPrice: Single; // 最新rn m_fVolume: Single; // 成交量rn m_fAmount: Single; // 成交额rnrn m_fBuyPrice: array[0..2] of Single; // 申买价1,2,3rn m_fBuyVolume: array[0..2] of Single; // 申买量1,2,3rn m_fSellPrice: array[0..2] of Single; // 申卖价1,2,3rn m_fSellVolume: array[0..2] of Single; // 申卖量1,2,3rnrn m_fBuyPrice4: Single; // 申买价4rn m_fBuyVolume4: Single; // 申买量4rn m_fSellPrice4: Single; // 申卖价4rn m_fSellVolume4: Single; // 申卖量4rn end;rntypern RCV_REPORT_STRUCTEx = tagRCV_REPORT_STRUCTEx;rn PRCV_REPORT_STRUCTEx = ^RCV_REPORT_STRUCTEx;rnrntypern tagRCV_DATA = recordrn m_wDataType: Integer; // 文件类型rn m_nPacketNum: Integer; // 记录数,参见注一rn m_File: RCV_FILE_HEADEx; // 文件接口rn m_bDISK: BOOL; // 文件是否已存盘的文件rn case Integer ofrn 0: (m_pReport: ^RCV_REPORT_STRUCTEx);rn 1: (m_pDay: ^RCV_HISTORY_STRUCTEx);rn 2: (m_pMinute: ^RCV_MINUTE_STRUCTEx);rn 3: (m_pPower: ^RCV_POWER_STRUCTEx);rn 4: (m_pData: Pointer); // 参见注二rn end;rn RCV_DATA = tagRCV_DATA;rn PRCV_DATA = ^RCV_DATA;rnrnrnrnunit Unit1;rnrninterfacernrnusesrn UnitMyAPIs,rn Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,rn Dialogs, TypInfo, StdCtrls, ComCtrls;rnconstrn WM_MyMsg = WM_User + 100;rntypern TForm1 = class(TForm)rn Button1: TButton;rn Button2: TButton;rn RichEdit1: TMemo;rn procedure Button1Click(Sender: TObject);rn procedure Button2Click(Sender: TObject);rn procedure FormClose(Sender: TObject; var Action: TCloseAction);rn privatern Private declarations rn procedure WMMyMsg(var Message: TMessage); message WM_MyMsg;rn publicrn Public declarations rn end;rnrnvarrn Form1: TForm1;rn MyHwnd: Thandle;rn MyFun: function(HWND: hWnd; uMsg: UINT; nWorkMode: integer): integer; stdcall;rn MyFun1: function(HWND: hWnd): integer; stdcall;rn MyFun2: function(): integer; stdcall;rnrnimplementationrnrn$R *.dfmrnrnprocedure TForm1.WMMyMsg(var Message: TMessage);rnvarrn I: Integer;rn pHeader: PRCV_DATA;rnbeginrn i:= 0;rn inherited;rn pHeader := PRCV_DATA(Message.lParam);rn case message.WParam ofrn RCV_REPORT: // 共享数据引用方式,股票行情rn beginrn RichEdit1.Lines.Append('数据包数目:'+inttostr(pHeader.m_nPacketNum));rn for i := 0 to pHeader.m_nPacketNum-1 dorn beginrn RichEdit1.Lines.Append(inttostr(pheader.m_pReport[i].m_time));//编译不过去不知是什么<em>问题</em>,pheader.m_pReport好像也是个指针变量,为什么能写成pheader.m_pReport[i]这种形式呢?rn end;rn end;rn RCV_FILEDATA: // 共享数据引用方式,文件rn beginrn RichEdit1.Lines.Append('文件数据来了!');rn end;rn end;rnend;rnrnprocedure TForm1.Button1Click(Sender: TObject);rnvarrn iok: integer;rnbeginrn MyHwnd := LoadLibrary('stock.dll');rn @MyFun := GetProcAddress(MyHwnd, 'Stock_Init');rn @MyFun1 := GetProcAddress(MyHwnd, 'Stock_Quit');rn @MyFun2 := GetProcAddress(MyHwnd, 'GetTotalNumber');rn if Assigned(MyFun) thenrn iok := myfun(Self.Handle, WM_MyMsg, RCV_WORK_SENDMSG);rn if iok > 0 thenrn RichEdit1.Lines.Append('接收启动!');rn //RichEdit1.Lines.Append(inttostr(myfun2()));rnend;rnrnprocedure TForm1.Button2Click(Sender: TObject);rnbeginrn form1.Close;rnend;rnrnprocedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);rnbeginrn if Assigned(MyFun1) thenrn MyFun1(Self.Handle);rn if MyHwnd <> 0 thenrn beginrn FreeLibrary(MyHwnd);rn MyHwnd := 0;rn end;rnend;rnrnend.rn
旅行商问题,TSP问题,C#源码
<em>c#</em>进行了可视化编程,采用对话框的形式,能够随机生成测试数据和生成数据规模,对测试结果进行图示,显示函数曲线,并能够保存测试数据!!
高手帮忙看看Delphi代码转C#代码问题
Delphi<em>代码</em>如下:rnfunction Tfsoftsn.getcode(name:string):string;rnvar str,s0,s1:string;rn i,j,u,n,k,m:integer;rnbeginrn s0:='V9WXYZAIN5G6QC4LM1RBPEFG23JH7ST8UKBA';rn m:=length(trim(name));rn s1:='';rn k:=0;rn for u:=1 to 4 dorn beginrn for j:=1 to 5 dorn beginrn for i:=1 to m dorn beginrn k:=k+ord(name[i])*i*(i+1)*j*(j+3)*(j+5)*u*(u+7)*(u+9)*(u+11);rn end;rn s1:=s1+copy(s0,(k mod 37),1);rn end;rn if u<>4 thenrn s1:=s1+'-';rn end;rn result:=s1;rnend;rnrnC#<em>代码</em>如下:rnrnstring name = "北厦A1中港";rn int m = 0;rn int k = 0;rn string s1 = "";rn string s0 = "V9WXYZAIN5G6QC4LM1RBPEFG23JH7ST8UKBA";rnrn m = (name.Trim()).Length;rn char[] word = name.ToCharArray();rnrn for (int u = 1; u ;rn rn rn rn return s1;rnrn
推荐一个代码编辑器控件 LMD SyntaxEdit
一直没有找到第二个好用的<em>代码</em>编辑器控件一直用的SynEdit,最新版本是2.0.8从13年开始就一直没有更新了像<em>代码</em>收缩,<em>代码</em>自动补全功能一直都没有支持,XE2下测试也不支持UNICODE,无奈之下想找更好的控件,可一直没有找到,今天无意中看到了sailxia的文章 http://blog.csdn.net/sailxia/article/details/5624252才知道LMD SyntaxE
delphi代码转C#代码中的问题(续)
上次感谢bdmh,sunny906两位大神帮我处理了<em>问题</em>,但是在使用中依旧有<em>问题</em>无法解决,首先先贴出<em>delphi</em>里加密和解密的函数<em>代码</em>:rn[code=<em>delphi</em>]rnfunction TForm1.Enc(sInput: string): string;rnConstrn AllChar:string='abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 ';rnVarrn sOutput :string;rn iPin:byte;rn A: Boolean;rnbeginrn if sInput = '' Thenrn sOutput := ''rn elsern beginrn A := False;rn if Copy(sInput,Length(sInput),1) = '_' thenrn beginrn A := True;rn Delete(sInput,Length(sInput),1);rn end;rn for iPin:=1 to Length(sInput) dorn beginrn sOutput := sOutput+Char(Ord(sInput[iPin]) + 128);rn end;rn if A thenrn Delete(sOutput,Length(sOutput),1);rn end;rn Result := sOutput;rnend;rnrnfunction TForm1.InEnc(sInput: string): string;rnConstrn AllChar:string='abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 ';rnVarrn sOutput :string;rn iPin:byte;rn A: Boolean;rnbeginrn if sInput = '' Thenrn sOutput := ''rn elsern beginrn A := False;rn if Length(sInput) Mod 2 = 1 thenrn beginrn A := True;rn sInput := sInput + '_';rn end;rn for iPin:=1 to Length(sInput) dorn beginrn sOutput := sOutput+Char(Ord(sInput[iPin]) + 128);rn end;rn if A then sOutput := sOutput + '_';rn end;rn Result := Trim(sOutput);rnend;rn[/code],其中,Enc为加密,InEnc为解密,假设要对“123刘某某”进行操作,那么,执行了Enc之后的结果是“辈矨uD3D3達”,把“辈矨uD3D3達”执行InEnc之后,就再变成“123刘某某”了,但是在我转换的C#<em>代码</em>里,加密后和解密后的结果却不一样,以下为我转换的C#<em>代码</em>:rn[code=csharp]rnpublic string Inenc(string sInput)rn rn string AllChar = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789";rn string sOutput;rn byte iPin;rn Boolean A;rn int i = -1;rn int len = 0;rn Int32 K = 0;rn sOutput = "";rn if (sInput == "") sOutput = "";rn elsern rn A = false;rn byte[] bs = Encoding.Default.GetBytes(sInput);rn len = bs.Length;rn if (len % 2 == 1)rn rn A = true;rn sInput = sInput + "_";rn bs = Encoding.Default.GetBytes(sInput);rn len = bs.Length;rn rn byte[] outbs = new byte[bs.Length];rn for (iPin = 0; iPin < len; iPin++)rn rn outbs[iPin] = (byte)(Convert.ToInt32(bs[iPin]) + 128);rn rn sOutput = Encoding.Default.GetString(outbs);rn if (A == true)rn rn sOutput = sOutput + "_";rn rn rn rn return sOutput;rn rnrn public string Enc(string sInput)rn rn string AllChar = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789";rn string sOutput;rn byte iPin;rn Boolean A;rn int i = -1;rn int len = 0;rn Int32 K = 0;rn sOutput = "";rn if (sInput == "") sOutput = "";rn elsern rn A = false;rn byte[] bs = Encoding.Default.GetBytes(sInput);rn len = bs.Length;rn if (sInput.Substring(sInput.Length-1,1) == "_")rn rn A = true;rn //sInput = sInput + "_";rn sInput = sInput.Remove(sInput.Length - 1, 1);rn bs = Encoding.Default.GetBytes(sInput);rn len = bs.Length;rn rn byte[] outbs = new byte[bs.Length];rn for (iPin = 0; iPin < len; iPin++)rn rn outbs[iPin] = (byte)(Convert.ToInt32(bs[iPin]) + 128);rn rn sOutput = Encoding.Default.GetString(outbs);rn if (A == true)rn rn //sOutput = sOutput + "_";rn sOutput = sOutput.Remove(sOutput.Length - 1, 1);rn rn rnrn return sOutput; rn rn[/code],但是在执行加解密的时候,得到的内容就都不一样了,我在此C#的<em>代码</em>下运行,加密同样字符串后得到的是“辈矨uD3D3”,把这个再进行解密的话,是“123刘某某?_”。另感谢sunny906你帮我做的中文处理,但是按你的<em>代码</em>在执行的时候,会有些许<em>问题</em>,比如123的密文是“辈尺_”,这个在按你<em>代码</em>执行解密的时候,会出现超出的情况,我试过,似乎凡是最后一个是"_"的都会这样,万望各位大神帮忙解惑下,谢谢
C++头文件转delphi工具 + 源码
工具使用说明: 1.用法把要转换的C++头文件和HEADCONV.exe 放在一起 2.打开控制台,找到文件夹 3.输入命令 HEADCONV 头文件名 -o 转换为<em>delphi</em>的pas HEADCONV 头文件名 -x 动态引用 HEADCONV 头文件名 -m静态引用 ps:此源码,为下载后在<em>delphi</em>7环境下经修改,可正常编译运行
代码片段】获取分辨率DPI和像素、毫米、英寸互相转换
        private static float DEFAULT_DPI_X = 0;n private static float DEFAULT_DPI_Y = 0;nn /// &amp;lt;summary&amp;gt;获取分辨率DPI&amp;lt;/summary&amp;gt;n /// &amp;lt;param name=&quot;dpiX&quot;&amp;gt;&amp;lt;/param&amp;gt;...
中文转拼音Delphi代码示例
中文转拼音,转拼音首字母,只需要引用简单的一个pas文件即可.
C#调用delphi动态链接库源码
C#调用Delphi动态链接库,返回大容量xml数据
VB与C#代码转换工具
一款VB转C#<em>代码</em>,C#转VB<em>代码</em>的工具。它可以将vb.net<em>代码</em>直接转换为<em>c#</em><em>代码</em>或将<em>c#</em><em>代码</em>直接转换为vb.net<em>代码</em>的程序。本工具为绿色版哦,真的很不错的, 推荐一下!
rtf转html的delphi代码
rtf2html rtf格式的字符串转换为html<em>代码</em>,只实现在了简单的格式转换
Delphi2CS4.0破解版
<em>delphi</em><em>代码</em>转C#工具。Delphi2CS4.0破解版包含破解文件。自行测试完全好用,突破500行限制。
DNS解析得到IP delphi xe7
<em>delphi</em> xe7 输入域名即可解析得到IP地址,亲测可以使用!
分组密码SM4算法的代码实现
SM4分组密码算法,原名SMS4,国家密码管理局于2012年3月21日发布。该算法的分组长度为128比特,密钥长度为128比特。加密算法与密钥扩展算法都采用32轮非线性迭代结构。解密算法与加密算法的结构相同,只是轮n密钥的使用顺序相反,解密轮密钥是加密轮密钥的逆序。nnnnn算法中采用的三种种基本运算:nnn⊕:n 32比特异;反序变换R(A0, A1,n A2, A3) =
Instant CSharp VB转C#软件
Instant CSharp VB转C#软件可以完美的将VB<em>代码</em>转化为C#<em>代码</em>,适用于visual studio2005/2008/2010中得basic语言<em>代码</em>转化为C#<em>代码</em>
C#2VB.Net
使用Web服务将C#<em>代码</em>转换为VB.NET<em>代码</em>
代码转流程图工具
是一个可以把<em>代码</em>转化为流程图的工具 C C++ VC++ Visual C++ NET Delphi Object Pascal
利用web service将 C#代码转换为VB.NET代码
利用web service将 C#<em>代码</em>转换为VB.NET<em>代码</em>
Delphi代码转VC
str111,str:String;rni,j:integer;rnstr111:=str111+char(integer(str[i])-j);rn可以帮我把这句话翻译成VC<em>代码</em>吗? rnrn我翻译是这样的,错在哪里?rnint j=4;rnCString str111 = _T("");rnrnfor(int i=1;i<=s.GetLength();i++)rnrn str111 = str111 + (char)(_wtoi(s.GetAt(i))-j);rn
VAB转Delphi代码
怎样把这段VBA<em>代码</em>改写成Delphi<em>代码</em>?急!rnSub Macro4()rn'rn' Macro4 Macrorn' 宏在 2007-4-24 由 我 录制rn'rn With ListGalleries(wdNumberGallery).ListTemplates(1).ListLevels(1)rn .NumberFormat = "%1、"rn .TrailingCharacter = wdTrailingTabrn .NumberStyle = wdListNumberStyleArabicrn .NumberPosition = CentimetersToPoints(0)rn .Alignment = wdListLevelAlignLeftrn .TextPosition = CentimetersToPoints(0.74)rn .TabPosition = CentimetersToPoints(0.74)rn .ResetOnHigher = 0rn .StartAt = 1rn With .Fontrn .Bold = wdUndefinedrn .Italic = wdUndefinedrn .StrikeThrough = wdUndefinedrn .Subscript = wdUndefinedrn .Superscript = wdUndefinedrn .Shadow = wdUndefinedrn .Outline = wdUndefinedrn .Emboss = wdUndefinedrn .Engrave = wdUndefinedrn .AllCaps = wdUndefinedrn .Hidden = wdUndefinedrn .Underline = wdUndefinedrn .Color = wdUndefinedrn .Size = wdUndefinedrn .Animation = wdUndefinedrn .DoubleStrikeThrough = wdUndefinedrn .Name = ""rn End Withrn .LinkedStyle = ""rn End Withrn ListGalleries(wdNumberGallery).ListTemplates(1).Name = ""rn Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=ListGalleries( _rn wdNumberGallery).ListTemplates(1), ContinuePreviousList:=False, ApplyTo:= _rn wdListApplyToWholeList, DefaultListBehavior:=wdWord10ListBehaviorrnEnd Sub
Delphi代码转VB.net!!
怎么把下面的<em>代码</em>转成VB.net??rnrn[code=Delphi(Pascal)]varrn strCMD : string;rnbeginrn strCMD := char($AA) + char($04) + rn char($01) + char($F4) + rn char($00) + char($00) + rn char($FF) + char($FF); rnend;[/code]
delphi代码转bcb
<em>delphi</em>中的rn[code=Delphi(Pascal)]rntryrn do something;rnexceptrn showmessage(adsfasdf);rnrn[/code]rnrn转到bcb中对应的是什么?
DELPHI 代码转C++
在用DELPHI 做项目 不涉及VCL 将来要转C++rn现在写<em>代码</em>要注意避免什么 rn将来好转换rn谢谢
VC++ 代码转 Delphi
#include "Shlwapi.h"rnSTDMETHODIMP CWebOCWindow::BeforeNavigate2(IDispatch *pDisp, VARIANT *URL, rn VARIANT *Flags, VARIANT *TargetFrameName, rn VARIANT *PostData, VARIANT *Headers, rn VARIANT_BOOL *Cancel) rnrn if (PostData != NULL && PostData->vt == (VT_VARIANT|VT_BYREF) && PostData->pvarVal->vt != VT_EMPTY )rn rn rn char *szTemp = NULL, *szPostData = NULL;rn long plLbound, plUbound;rn rn SAFEARRAY *parrTemp = PostData -> pvarVal->parray;rn SafeArrayAccessData(parrTemp , (void HUGEP **) &szTemp);rn rn SafeArrayGetLBound(parrTemp , 1, &plLbound);rn SafeArrayGetUBound(parrTemp , 1, &plUbound);rn rn szPostData = new char[plUbound - plLbound + 2];rn StrCpyN(szPostData, szTemp, plUbound - plLbound + 1);rn szPostData[plUbound-plLbound] = '\0';rn SafeArrayUnaccessData(parrTemp);rn rn MessageBox(szPostData);rn rn delete[] szPostData;rn rn return S_OK;rnrnrn其实我是想把 WebBrowser 中 BeforeNavigate2 事件中的 PostData 解析出来,rn找不到 Delphi <em>代码</em>,但是找到了 VC++ <em>代码</em>(这是 MSDN 上的<em>代码</em>)。rnrn哪位高手帮转一下?
C 代码delphi
C的接收结构体 rn typedef struct _IO_CONTEXT rn rn BYTE bTag; rn BYTE bDataLen ; /* data length */ rn BYTE pbData[MAX_DATA_LEN] ; /* data */ rnrn IO_CONTEXT; rnrn//C原型 rn DWORD WINAPI ETExecute( rn IN CONST ET_CONTEXT *pETCtx, rn IN LPCSTR lpszFileID, rn IN CONST VOID *pInBuffer, rn IN DWORD dwInbufferSize, rn OUT VOID *pOutBuffer, rn IN DWORD dwOutBufferSize, rn OUT DWORD *pdwBytesReturned rn ); rnrnrn dwResult =ETExecute( pCtx , ET_EXE_FILE_ID, &ioContext, wIOSize , &ioContext , wIOSize , &dwBytesReturned); 可以得到正确的结果 rnrnrn<em>delphi</em> <em>代码</em> rn/// Function 声明原型 rnfunction ETExecute(pCtx :PET_CONTEXT; lpszFileID:PChar; pInBuffer:PByte; dwInbufferSize:Longword; pOutBuffer:PByte; dwOutBufferSize:Longword; pdwBytesReturned:PLongword ):integer;stdcall; rnrnrntype rn tagSendPack = packed record rn bTag :Byte ; rn bDataLen: Byte; rn pbData: array[0..MAX_DATA_LEN] of Byte; rn end; rnrn PsendPack = ^tagSendPack; rnrn stemp:= '1'; rn wIOSize := SizeOf(tagSendPack); rn buffer := GetMemory(wIOSize); rn ZeroMemory(buffer,wIOSize); rn cPsendPack := PsendPack(buffer); rn cPsendPack.bDataLen := length(PChar(stemp)); rn cPsendPack.bTag := NIT ; rnrn CopyMemory(@cPsendPack.pbData[0],pchar(stemp),length(PChar(stemp))); rnrn dwBytesReturned =0; rn dwResult := ETExecute( pCtx , ET_EXE_FILE_ID, @cPsendPack , SizeOf (tagSendPack) , @cPsendPack , sizeof(cPsendPack) , @dwBytesReturned); rn为什么每次执行ETExecute @cPsendPack 都无法返回正确的值 rnrn是不是我在<em>delphi</em>定义结构体有<em>问题</em>?传参不对。还是什么。。。 rn本人对C不了解但是C里面执行<em>代码</em>执正确 !谢谢 rnrnrn
VB转delphi代码
大家帮忙转一下<em>delphi</em><em>代码</em>rnPrivate Sub Command1_Click()rnWebBrowser1.Navigate "Tencent://Message/?Menu=YES&Exe=&Uin=" & Text1.Text 'rnWebBrowser1.Stop 'rnEnd SubrnPrivate Sub Command2_Click()rnWebBrowser1.Navigate "tencent://buddy/?Menu=Yes&type=101&peeruin=" & Text1.Text 'rnWebBrowser1.Stop 'rnEnd SubrnPrivate Sub Command3_Click()rnEndrnEnd Subrn
bcb代码delphi
bcb 写的dll 中有个函数rnxtern "C" __declspec(dllexport) int __stdcall GetTTSData(String TextStr,rn String IPStr, String FileName,PBYTE &PCMBuffer, int Speed)rnrnTTSData objTtsData;rnTMemoryStream* MyStream;rnint dwFileSize, nRet;rnrn //检查PCMBuffer是否NULLrn if(PCMBuffer != NULL) rn delete PCMBuffer;rn PCMBuffer = NULL;rn rn...rn MyStream = new TMemoryStream;rn MyStream->Write((void*)((int)objTtsData.pOutBuf) , objTtsData.dwOutBufSize);rnrn dwFileSize = MyStream->Seek(0, soFromEnd);rn PCMBuffer = new byte[dwFileSize];rn MyStream->Seek(0, soFromBeginning);rn MyStream->Read(PCMBuffer, dwFileSize);rn delete MyStream;rn rnrn 在<em>delphi</em> 中调用rn function GetTTSData(TextStr, IPStr, FileName:String; PCMBuffer: Pointer; Speed: integer): integer; stdcall; external 'dmtts.dll' name 'GetTTSData';rnrn GetTTSData(TextStr, IPStr, FileName, @PCMBuffer,Speed);rnrnrn我想转成<em>delphi</em> 的rn主要我弄不清如何 表示PBYTE PBYTE &PCMBufferrn且 PCMBuffer 的内存如何分配 getmem( PCMBuffer ,size)好像不行rn
汇编转delphi代码
那位高人帮我吧这段汇编转写成<em>delphi</em>的<em>代码</em>谢谢rnrnmov ebx,dword ptr ds:[1A64F5C] ; 开始解密循环 DS:接收到的加密信息BUF地址rnmov ax,word ptr ds:[ebx] ; 将加密的第一个word移动到AX(Size)rnmov dl,byte ptr ds:[ebx+2] ; 将加密的第3个byte放入DLrnnot ax ; rnmov edi,eax ; 明文命令长度rnmov eax,dword ptr ds:[4EB178] ; 密文包长度rnand edi,0FFFF ; 取低16位rnadd eax,-4 ; 密文包长度-4个字节的信息位rncmp edi,eax ; 判断所接收的信息包是否合法rnnot dl ; rnjg Client.0047A37D ; 如果包头里的长度信息 > 实际接收的包长度rnxor ecx,ecxrnxor esi,esirntest edi,edirnjbe Client.0047A365 ; 如果包头里的长度信息 < 实际接收的包长度rnadd ebx,4 ; 将指针移动到包的第5个字节,即实际信息开始rnmov dword ptr ss:[esp+2C],ebx ; 将密文指针存入 (ESP+2C)中间变量rnmov eax,dword ptr ss:[esp+2C] ; rnmov bl,byte ptr ss:[esp+ecx+14]; 取第一位掩码rnmov ebp,dword ptr ds:[6350C4] ; 从中间变量取明文BUF地址的偏移量rnmov al,byte ptr ds:[eax+esi] ; 取密文第5个字节rnsub al,blrnmov ebx,dword ptr ds:[1A6AA04] ; 申请明文命令存放的变量地址rnsub al,dlrninc ecx ; 记数器+1rnnot al rnmov byte ptr ds:[ebx+ebp],al ; 将明文命令存放入变量rnmov ebx,dword ptr ds:[6350C4] ; rnmov eax,dword ptr ss:[esp+28] ; 取掩码长度rninc ebx ; 明文变量地址偏移+1rncmp ecx,eax ; 比较掩码字符的位置rnmov dword ptr ds:[6350C4],ebx ; 明文变量地址偏移存入中间变量rnjl short Client.0047A303 ; 如果当前掩码的字符没有到尾rnxor ecx,ecxrninc esi ; 已经解密的字符数+1rncmp esi,edi ; 是否已经解密完?rnjb short Client.0047A2CB ; 如果解密数
VB代码转Delphi
VB<em>代码</em>:rnSub TestSaveAs()rn rn Dim miDoc As MODI.Documentrn rn Set miDoc = New MODI.Document ]rn ....rn procedure SaveAs(const FileName: WideString; FileFormat: MiFILE_FORMAT; CompLevel: MiCOMP_LEVEL); safecall;rn ...rn end;rnrnVB中的MODI在Delphi中是一个TMiDocView 对象的实例rn
C 代码delphi
C的接收结构体rn typedef struct _IO_CONTEXTrnrn BYTE bTag;rn BYTE bDataLen ; /* data length */rn BYTE pbData[MAX_DATA_LEN] ; /* data */rnrn IO_CONTEXT;rnrn//fun原型rn DWORD WINAPI ETExecute(rn IN CONST ET_CONTEXT *pETCtx,rn IN LPCSTR lpszFileID,rn IN CONST VOID *pInBuffer,rn IN DWORD dwInbufferSize,rn OUT VOID *pOutBuffer,rn IN DWORD dwOutBufferSize,rn OUT DWORD *pdwBytesReturnedrn );rnrnrn dwResult =ETExecute( pCtx , ET_EXE_FILE_ID, &ioContext, wIOSize , &ioContext , wIOSize , &dwBytesReturned); 可以得到正确的结果rnrnrn<em>delphi</em> <em>代码</em>rn /// 原型rnfunction ETExecute(pCtx :PET_CONTEXT; lpszFileID:PChar; pInBuffer:PByte; dwInbufferSize:Longword; pOutBuffer:PByte; dwOutBufferSize:Longword; pdwBytesReturned:PLongword ):integer;stdcall;rnrnrntypern tagSendPack = packed recordrn bTag :Byte ;rn bDataLen: Byte;rn pbData: array[0..MAX_DATA_LEN] of Byte;rn end;rnrn PsendPack = ^tagSendPack;rnrn stemp:= '1';rn wIOSize := SizeOf(tagSendPack);rn buffer := GetMemory(wIOSize);rn ZeroMemory(buffer,wIOSize);rn cPsendPack := PsendPack(buffer);rn cPsendPack.bDataLen := length(PChar(stemp));rn cPsendPack.bTag := NIT ;rnrn CopyMemory(@cPsendPack.pbData[0],pchar(stemp),length(PChar(stemp)));rnrn dwBytesReturned =0;rn dwResult := ETExecute( pCtx , ET_EXE_FILE_ID, @cPsendPack , SizeOf (tagSendPack) , @cPsendPack , sizeof(cPsendPack) , @dwBytesReturned);rn为什么每次执行ETExecute @cPsendPack 都无法返回正确的值rnrn是不是我在<em>delphi</em>定义结构体有<em>问题</em>?传参不对。还是什么。。。rn本人对C不了解但是C<em>代码</em>执正确 !谢谢rnrnrn
VC代码转Delphi?
声明:rnint WINAPI GetDeliverSMExEx(rn ULONG* sm_ID, //返回:短讯IDrn unsigned char* DestTON, //返回:目标地址号码类型rn unsigned char* DestNPI, //返回:目标地址编码方案rn char* DestAddr, //返回:目标地址rn unsigned char* OrgTON, //返回:源地址号码类型rn unsigned char* OrgNPI, //返回:源地址编码方案rn char* OrgAddr, //返回:源地址rn unsigned char* PRI, //返回:优先权rn unsigned char* RP,rn unsigned char* UDHI,rn unsigned char* PID, //返回:协议类型rn unsigned char* DCS, //返回:编码方案rn char* TimeStamp, //返回:下发时间rn unsigned long * UDLen,rn char* UserData, //返回:用户数据rn unsigned char* StatusReport //返回:状态报告标志,0表示不是状态报告,1:表示为状态报告rn );rnrn调用:rnrnULONG ulsm_ID;rnchar sDestAddr[MAX_ADDR_LEN];rnmemset(sDestAddr, 0, MAX_ADDR_LEN);rnnsigned char byDestNPI;rnrnrnULONG ulsm_ID;rnunsigned char byDestTON, byDestNPI, byOrgTON, byOrgNPI, byPRI, byPID, byDCS;rnchar sDestAddr[MAX_ADDR_LEN];rnmemset(sDestAddr, 0, MAX_ADDR_LEN);rnchar sOrgAddr[MAX_ADDR_LEN];rnmemset(sOrgAddr, 0, MAX_ADDR_LEN);rnchar sTimeStamp[MAX_TIMESTAMP_LEN];rnmemset(sTimeStamp, 0, MAX_TIMESTAMP_LEN);rnchar sUserData[MAX_UD_LEN];rnmemset(sUserData, 0, MAX_UD_LEN);rnrnint iRet;rnunsigned char byRP;rnunsigned char byUDHI;rnunsigned long ulUDLen;rnunsigned char byStatusReport = 0;rniRet = GetDeliverSMExEx(&ulsm_ID, &byDestTON, &byDestNPI, sDestAddr, &byOrgTON,rn &byOrgNPI, sOrgAddr, &byPRI, &byRP, &byUDHI, &byPID, &byDCS,rn sTimeStamp, &ulUDLen, sUserData, &byStatusReport);rnrn rnif(iRet == 0)rn rn CString sGetData;rn sGetData.Format("接收成功!\n接受到数据:%s", sUserData);rn MessageBox(sGetData,MB_OK,0);rnrn rn elsern MessageBox("接收失败!",MB_OK,0);rn
DNS域名解析,delphi xe8,windows、android、ios亲测可用
DNS域名解析,<em>delphi</em> xe8,windows、android、ios亲测可用,辛苦查阅资料,还请多多关照。
c 代码delphi
int WINAPI Msw_Mail_Receive(Byte *Data, Byte *Size);rnrn像这样一个函数怎么用<em>delphi</em>声明,这是个 c写的动态连接库中的函数 rnrnrnrnrn
vb代码delphi
[code=VB]rnPrivate Sub Command1_Click()rnDim RTXObjrnDim RTXParamsrnDim RTXResultrnrnSet objApi = CreateObject("RTXClient.RTXAPI")rnSet RTXCRoot = objApi.GetObject("KernalRoot")rnrnSet RTXObj = CreateObject("rtxserver.rtxobj") '创建服务器sdkrnSet RTXParams = CreateObject("rtxserver.collection") '创建一个集合对象rnrnRTXObj.Name = "SYSTOOLS"rnRTXParams.Add "USERNAME", User.TextrnrnOn Error Resume NextrnrnRTXObj.ServerIP = ServerIP.Text '服务器端口rnRTXObj.ServerPort = CInt(SdkPort.Text) '通过6000端口获取SessionKeyrnrnRTXResult = RTXObj.Call2(&H2000, RTXParams) '获取SessionKeyrnIf (Err.Number < 0) ThenrnList1.AddItem Err.Description, 0rnExit SubrnEnd Ifrnrn[/code]rnrn[code=Delphi(Pascal)]rnusing windows;rnfunction GetSessionKey:string;rnvar objApi,objKernal,RTXObj,RTXParams:olevariant;rnbeginrn tryrn objApi:=CreateOleObject('RTXClient.RTXAPI');rn objKernal:=objAPI.GetObject('KernalRoot');rn RTXObj:=CreateOleObject('rtxserver.rtxobj');rn RTXParams:=CreateOleObject('rtxserver.collection');rn RTXObj.Name:='SYSTOOLS';rn RTXParams.Add('UserName',GetLocalUser);rn RTXObj.ServerIP:='*.*.*.*;rn RTXObj.ServerPort:=6000;rn Result:=RTXObj.Call(BF_ADJUST,RTXParams);rn exceptrn on e:Exception dorn ShowMessage(e.Message);rn end;rnend;rn[/code]
delphi傅里叶变换
<em>delphi</em>傅里叶变换的<em>代码</em>,转的,自己上传下,备用。. ..
Delphi文件转换:EXE转SWF操作代码..rar
Delphi文件转换:EXE转SWF操作<em>代码</em>..rar
Java 代码转C#代码
Java <em>代码</em>转C#<em>代码</em>rnrnpublic static Date formatDate(String value, Locale locale) rn Date date = null;rnrn if (value != null) rn try rn DateFormat formatter = null;rn if (locale != null) rn formatter = DateFormat.getDateInstance(DateFormat.SHORT, locale);rn else rn formatter = DateFormat.getDateInstance(DateFormat.SHORT, Locale.getDefault());rn rn rn formatter.setLenient(false);rn rn date = formatter.parse(value);rn catch (ParseException e) rn rn rnrn return date;rn
c#代码转vb代码
public static bool Lit = false;rnrn static ValueHelper()rn rn unsafern rn int test = 1;rn Lit = (*(byte*)(&test)) == (byte)1;rn rn rnrn上面这段<em>代码</em>转成vb.net应该怎么写,尝试用转换器无法编译.rnLit = (CType(AddressOf test, Pointer(Of Byte)).Target) = CByte(1)
vb6代码c#代码
求助,帮我把以下vb6<em>代码</em>转为<em>c#</em><em>代码</em>,谢谢!rnOption ExplicitrnPrivate Const cConnectString = "ConnectString"rnPrivate Const cUserName = "UserName"rnPrivate Const cUserID = "UserID"rnPrivate Const cDBMSName = "DBMS Name"rnPrivate Const cDBMSVersion = "DBMS Version"rnPrivate m_colParse As CollectionrnPrivate m_sParseString As StringrnPublic Property Get PropsString() As StringrnPropsString = m_sParseStringrnEnd PropertyrnPublic Property Get UserName() As StringrnUserName = GetProperty(cUserName)rnEnd PropertyrnPublic Property Get UserID() As IntegerrnUserID = CInt(GetProperty(cUserID))rnEnd Propertyrn5rnPublic Property Get ConDBMSName() As StringrnConDBMSName = GetProperty(cDBMSName)rnEnd PropertyrnPublic Property Get ConDBMSVersion() As StringrnConDBMSVersion = GetProperty(cDBMSVersion)rnEnd PropertyrnPublic Property Get ConStr() As StringrnConStr = GetProperty(cConnectString)rnEnd PropertyrnPublic Function GetProperty(ByVal sPropName As String) As StringrnGetProperty = m_colParse(sPropName)rnEnd FunctionrnPublic Function ParseString(ByVal sToParse As String) As BooleanrnDim sName As StringrnDim sValue As Stringrnm_sParseString = sToParsernSet m_colParse = New CollectionrnDornsName = GetName(sToParse)rnsValue = GetValue(sToParse)rnIf sName <> "" Thenrnm_colParse.Add sValue, sNamernElsernExit DornEnd IfrnLooprnParseString = TruernEnd FunctionrnPrivate Function SearchString(sBeSearch As String, ByVal sFind As String) As StringrnOn Error GoTo Err_SearchStringrnDim v As Variantrnv = Split(sBeSearch, sFind, 2, vbTextCompare)rn6rnDim lb As Integer, ub As Integerrnlb = LBound(v)rnub = UBound(v)rnIf ub > lb ThenrnsBeSearch = v(ub)rnSearchString = v(lb)rnElseIf ub = lb ThenrnsBeSearch = ""rnSearchString = v(ub)rnElsernsBeSearch = ""rnSearchString = ""rnEnd IfrnExit FunctionrnErr_SearchString:rnsBeSearch = ""rnSearchString = ""rnEnd FunctionrnPrivate Function GetName(sBeSearch As String) As StringrnGetName = SearchString(sBeSearch, "=")rnGetName = Trim$(GetName)rnEnd FunctionrnPrivate Function GetValue(sBeSearch As String) As StringrnsBeSearch = Trim$(sBeSearch)rnIf Left$(sBeSearch, 1) = "" ThenrnsBeSearch = Mid$(sBeSearch, 2)rnGetValue = SearchString(sBeSearch, "")rnSearchString sBeSearch, ";"rnElsernGetValue = SearchString(sBeSearch, ";")rnEnd IfrnGetValue = Trim$(GetValue)rn7rnEnd FunctionrnPublic Function IsIndustry() As BooleanrnIsIndustry = (UCase(MParse.GetProperty("AcctType")) = "GY")rnEnd Functionrn
dephi代码c#代码
昨天在这里下了个要序列号的,用不了,今天找到的, 共享大家用下,还不错
代码优化--数据字典(dictionary)的使用
字典(dictionary)是一个集合,每一个元素都是一个键/值对,常用于查找和排序的列表,且查找速度非常快。此次<em>代码</em>优化过程中使用了数据字典,执行速度有了明显的提升。
C++代码转C#代码问题
/*rn*描 述:取得当前文件指定行号的内容rn*参 数:nHandle:句柄, nLine 行号,chLine 返回的行内容, nSize chLine的buffer大小 rn*返回值:int:0:成功 -1:获取失败rn*/rnextern "C" DLL_DECLARE int remote_get_file_line(int nHandle, int nLine, char* chLine, int size);rnrnrn转成C#, 是不是rnrn/// rn /// 取得当前文件指定行号的内容rn /// rn /// 句柄rn /// 行号rn /// 读取到的行内容rn /// chLine的buffer大小rn /// 0=成功; -1=获取失败rn [DllImport("RemoteComm.dll", EntryPoint = "remote_get_file_line", CharSet = CharSet.Ansi, CallingConvention = CallingConvention.Cdecl)]rn public static extern int remote_get_file_line(int nHandle, int nLine, ref string chLine, int size);rnrn忽略CharSet的<em>问题</em>,其他地方有没有错?
文字转语音代码记录
一、百度语音合成部分 npackage com.example.raisesail.zftts;nnimport android.app.Service; nimport android.content.Context; nimport android.content.Intent; nimport android.content.IntentFilter; nimport android.med...
c#代码转换为vb.net代码问题
请问如何将如下的<em>c#</em><em>代码</em>转换为vb.net的<em>代码</em>呀?rnpublic class CCUtility rnrn protected HttpSessionState Session;rn protected HttpServerUtility Server;rn protected HttpRequest Request;rn protected HttpResponse Response;rnrn //构造函数,打开数据库连接rn public CCUtility(object parent)rn rn tryrn rn Session=((System.Web.UI.Page)parent).Session;rn Server=((System.Web.UI.Page)parent).Server;rn Request=((System.Web.UI.Page)parent).Request;rn Response=((System.Web.UI.Page)parent).Response;rn rn catchrn rn Session=((System.Web.UI.UserControl)parent).Session;rn Server=((System.Web.UI.UserControl)parent).Server;rn Request=((System.Web.UI.UserControl)parent).Request;rn Response=((System.Web.UI.UserControl)parent).Response;rn rn rn
Delphi 简体-繁体 转换函数
简体转繁体rnfunction GB2Big(GB: string): string;nvarnLen: Integer;nbeginnLen := Length(GB);nSetLength(Result, Len);nLCMapString(GetUserDefaultLCID, LCMAP_TRADITIONAL_CHINESE, PChar(GB), Len, PChar(Result),
gif2bmp,gif图片转化为bmp,c实现
gif2bmp gif图片转化为bmp c语言实现
delphi根据汉字生成拼音,全拼,或者带空格,或者不带空格
示例程序下载
C#代码转为DELPHI代码
请高手帮忙翻译下!谢谢!rnrnrn public void SetSSRUserInfoToDat(out byte[] DataBuf, int PIN, int Privilege, string Password,rn string Name, int Card, int Group, string TimeZones, string PIN2)rn rn DataBuf = new byte[72];rn byte[] PasswordBuf = new byte[8];rn byte[] NameBuf = new byte[24];rn byte[] CardBuf = new byte[4];rn byte[] TimeZonesBuf = new byte[8];rn byte[] PIN2Buf = new byte[24];rnrn SSR_User ssruser = new SSR_User();rn rn ssruser.PIN = (ushort)PIN;rn ssruser.Privilege = (byte)Privilege;rnrn PasswordBuf = System.Text.Encoding.Default.GetBytes(Password);rn Array.Copy(PasswordBuf, ssruser.Password, 8);rnrn NameBuf = System.Text.Encoding.Default.GetBytes(Name);rn Array.Copy(NameBuf, ssruser.Name, 24);rnrn CardBuf = BitConverter.GetBytes(Card);rn Array.Copy(CardBuf, ssruser.Card, 4);rnrn ssruser.Group = (byte)Group;rnrn TimeZonesBuf = System.Text.Encoding.Default.GetBytes(TimeZones);rn ssruser.TimeZones[0] = (ushort)TimeZonesBuf[0];//whether to use timezones or not (0 stands for yes,1 stands for defining by yourself)rn ssruser.TimeZones[1] = (ushort)TimeZonesBuf[1];//(if you use the timezones)timezoune1rn ssruser.TimeZones[2] = (ushort)TimeZonesBuf[2];//timezone2rn ssruser.TimeZones[3] = (ushort)TimeZonesBuf[3];//timezone3rnrn PIN2Buf = System.Text.Encoding.Default.GetBytes(PIN2);rn Array.Copy(PIN2Buf, ssruser.PIN2, 24);rnrn Array.Copy(Raw.RawSerialize(ssruser), DataBuf,72);rn
C#代码转换成Delphi代码
[img=https://img-bbs.csdn.net/upload/201710/05/1507198883_238669.png][/img][img=https://img-bbs.csdn.net/upload/201710/05/1507199010_890621.png][/img]rnC#的接口<em>delphi</em>来调用报错,请大神帮忙,没有分了,可以微信发红包感谢
汉字转Unicode码 互转
汉字转Unicode码,涉及的知识点:1、“x”则代表十六进制,“x4”代表十六进制表示的可控制长度,如果长度不够,则用前导的0填补。2、Unicode写法:在表示一个Unicode的字符时,通常会用“U+”然后紧接着一组十六进制的数字来表示这一个字符。3、 ASCII 码(American Standard Code for Information Interchange,全称美国信息交换标准码...
C#代码转换成DELPHI代码问题请教
C#写的下面的<em>代码</em>,转换成DELPHI的<em>代码</em>应该怎么样写rnpublic class TransactionID : SoapHeader rn rn [XmlText(typeof(string))] public string transactionID; rnrn代理实现的功能如下:rnrnrn如果在DELPHI中如果一个类myHeader继承TSOAPHeader,结果是:rnrn rn 00240301801050 rn rnrnrn目前要实现一个webservice,SOAP头部格式如下:rnrn 00240301801050 rnrnrn
delphi代码转换成C#代码,数据转换的问题
DELPHI中rnrn a: Char;rnrn a := Char(-2458);rn ShowMessage(string(a));rn 显示结果是 frnrn在C#中怎么能把-2458转换成结果f呢
PNG图片转Delphi中Image.Picture.data代码-工具源码
PNG图片转Delphi中Image.Picture.data<em>代码</em>-工具源码, 这个是源码,自己亲手写的,版本DX10。
delphi转C#工具
<em>delphi</em>转C#工具
C#代码转换java工具 破解版
C#<em>代码</em>转换java工具 破解版 可以把<em>c#</em><em>代码</em>转换成Java<em>代码</em>
C++ to CSharp Converter Setup
c++ to C# Converter 是 c++ <em>代码</em> 转 C#<em>代码</em> 工具,非常好用。
VB代码转换为C#代码-转换工具-转换器
压缩包内有转换器的安装包,使用说明,注意事项等,并且提供了其他版本的下载链接。安装后可以方便地将VBA,VB.NET<em>代码</em>直接复制到转换器中,再自动转换为C#<em>代码</em>,方便做开发的人使用。
C#代码转java代码
C# 语法与java 在很多地方相似,有时候需要将项目在<em>c#</em><em>代码</em>转为java<em>代码</em>进行开发升级,这个工具就能快速转换
代码转换C#toC++
C#转C++破解版
Delphi7调C#Webservice用返回ClientDataSet XML格式数据
Delphi7调C#Webservice用返回ClientDataSet XML格式数据
delphi10以上真正能用的金额大小写转换源码
<em>delphi</em>10以上真正能用的金额大小写转换源码,找了太多的源码都不能用,这个经测试在10以上可以用。
求教Delphi代码转C#这么写
下面是<em>delphi</em><em>代码</em>:rnrn c:= Pointer(a^+i*$04);rnrn e:= Pointer(c^+$16); rnrn pdShsi:=pByte(e)^;rnrn if pdShsi=0 thenrn beginrn Result := c^;rn end;rnrn想知道这个转成C#要这么写?求大侠帮忙
将以下C#代码转换为DELPHI的··
[code=C#]public Bitmap Convolute(Bitmap srcImage)rn rn if (scale == 0) scale = 1;rn int width = srcImage.Width;rn int height = srcImage.Height;rn Bitmap dstImage = (Bitmap)srcImage.Clone();rn BitmapData srcData = srcImage.LockBits(new Rectangle(0, 0, width, height),rn ImageLockMode.ReadOnly, PixelFormat.Format32bppArgb);rn BitmapData dstData = dstImage.LockBits(new Rectangle(0, 0, width, height),rn ImageLockMode.WriteOnly, PixelFormat.Format32bppArgb);rn int rectTop = 1;rn int rectBottom = height - 1;rn int rectLeft = 1;rn int rectRight = width - 1;rn unsafern rn byte* src = (byte*)srcData.Scan0;rn byte* dst = (byte*)dstData.Scan0;rn int stride = srcData.Stride;rn int offset = stride - width * BPP;rn int pixel = 0;rn src += stride;rn dst += stride;rn for (int y = rectTop; y < rectBottom; y++)rn rn src += BPP;rn dst += BPP;rn for (int x = rectLeft; x < rectRight; x++)rn rn if (src[3] > 0)rn rn for (int i = 0; i < 3; i++)rn rn pixel =src[i - stride - BPP] * topLeft +rn src[i - stride] * topMid +rn src[i - stride + BPP] * topRight +rn src[i - BPP] * midLeft +rn src[i] * center +rn src[i + BPP] * midRight +rn src[i + stride - BPP] * bottomLeft +rn src[i + stride] * bottomMid +rn src[i + stride + BPP] * bottomRight;rn pixel = pixel / scale + kernelOffset;rn if (pixel < 0) pixel = 0;rn if (pixel > 255) pixel = 255;rn dst[i] = (byte)pixel;rn rn rn src += BPP;rn dst += BPP;rn rn src += (offset + BPP);rn dst += (offset + BPP);rn rnrn rn srcImage.UnlockBits(srcData);rn dstImage.UnlockBits(dstData);rn srcImage.Dispose();rn return dstImage;rnrn [/code]
强连通分量及缩点tarjan算法解析
强连通分量: 简言之 就是找环(每条边只走一次,两两可达) 孤立的一个点也是一个连通分量   使用tarjan算法 在嵌套的多个环中优先得到最大环( 最小环就是每个孤立点)   定义: int Time, DFN[N], Low[N]; DFN[i]表示 遍历到 i 点时是第几次dfs Low[u] 表示 以u点为父节点的 子树 能连接到 [栈中] 最上端的点   int
CAsyncSocket实现的简单通信程序下载
用MFC的CAsyncSocket实现的简单数据文报方式通信,对time和date请求响应。 相关下载链接:[url=//download.csdn.net/download/lsf886/2230068?utm_source=bbsseo]//download.csdn.net/download/lsf886/2230068?utm_source=bbsseo[/url]
VC++ 可视化Telnet软件源程序下载
VC++ 可视化Telnet软件源程序 VC++ 可视化Telnet软件源程序 相关下载链接:[url=//download.csdn.net/download/a350752425/2629336?utm_source=bbsseo]//download.csdn.net/download/a350752425/2629336?utm_source=bbsseo[/url]
Andorid的API文件类型是CHM【热】2下载
Andorid的API文件由HTML类型转换而成CHM类型,主要是让大家查找API方便,学习更上一层楼!这次共享分只需要2分,希望大家共同学习,有事者请联系:Q 285625881 Andorid API文档CHM格式.part1.rar (http://download.csdn.net/source/2860459)和Andorid API文档CHM格式.part2.rar 两部分! 相关下载链接:[url=//download.csdn.net/download/chenzhizhuan/2860468?utm_source=bbsseo]//download.csdn.net/download/chenzhizhuan/2860468?utm_source=bbsseo[/url]
文章热词 机器学习教程 Objective-C培训 交互设计视频教程 颜色模型 设计制作学习
相关热词 mysql关联查询两次本表 native底部 react extjs glyph 图标 课程表数据库代码 学习代码java
我们是很有底线的