델파이7입니다.
Type Library에서 VARIANT형으로 리턴값을 정의해서 문자열을 반환합니다.
그런데 문자열이 너무 길어서 배열에 넣어서 리스트를 보내서 자바스크립트에서 받으려고 하는데요.
어떻게해야하는지 감이 안와요 도와주세요
function TdsMultiFileUpload.Get_FileListArray: PSafeArray;
var
v: OleVariant;
aaa: PSafeArray;
begin
v := VarArrayCreate([0, 0], varVariant);
v[0] := 'AAAA';
aaa := PSafeArray(TVarData(v).VArray);
Result := aaa;
end;
코딩했습니다. 자바스크립트
// 배열로 파일리스트 가져오는 함수
function GetFilelistArray()
{
var a = new Array();
a = FileUpload.Get_FileListArray();
alert(a.length);
}
이렇게 코딩했더니 델파이에서는 오류가 없는데
웹에서 실행하면
호출 수신부가 잘못되었다고 하네요 ~
|