Технология для меня новая и видимо где-то я туплю. Итак есть программка SumatraPDF и в ней имеется поддержка DDE.
В руководстве по DDE управлению к суматре написано:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
DDE command: [Open("%bm.pdf",0,1,1)]
Server: SUMATRA
Topic: control
Open file
format: [Open("<pdffilepath>"[,<newwindow>,<focus>,<forcerefresh>])]
arguments:
if newwindow is 1 then a new window is created even if the file is already open
if focus is 1 then the focus is set to the window
if forcerefresh is 1 the command forces the refresh of the file window if already open (useful for files opened over network that don’t get file-change notifications)“.
example: [Open("c:\file.pdf", 1, 1, 0)]
Я настраиваю DdeClientConv1
DdeService = SUMATRA
DdeTopic=control
ServiceApplication=F:\Software\TCPU68\Plugins\wlx\slister\SumatraPDF.exe
ConnectMode=ddeManual
Далее обрабатываю события формы:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
procedure TForm52.Button1Click(Sender: TObject);
begin
DdeClientItem1.Lines.Text := '[Open("F:\Software\TCPU68\Plugins\wlx\slister\req_305035478_preview")]';
DDEClientConv1.PokeDataLines('control', DDEClientItem1.Lines);
end;
procedure TForm52.FormCreate(Sender: TObject);
begin
if not DDEClientConv1.OpenLink
then ShowMessage('Сервер ' + DDEClientConv1.DdeTopic + ' не обнаружен')
else DdeClientItem1.DdeItem := 'control';
end;
SumatraPDF.exe запускается нормально, но вот файл не грузит напрочь.
Может подскажет кто, что я делаю не так?
