Вопрос по Delphi

[CriticalArrow]

Re: Помощь по Delphi

Вот специально для тебя написал, вот только что...

Спасибо, еще раз.

 

[vay]

программирование в delphi

You must be registered for see links

 

[vay]

Ответ: программирование для office в delphi

You must be registered for see links

 

[vay]

Ответ: программирование для office в delphi

You must be registered for see links

 

[Live]

Ответ: Помощь по Delphi

Каким образом в делфи можно отследить текущий каталог? То есть тот каталог в котором находится exe-файл запускаемой програмы. Думал что по умолчанию к примеру в SaveDialog в свойстве InitialDir идет текущий каталог но не тут то было. Предлагает сохранить в Мои Документы. Хелп!

 

[RQQT]

Ответ: Помощь по Delphi

Каким образом в делфи можно отследить текущий каталог? То есть тот каталог в котором находится exe-файл запускаемой програмы. Думал что по умолчанию к примеру в SaveDialog в свойстве InitialDir идет текущий каталог но не тут то было. Предлагает сохранить в Мои Документы. Хелп!

Уточню предыдущего оратора - ExtractFilePath(Application.ExeName) и, далее, с SaveDialog - SaveDialog1.InitialDir:= ExtractFilePath(Application.ExeName) . Для определения текущей директории есть еще функция - GetCurrentDir. Но первый способ проще и вернее.

 

[Live]

Ответ: Помощь по Delphi

Определенно правильно и в других програмах пробывал определяет каталог да вот только в нужной программе связаной с автокадом работать упорно не хочет. Подключаю модуль AutoCAD_TLB
Кнопка сохранения текущего документа автокада где объект АА есть Autocad.application созданный через createoleobject

procedure TForm1.Button2Click(Sender: TObject);
 var name: WideString;
begin

if SaveDialog1.Execute then
  ExtractFilePath(Application.ExeName);
  name:=SaveDialog1.InitialDir+SaveDialog1.Files.Text;
  AA.ActiveDocument.SaveAs(name,acNative,EmptyParam);
  end;

end.

 

[DATH]

Ответ: Вопрос по Delphi

Народ, подскажите как сделать кнопки "Сохранить как" и "Печать, предварительный просмотр" при разработке интернет брвузера! Сильно не бейте, просто я очень не шарю

 

[KoLoB]

Ответ: Вопрос по Delphi

Народ, подскажите как сделать кнопки "Сохранить как" и "Печать, предварительный просмотр" при разработке интернет брвузера! Сильно не бейте, просто я очень не шарю

Просто сделать кнопки, или сделать что они работали?
Если второе - то это очень много текста, особенно если ты не особо шариш.

Читай литературку тут:

You must be registered for see links

чтобы очень шарить

 

[nilayn]

Ответ: Вопрос по Delphi

Народ, подскажите как сделать кнопки "Сохранить как" и "Печать, предварительный просмотр" при разработке интернет брвузера! Сильно не бейте, просто я очень не шарю

Просто печать так:

procedure TForm1.N7Click(Sender: TObject);
var
PostData, Headers:OLEvariant;
begin
WebBrowser1.ExecWB(OLECMDID_PRINT,OLECMDEXECOPT_DODEFAULT,PostData, Headers);
end;

Сохранить как:

procedure TForm1.SaveHTMLSourceToFile(const FileName: string;WB: TWebBrowser);
var
PersistStream: IPersistStreamInit;
FileStream: TFileStream;
Stream: IStream;
SaveResult: HRESULT;
begin
PersistStream := WB.Document as IPersistStreamInit;
FileStream := TFileStream.Create(FileName, fmCreate);
try
Stream := TStreamAdapter.Create(FileStream, soReference) as IStream;
SaveResult := PersistStream.Save(Stream, True);
if FAILED(SaveResult) then
MessageBox(Handle, 'Fail to save HTML source', 'Error', 0);
finally
{ В ответ на уничтожение объекта TFileStream, передаём
soReference в конструктор TStreamAdapter. }
FileStream.Free;
end;
end;

procedure TForm1.N6Click(Sender: TObject);
begin
if SaveDialog1.Execute then
SaveHTMLSourceToFile(SaveDialog1.FileName, WebBrowser1);
end;

Куски кода взяты с моей лабы по комп. сетям … а вообще в инете полно инфы, как сделать свой браузер