5,391
社区成员
发帖
与我相关
我的任务
分享ShockwaveFlash1.CallFunction总提示错误
我的调用代码如下：
错误提示：
未指定的错误
ShockwaveFlash1.CallFunction('<invoke name="myFunction" returntype="xml"><arguments><string>123</string></arguments></invoke>');
错误提示：
未指定的错误
...全文
请发表友善的回复…
发表回复
ningyong58 2012-07-02
- 打赏
- 举报
[Quote=引用 4 楼 的回复:]
未指定的錯誤？樓上的，我把你叫聲大哥。。。你怎麼就不會變通一下呢？？？
這很明顯你的程序代碼有問題啊，我曾經利用D7+Flash的ocx方法與Flash進行編程接口，沒有遇到問題；只是最後移植到D2007的版本上，根本不起作用，原來是D2007未封閉此函數和事件。。。因此，你只能參考此Flash的ocx的SDK,研究一下XML參數字符格式並解析。。。
Flash也提供了OCX的方法接口，如……
[/Quote]
请问：数组对应的Flash的AS3如何写。
未指定的錯誤？樓上的，我把你叫聲大哥。。。你怎麼就不會變通一下呢？？？
這很明顯你的程序代碼有問題啊，我曾經利用D7+Flash的ocx方法與Flash進行編程接口，沒有遇到問題；只是最後移植到D2007的版本上，根本不起作用，原來是D2007未封閉此函數和事件。。。因此，你只能參考此Flash的ocx的SDK,研究一下XML參數字符格式並解析。。。
Flash也提供了OCX的方法接口，如……
[/Quote]
请问：数组对应的Flash的AS3如何写。
sancaoping 2010-08-18
- 打赏
- 举报
成功了！非常感谢
sancaoping 2010-08-16
- 打赏
- 举报
[Quote=引用 17 楼 kye_jufei 的回复:]
認真看一下代碼，callfunction這是flash控件的一個方法，類似這樣：
Delphi(Pascal) code
falshplayer1.callfunction(...........)
[/Quote]
哦，好的，我这两天有点事，过一阵再试试看。先谢啦
認真看一下代碼，callfunction這是flash控件的一個方法，類似這樣：
Delphi(Pascal) code
falshplayer1.callfunction(...........)
[/Quote]
哦，好的，我这两天有点事，过一阵再试试看。先谢啦
kye_jufei 2010-08-14
- 打赏
- 举报
認真看一下代碼，callfunction這是flash控件的一個方法，類似這樣：
falshplayer1.callfunction(...........)sancaoping 2010-08-13
- 打赏
- 举报
[Quote=引用 14 楼 kye_jufei 的回复:]
查收...
[/Quote]
我收到了，可是feflashplayer没有callfunction函数啊！！！
查收...
[/Quote]
我收到了，可是feflashplayer没有callfunction函数啊！！！
fenshm 2010-08-13
- 打赏
- 举报
学习~帮顶！
kye_jufei 2010-08-13
- 打赏
- 举报
查收...
sancaoping 2010-08-13
- 打赏
- 举报
hnqianli2005@126.com这是我的邮箱，谢啦
sancaoping 2010-08-12
- 打赏
- 举报
现在把我的可用分都加上去了，够意思了吧？
kye_jufei 2010-08-12
- 打赏
- 举报
代碼有點長，你提供一個油箱；我發給你...
procedure TfeFlashPlayer.LoadMovie(layer: SYSINT; const url: WideString);
var
M: TMemoryStream;
l: Integer;
fs: TFileStream;
playFileName, url2: string;
i: integer;
begin
if FFlashNotExists then Exit;
if not FFlashNotExists then
begin
if Pos('.flv', url) > 0 then
begin
M := TMemoryStream.Create;
try
M.Write(play_swf, sizeOf(play_swf));
M.Position := 0;
SetLength(playFileName, 1000);
l := GetTempPath(1000, PChar(playFileName));
SetLength(playFileName, l);
if (Length(playFileName)>0) and (playFileName[Length(playFileName)]<>'\') then
playFileName := playFileName+'\';
l := Random(1000);
while FileExists(playFileName+IntToStr(l)+'.swf') do
inc(l);
playFileName := playFileName+IntToStr(l)+'.swf';
fs := TFileStream.Create(playFileName, fmCreate);
fs.CopyFrom(M, M.Size);
fs.Free;
for i := 1 to Length(playFileName) do
if playFileName[i] = '\' then
playFileName[i] := '/';
url2 := url;
for i := 1 to Length(url2) do
if url2[i] = '\' then
url2[i] := '/';
DefaultInterface.LoadMovie(layer, playFileName + '?fileName=' + url2);
deleteFile(playFileName);
finally
M.Free;
end;
end
else
begin
DefaultInterface.LoadMovie(layer, url);
end;
SetBounds(Left, Top, Width, Height);
end;
end;
procedure TfeFlashPlayer.LoadMovieFromStream(layer: SYSINT; const Stream: TStream);
var
Sign: array [1..3] of char;
begin
Stream.Position := 0;
Stream.Read(Sign, 3);
Stream.Position := 0;
if (Sign[1] = 'F') and (Sign[2] = 'L') and (Sign[3] = 'V') then
begin
FStream.SetSize(0);
Stream.Position := 0;
FStream.CopyFrom(Stream, Stream.Size);
FStream.Position := 0;
if FStream.Size > 0 then
begin
InitFlash(true);
SetBounds(Left, Top, Width, Height);
end;
end
else
begin
FStream.SetSize(0);
Stream.Position := 0;
FStream.CopyFrom(Stream, Stream.Size);
if FStream.Size > 0 then
begin
InitFlash;
SetBounds(Left, Top, Width, Height);
end;
end;
end;
procedure TfeFlashPlayer.LoadMovieFromResource(layer: SYSINT; const ResName: WideString);
var
R: TResourceStream;
begin
R := TResourceStream.Create(0, ResName, RT_RCDATA);
if R <> nil then
LoadMovieFromStream(layer, R);
R.Free;
end;
function TfeFlashPlayer.GetIntegerProp(const Index: Integer): Integer;
var
Temp: TVarData;
begin
GetProperty(Index, Temp);
Result := Temp.VInteger;
end;
function TfeFlashPlayer.GetIsFlashAvailable: boolean;
begin
Result := not FFlashNotExists;
end;
function TfeFlashPlayer.GetIUnknownProp(const Index: Integer): IUnknown;
var
Temp: TVarData;
begin
GetProperty(Index, Temp);
Result := IUnknown(Temp.VUnknown);
end;
procedure TfeFlashPlayer.SetFlashList(const Value: TfeFlashList);
begin
FFlashList := Value;
if FFlashList = nil then FFlashIndex := -1;
FlashIndex := FlashIndex;
end;
procedure TfeFlashPlayer.SetIntegerProp(const Index, Value: Integer);
var
Temp: TVarData;
begin
Temp.VType := varInteger;
Temp.VInteger := Value;
SetProperty(Index, Temp);
end;
procedure TfeFlashPlayer.SetIUnknownProp(const Index: Integer;
const Value: IUnknown);
var
Temp: TVarData;
begin
Temp.VType := VT_UNKNOWN;
Temp.VUnknown := Pointer(Value);
SetProperty(Index, Temp);
end;
procedure TfeFlashPlayer.SetFlashIndex(const Value: integer);
var
Flash: TMemoryStream;
begin
FFlashIndex := Value;
if (FFlashList <> nil) and (FFlashList.Flashs.Count > 0) and (FFlashIndex >= 0) then
begin
if FFlashIndex < 0 then FFlashIndex := 0;
if FFlashIndex >= FFlashList.Flashs.Count - 1 then
FFlashIndex := FFlashList.Flashs.Count - 1;
if FFlashList.Flashs.Items[FFlashIndex].Flash <> nil then
begin
Flash := FFlashList.Flashs.Items[FFlashIndex].Flash;
if Flash <> nil then
begin
LoadMovieFromStream(0, Flash);
end;
end;
end
else
if FFlashIndex < 0 then
begin
end;
end;
代碼太長，省略。。。（你提供油箱，我發給你）...
sancaoping 2010-08-11
- 打赏
- 举报
[Quote=引用 6 楼 kye_jufei 的回复:]
補充一點，免得你走彎路：
有的第三方ＦＬＡＳＨ封裝的控件接口不完整，未提供Flash8以後提供的CallFunction(宿主程序調用flash函數)和OnFlashCall(flash調用宿主程序)的函數和事件。。。其中丟失了一些應有的方法、屬性、事件等，你可以通過自己匯出這個ocx或dll的介面檔（xxx_TLB.pas）然後比較兩者介面異同的方式補齊其中的方法、屬性、事件。。。
……
[/Quote]
谢谢楼上的详细解答，不过我想我的问题应该不在这。我用的是D7+flash(as 3.0)，在delphi中的控件我用的是smartflash(v1.5)，delphi中的shockwaveflash也试过。我在下载smartflash的时候还下载了一些demo，demo中的调用没有问题，代码跟我的一样，只是demo中的flash是as2.0版本的，我还用同样的方法调用了demo中的flash，结果也是成功的。我想是不是因为smartflash不支持flash as3.0版本，所以才会导致调用出错。你以前成功的例子是flash as2还是flash as3的？
補充一點，免得你走彎路：
有的第三方ＦＬＡＳＨ封裝的控件接口不完整，未提供Flash8以後提供的CallFunction(宿主程序調用flash函數)和OnFlashCall(flash調用宿主程序)的函數和事件。。。其中丟失了一些應有的方法、屬性、事件等，你可以通過自己匯出這個ocx或dll的介面檔（xxx_TLB.pas）然後比較兩者介面異同的方式補齊其中的方法、屬性、事件。。。
……
[/Quote]
谢谢楼上的详细解答，不过我想我的问题应该不在这。我用的是D7+flash(as 3.0)，在delphi中的控件我用的是smartflash(v1.5)，delphi中的shockwaveflash也试过。我在下载smartflash的时候还下载了一些demo，demo中的调用没有问题，代码跟我的一样，只是demo中的flash是as2.0版本的，我还用同样的方法调用了demo中的flash，结果也是成功的。我想是不是因为smartflash不支持flash as3.0版本，所以才会导致调用出错。你以前成功的例子是flash as2还是flash as3的？
kye_jufei 2010-08-11
- 打赏
- 举报
貌似分有點少...
sancaoping 2010-08-11
- 打赏
- 举报
[Quote=引用 8 楼 kye_jufei 的回复:]
呵呵，問題不在這？在哪？？在這：
你可能要要修改ＰＡＳ文件：（代碼過長，我貼一部分吧...）
Delphi(Pascal) code
unit fe_flashplayer;
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
{.$WARN SYMBOL_PLATFORM……
[/Quote]
我是桌面系统，我以前用的是fe_flashPlayer，pas文件要怎么改？能否把改动的部分共享下？
呵呵，問題不在這？在哪？？在這：
你可能要要修改ＰＡＳ文件：（代碼過長，我貼一部分吧...）
Delphi(Pascal) code
unit fe_flashplayer;
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
{.$WARN SYMBOL_PLATFORM……
[/Quote]
我是桌面系统，我以前用的是fe_flashPlayer，pas文件要怎么改？能否把改动的部分共享下？
kye_jufei 2010-08-11
- 打赏
- 举报
呵呵，問題不在這？在哪？？在這：
你可能要要修改ＰＡＳ文件：（代碼過長，我貼一部分吧...）
另外：
你用的smartflash,它和delphi交互可試試用OnHandleFSCommand(ASender: TObject; const command, args: WideString)事件去接口交互，那麼基於WEBGIS你就可以這樣：
那麼：如果你是桌面系統，就可能要按照我上面說的做了...
你可能要要修改ＰＡＳ文件：（代碼過長，我貼一部分吧...）
unit fe_flashplayer;
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
{.$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{.$VARPROPSETTER ON}
interface
uses Windows, SysUtils, ActiveX, Classes, Graphics, OleCtrls, OleServer, StdVCL,
fe_flashole, fe_flashwnd, fe_stream;
const
// TypeLibrary Major and minor versions
ShockwaveFlashObjectsMajorVersion = 1;
ShockwaveFlashObjectsMinorVersion = 0;
.............................省略部分代碼.........................
CoFlashObjectInterface = class
class function Create: IFlashObjectInterface;
class function CreateRemote(const MachineName: string): IFlashObjectInterface;
end;
implementation
uses ComObj;另外：
你用的smartflash,它和delphi交互可試試用OnHandleFSCommand(ASender: TObject; const command, args: WideString)事件去接口交互，那麼基於WEBGIS你就可以這樣：
procedure TForm1.sfFlashPlayer1HandleFSCommand(ASender: TObject;
const command, args: WideString);
begin
if (command = 'website') and (args = 'open')
then
begin
ShellExecute(0, 'open', 'http://www.test.com', nil, nil, SW_SHOWNORMAL);
end
else
if (command = 'closeabout')
then
begin
if FLoadFromStore
then
sfFlashPlayer1.FlashIndex := StoreIndex
else
sfFlashPlayer1.LoadMovie(0, OpenDialog.FileName);
end;
end;那麼：如果你是桌面系統，就可能要按照我上面說的做了...
kye_jufei 2010-08-10
- 打赏
- 举报
補充一點，免得你走彎路：
有的第三方ＦＬＡＳＨ封裝的控件接口不完整，未提供Flash8以後提供的CallFunction(宿主程序調用flash函數)和OnFlashCall(flash調用宿主程序)的函數和事件。。。其中丟失了一些應有的方法、屬性、事件等，你可以通過自己匯出這個ocx或dll的介面檔（xxx_TLB.pas）然後比較兩者介面異同的方式補齊其中的方法、屬性、事件。。。
有的第三方ＦＬＡＳＨ封裝的控件接口不完整，未提供Flash8以後提供的CallFunction(宿主程序調用flash函數)和OnFlashCall(flash調用宿主程序)的函數和事件。。。其中丟失了一些應有的方法、屬性、事件等，你可以通過自己匯出這個ocx或dll的介面檔（xxx_TLB.pas）然後比較兩者介面異同的方式補齊其中的方法、屬性、事件。。。
kye_jufei 2010-08-10
- 打赏
- 举报
再把這個ＣＡＬＬＦＵＮＣＴＩＯＮ說的詳細一點：
轉換成XML字串，主體的參數是以下格式
轉換成XML字串，主體的參數是以下格式
const
cstInvoke='<invoke name="%s" returntype="xml"><arguments>%s</arguments></invoke>';
其中，具體的參數如下：
a、字串以string表示
b、數值以number表示
c、Boolean類型比較特殊，直接傳遞自閉合的 <true/> 或 <false/>
d、日期類型以date表示、
e、未定義以undefined表示
f、空值以自閉和的 <null/> 表示
舉例如下：傳遞字串和Boolean類型參數
TsfFlashPlayerAsync.CallFunction(0,'<invoke name="SetFocus2Center" returntype="xml"><arguments><string>商家名稱</string><true/></arguments></invoke>')
如果傳遞字串參數，有可能會遇到XML保留關鍵字或字元，會導致XML解析失敗。
因此建議使用CDATA來保證字串出現XML的保留關鍵字或字元。
CDATA格式：<![CDATA[內容]]>
上訴例子可以改為：
TsfFlashPlayerAsync.CallFunction(0,'<invoke name="SetFocus2Center" returntype="xml"><arguments><string><![CDATA[商家名稱]]></string><true/></arguments></invoke>')kye_jufei 2010-08-10
- 打赏
- 举报
未指定的錯誤？樓上的，我把你叫聲大哥。。。你怎麼就不會變通一下呢？？？
這很明顯你的程序代碼有問題啊，我曾經利用D7+Flash的ocx方法與Flash進行編程接口，沒有遇到問題；只是最後移植到D2007的版本上，根本不起作用，原來是D2007未封閉此函數和事件。。。因此，你只能參考此Flash的ocx的SDK,研究一下XML參數字符格式並解析。。。
Flash也提供了OCX的方法接口，如果想在Delphi主动调用Flash接口，可通过CallFunction接口来调用Flash里的编程接口。
CallFunction的参数是一个字符串，根据XML字符串方式传入参数，Flash再将XML参数序列化成具体的参数类型。
经参考Flash SDK，XML参数字符串格式如下:
（強烈建議你先這段XML參數解析看懂再發言；如果看不懂，你就不知道這個“未指定的錯誤”到底是什麼？）
這很明顯你的程序代碼有問題啊，我曾經利用D7+Flash的ocx方法與Flash進行編程接口，沒有遇到問題；只是最後移植到D2007的版本上，根本不起作用，原來是D2007未封閉此函數和事件。。。因此，你只能參考此Flash的ocx的SDK,研究一下XML參數字符格式並解析。。。
Flash也提供了OCX的方法接口，如果想在Delphi主动调用Flash接口，可通过CallFunction接口来调用Flash里的编程接口。
CallFunction的参数是一个字符串，根据XML字符串方式传入参数，Flash再将XML参数序列化成具体的参数类型。
经参考Flash SDK，XML参数字符串格式如下:
（強烈建議你先這段XML參數解析看懂再發言；如果看不懂，你就不知道這個“未指定的錯誤”到底是什麼？）
function __flash__arrayToXML(obj) {
var s = "<array>";
for (var i=0; i<obj.length; i++) {
s += "<property id=\"" + i + "\">" + __flash__toXML(obj[i]) + "</property>";
}
return s+"</array>";
}
function __flash__argumentsToXML(obj,index) {
var s = "<arguments>";
for (var i=index; i<obj.length; i++) {
s += __flash__toXML(obj[i]);
}
return s+"</arguments>";
}
function __flash__objectToXML(obj) {
var s = "<object>";
for (var prop in obj) {
s += "<property id=\"" + prop + "\">" + __flash__toXML(obj[prop]) + "</property>";
}
return s+"</object>";
}
function __flash__escapeXML(s) {
return s.replace(/&/g, "&").replace(/</g, "<").replace(/>/g, ">").replace(/"/g, """).replace(/'/g, "'");
}
function __flash__toXML(value) {
var type = typeof(value);
if (type == "string") {
return "<string>" + __flash__escapeXML(value) + "</string>";
} else if (type == "undefined") {
return "<undefined/>";
} else if (type == "number") {
return "<number>" + value + "</number>";
} else if (value == null) {
return "<null/>";
} else if (type == "boolean") {
return value ? "<true/>" : "<false/>";
} else if (value instanceof Date) { return date + value.getTime() + /date; } else if (value instanceof Array) { return __flash__arrayToXML(value); } else if (type == object) { return __flash__objectT
} else if (value instanceof Date) {
return "<date>" + value.getTime() + "</date>";
} else if (value instanceof Array) {
return __flash__arrayToXML(value);
} else if (type == "object") {
return __flash__objectToXML(value);
} else {
return "<null/>"; //???
}
}
function __flash__addCallback(instance, name) {
instance[name] = function () {
return eval(instance.CallFunction("<invoke name=\""+name+"\" returntype=\"javascript\">" + __flash__argumentsToXML(arguments,0) + "</invoke>"));
}
}
function __flash__removeCallback(instance, name) {
instance[name] = null;
}sancaoping 2010-08-10
- 打赏
- 举报
[Quote=引用 2 楼 kye_jufei 的回复:]
使用CallFunction傳遞變量：
應用程序（Delphi），代碼如下：
Delphi(Pascal) code
Label1.Caption := ShockwaveFlash1.CallFunction('<invoke name="myFunction"><arguments><string>SSSS</string></arguments></invoke>');
……
[/Quote]
呵呵，你跟我找的是同一个地方的代码。我之前也按上面的写过，不过也提示了未指定的错误
使用CallFunction傳遞變量：
應用程序（Delphi），代碼如下：
Delphi(Pascal) code
Label1.Caption := ShockwaveFlash1.CallFunction('<invoke name="myFunction"><arguments><string>SSSS</string></arguments></invoke>');
……
[/Quote]
呵呵，你跟我找的是同一个地方的代码。我之前也按上面的写过，不过也提示了未指定的错误
kye_jufei 2010-08-10
- 打赏
- 举报
使用CallFunction傳遞變量：
應用程序（Delphi），代碼如下：
Flash代碼如下：
PS:XML標籤不能變...
應用程序（Delphi），代碼如下：
Label1.Caption := ShockwaveFlash1.CallFunction('<invoke name="myFunction"><arguments><string>SSSS</string></arguments></invoke>');Flash代碼如下：
function callMe(str:String):String {
MyShowA.text = str;
return "busy signal";
}
ExternalInterface.addCallback("myFunction", callMe);PS:XML標籤不能變...
kye_jufei 2010-08-10
- 打赏
- 举报
我的：
Label1.Caption := ShockwaveFlash1.CallFunction('<invoke name="myFunction"><arguments><string>SSSS</string></arguments></invoke>'); 连接数据库代码实例
1,连接数据库代码 文件名称 conn.asp 所有访问数据库的文件都调用此文件
<%
db=\"data/data.mdb\" \'数据库存放目录
on error resume next
set conn=server.createobject(\"adodb.connection\")
conn.open \"driver={microsoft access driver (*.mdb)};dbq=\"&server.mappath(db)
if err then
err.clear
set conn = Nothing
response.write \"数据库连接出错，请检查conn.asp中的连接字符串。\"
response.end
end if
function CloseDB
Conn.Close
set Conn=Nothing
End Function
%>
<%
dim badword
badword=\"\'|and|select|update|chr|delete|%20from|;|insert|mid|master.|set|chr(37)|=\"
if request.QueryString<>\"\" then
chk=split(badword,\"|\")
for each query_name in request.querystring
for i=0 to ubound(chk)
if instr(lcase(request.querystring(query_name)),chk(i))<>0 then
response.write \"<script language=javascript>alert(\'传参错误！参数 \"&query_name&\" 的值中包含非法字符串！\\n\\n\');location=\'\"&request.ServerVariables(\"HTTP_REFERER\")&\"\'\"
response.end
end if
next
next
end if
%>
----------------------------------------------
2。增加纪录
<%
if request(\"action\")=\"add\" then
name=request.form(\"name\")
content=request.form(\"content\")
set rs=server.createobject(\"adodb.recordset\")
sql=\"select * from biao\"
rs.open sql,conn,3,2
rs.addnew
rs(\"name\")=name
if content<>\"\" then
rs(\"content\")=content
else
rs(\"content\")=null
end if
rs(\"date\")=date()
rs.update
rs.close
set rs=nothing
response.write \"<script language=javascript>alert(\'添加成功！\');location.href(\'index.asp\');
--------------------------------------
3.显示记录
<%
set rs=server.createobject(\"adodb.recordset\")
sql=\"select * from biao order by id desc\"
\'sql=\"select top 10 * from biao order by id desc\"
rs.open sql,conn,1,1
rs.pagesize=15 \'-------设置每页显示的记录数
dim page
page=request(\"page\")
if page<>\"\" and IsNumeric(page) then
page=clng(page)
else
page=1
end if
n=rs.pagecount
if page>n then
page=clng(n)
end if
if rs.eof then
response.write\"暂没有信息！\"
\'response.end
else
rs.absolutepage=page
end if
i=0
do while not rs.eof and i
--------如果是每行显示n个纪录开始----------------------------
<%
do while not rs.eof and i\"
end if
%>
--------如果是每行显示n个纪录结束-----------------------------
<%=rs(\"id\")%>
<% rs.movenext
i=i+1
loop
%>
<%
response.write(\"共\"&rs.recordcount&\"条信息 \")
if page<>1 then
response.write(\"首页 \")
else
response.write(\"首页 \")
end if
if page>1 then
response.write(\"上一页 \")
else
response.write(\"上一页 \")
end if
if page下一页 \")
else
response.write(\"下一页 \")
end if
if page<>n then
response.write(\"尾页 \")
else
response.write(\"尾页 \")
end if
response.write(\" 当前页：\"&page&\"/\"&n&\"\")
%>
转到：
