500 分 紧急求助！ 在线等！！ 谁能帮我将这VB 代码用delphi 实现？(0分)

  • 主题发起人 dafuweng2003
  • 开始时间
D

dafuweng2003

Unregistered / Unconfirmed
GUEST, unregistred user!
---------------------------------------------------------------
Dim FileName() As byte
FileName = StrConv(App.Path &
"/image.bmp" &
Chr$(0), vbFromUnicode)
----------------------------------------
Dim a As String
Dim b As String
b = StrConv(a, vbUnicode)
-----------------------------------------
Public Declare Sub ImageToHangul Lib "IFCR.DLL" (ByRef FileName As Any, ByRef hangul As Any)
 
自己deng
 
deng
 
这很难吗?呵呵,下班了,回家再"杀"你!
 
有人帮忙么？
 
---------------------------------------------------------------
var FileName: string;
FileName := ExtractFilePath(ParamStr(0)) + "image.bmp";
----------------------------------------
var a: WideString;
var b: String;
b := a
-----------------------------------------
procedure ImageToHangul(FileName: Pointer;
hangul: Pointer);
stdcall;
external 'IFCR.DLL';
回答完毕。500分你给不给都行！
 
procedure ImageToHangul(FileName: pchar;
hangul: Pointer);
stdcall;
external 'IFCR.DLL';
var
FileName,a:WideString;
b:pchar;
begin
FileName:=ExtractFilePath(ParamStr(0)) + "image.bmp";
a:=a+'#0';
b:=strcopy(b,a)
end;


 
-----------------
procedure ImageToHangul(FileName: Pointer;
hangul: Pointer);
stdcall;
external 'IFCR.DLL';
还可以！
其他的都不对！
FileName = StrConv(App.Path &
"/image.bmp" &
Chr$(0), vbFromUnicode)
这句是， 将文件内容读到 fileName(数组中！)
 
应该这么说吧:
如果你只懂VB,不懂DELPHI,是我们的不对.
在DELPHI中,字节数组与string是可以互用的.
 
对不起！ 你们说的对！ 是我理解错了
lzhuan,
东兰梦舞,
二位到下面的贴登陆就给分！
http://delphibbs.com/delphibbs/dispq.asp?lid=2396586
http://delphibbs.com/delphibbs/dispq.asp?lid=2343048
http://delphibbs.com/delphibbs/dispq.asp?lid=2494349
http://delphibbs.com/delphibbs/dispq.asp?lid=2447052
http://delphibbs.com/delphibbs/dispq.asp?lid=2412740
 
看了你几个贴子,怎么总是在买卖东西的?
呵呵,这分我就不要了.
[:D]
 
你们要吧， 没有你这么一说！ 我到现在还有困惑！
我是不知道！ VB 中 Strconv 到底有什么功能！
----
我以为, strconv 可以读文件内容呢！
 
傻了不是，人家谢你都不领情，还让人家违反游戏规则，不好哦，兄弟？ ：）
 
不是的，StrConv是用来进行内码转换的。主要用来将Unicode与Ansi互转，你上面使用的VB代码就是。
在Delphi中，WideString与String的赋值就完成了这个功能。
 
to app2001:
有时问题的讨论也是一种乐趣啊。
能不能给你提个意见？[:D]有时你给别人的回答离题比较远呢！
 
app2001:
是pipi.的接班人，
守分奴!，呵呵
[:D][:D]
 
谢谢大家
 
您必须登录或注册才可回复。

Similar threads

I
未公开的API
回复
0
查看
711
import
I
Y
VB代码转为Delphi..在线等.搞定就给分..(200)
回复
2
查看
364
yeszhang
Y
N
谁能帮忙把这段VB代码翻译成 delphi 的 谢谢了(50分)
回复
0
查看
523
nosence
N
H
哪位高手帮忙把下面vb代码转为delphi的？谢谢啊(200分)
回复
4
查看
694
jiangxidna
J
L
很早以前写的玩的 发出来乐乐(0分)
回复
0
查看
383
linuxping
L
顶部