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

D

dafuweng2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-18

• #1

---------------------------------------------------------------
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)

 

D

dafuweng2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-18

• #2

自己deng

 

D

dafuweng2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-18

• #3

deng

 

东

东兰梦舞

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-18

• #4

这很难吗?呵呵,下班了,回家再"杀"你!

 

D

dafuweng2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-18

• #5

有人帮忙么？

 

东

东兰梦舞

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-18

• #6

---------------------------------------------------------------
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分你给不给都行！

 

L

lzhuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-18

• #7

procedure ImageToHangul(FileName: pchar;
hangul: Pointer);
stdcall;
external 'IFCR.DLL';
var
FileName,a:WideString;
bchar;
begin
FileName:=ExtractFilePath(ParamStr(0)) + "image.bmp";
a:=a+'#0';
b:=strcopy(b,a)
end;

 

D

dafuweng2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-19

• #8

-----------------
procedure ImageToHangul(FileName: Pointer;
hangul: Pointer);
stdcall;
external 'IFCR.DLL';
还可以！
其他的都不对！
FileName = StrConv(App.Path &
"/image.bmp" &
Chr$(0), vbFromUnicode)
这句是， 将文件内容读到 fileName(数组中！)

 

东

东兰梦舞

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-19

• #9

应该这么说吧:
如果你只懂VB,不懂DELPHI,是我们的不对.
在DELPHI中,字节数组与string是可以互用的.

 

D

dafuweng2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-19

• #10

对不起！ 你们说的对！ 是我理解错了
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

 

东

东兰梦舞

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-19

• #11

看了你几个贴子,怎么总是在买卖东西的?
呵呵,这分我就不要了.
[]

 

D

dafuweng2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-19

• #12

你们要吧， 没有你这么一说！ 我到现在还有困惑！
我是不知道！ VB 中 Strconv 到底有什么功能！
----
我以为, strconv 可以读文件内容呢！

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-19

• #13

傻了不是，人家谢你都不领情，还让人家违反游戏规则，不好哦，兄弟？ ：）

 

东

东兰梦舞

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-19

• #14

不是的，StrConv是用来进行内码转换的。主要用来将Unicode与Ansi互转，你上面使用的VB代码就是。
在Delphi中，WideString与String的赋值就完成了这个功能。

 

东

东兰梦舞

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-19

• #15

to app2001:
有时问题的讨论也是一种乐趣啊。
能不能给你提个意见？[]有时你给别人的回答离题比较远呢！

 

W

WoDing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-19

• #16

app2001:
是pipi.的接班人，
守分奴!，呵呵
[][]

 

D

dafuweng2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-19

• #17

谢谢大家