| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 547 人关注过本帖
标题:[求助]
只看楼主 加入收藏
hly2005
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2005-9-16
收藏
 问题点数:0 回复次数:2 
[求助]

各位高手,我用vc编的一段程序,里面含有直接调用txt文本(数据)的函数,我把程序做成了dll,然后在VB里面调用,可是记事本里的数据传不上来,是怎么回事呀?我把一些代码写下来。大家帮我看看。谢谢!

这一段是调用记事本的函数:

#include<iostream.h> #include<fstream.h>

int get_data(int mcw[5]) { ifstream input1; static i,ret=0; input1.open("F:\数据\mcw.txt",ios::in); if(!input1) { cout<<"支撑辊直径数据文件 mcw.txt没打开"<<endl; ret=5; return(ret); } for(i=0;i<5;i++) { input1>>mcw[i]; } input1.close(); return (ret);

}

这一段是主函数: int _stdcall hly(int j) { extern int get_data(int mcw[5]); static int i,ret; int mcw[5];

ret=get_data(mcw); i=j+mcw[0]; cout<<i; return (i); }

这一段是vb调用: Option Explicit

Private Declare Function hly Lib "MyDLL.dll" (ByVal m As Integer) As Integer

Private Sub Command1_Click() Dim b As Integer b = hly(3) Text3.Text = b MsgBox "数据b=" & b End Sub

搜索更多相关主题的帖子: include 记事本 return 
2005-09-16 17:49
hly2005
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2005-9-16
收藏
得分:0 
拜托大家帮我看看好吗?我不知道是怎么回事呀。我都急死了呀,拜托各位了。
2005-09-17 21:22
hly2005
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2005-9-16
收藏
得分:0 
这只是单一的一段小程序,只是一个调用记事本的函数而已,帮忙看一下呀。我刚开始学编程,我不知道是什么原因,拜托了。
2005-09-17 21:30
快速回复:[求助]
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017375 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved