Форум: "Основная";
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];

Вниз

Помогите преобращовать Record в Variant!   Найти похожие ветки 

← →
Last Hero   (2002-02-20 23:04) [10]

Sorry, это я просто уже экспериментировал... Поправка, чтобы выглядело как в примере:

Сервер:

function TCcs_serv_rdm.Add_student(OleStudData: OleVariant;
out ErrMsg: WideString): Integer;
var POleStudData : pointer;
StudData : StudentRecord;
// ............................................................
begin
// Раскрываем OleStudData в StudData

POleStudData:=VarArrayLock(OleStudData);
Move(POleStudData^, StudData, SizeOf(StudentRecord));
VarArrayUnLock(OleStudData);
try
ShowMessage(StudData.Main.FirstName); // Просто хочу вывести что-нибудь, и здесь возникает Access Violation. То же самое происходит и при любом другом подобном вызове
except
on E : Exception do ShowMessage(E.Message)
end;




---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.006 c