Форум: "Основная";
Текущий архив: 2002.09.16;
Скачать: [xml.tar.bz2];
Вниз
Не работает в COMe тип Picture Найти похожие ветки
← →
sia (2002-09-03 01:15) [0]Смысл куска программы в передаче с удаленного компа снимка экрана клиенту (а-ля PCAnywhere и ему подобных)
Приложение компилиться, запускается (сервер тоже, разумеется запущен был ранее, чтобы зарегистрироваться),и при ButtonClick1 показывает ошибку "Критический(в 98)/Разрушительный(в 2000) сбой".
Эта же прога ,но с простыми переменными типа integer(long), String(BSTR) работает. Понимаю, что ответить может быть сложно, но как хотя бы отладить(трассировкой) сервер, если активный проект -клиентский.
На сервере:
function TTestServer.Get_Screen: IPictureDisp;
begin
GetOlePicture(form1.image1.picture,result);
end;
В клиенте:
procedure TForm1.Button1Click(Sender: TObject);
var pic:tpicture;
begin
pic:=Tpicture.Create;
SetOlePicture(pic, srv.Screen); //error
image1.Picture:=pic;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
srv:=CoTestServer.CreateRemote("siacomp");//пока локальный,
//т.е мой
end;
← →
Ekaterina (2002-09-03 08:32) [1]To test and debug your COM server application,
1 Turn on debugging information using the Compiler tab on the Project|Options dialog box, if necessary. Also, turn on Integrated Debugging in the Tools|Debugger Options dialog.
2 For an in-process server, choose Run|Parameters, type the name of the Automation controller in the Host Application box, and choose OK.
3 Choose Run|Run.
4 Set breakpoints in the Automation server.
5 Use the Automation controller to interact with the Automation server.
The Automation server pauses when the breakpoints are reached.
Note: As an alternate approach, if you are also writing the Automation controller, you can debug into an in-process server by enabling COM cross-process support. Use the General page of the Tools|Debugger Options dialog to enable cross-process support.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.09.16;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c