» Вопросы по Delphi (версии 2009, 2010 Weaver, 2011 Fulcrum)

Может вопрос и глупый, но загнал в тупик... В OnCreate создается форма, после закрытия главная форма теряет фокус... Как его вернуть обратно в форму?

WSWCORP
BringToFront?

Не передает...

Код:
Application.Initialize;
Application.MainFormOnTaskBar:=False;
Application.CreateForm(TGlav_form, Glav_form);
pass:=Tpass.Create(Application);
pass.Visible:=False;
pass.TopMost:=True;
if pass.ShowModal = 2 then
begin
pass.Free;
Application.Terminate;
end
else
begin
Application.Run;
end;

procedure Tpass.FormCreate(Sender: TObject);
begin
if rez<> -10 then //-6
begin
win_err:=Twin_err.Create(Application);
win_err.Visible:=False;
win_err.TopMost:=True;
win_err.ShowModal;
win_err.Free;
if rez<0 then Application.Terminate;
end
end;

procedure Twin_err.Button1Click(Sender: TObject);
begin
win_err.Close;
end;

WSWCORP
Зачем это?

Код: win_err.Visible:=False;
win_err.TopMost:=True;

WSWCORP
Вроде логичнее пароль спрашивать до создания главной формы и создавать ее если правильный?

Всем спасибо, вопрос снят.

Если есть переменная типа PChar и ее надо передать в функцию (Format) через параметр типа open array, то можно ли ее просто передавать или надо ее явно сконвертировать в тип string?

getwellsoon
Можно прям так передавать

Нужен компонент для расширения оболочки Windows XP (Проводника) или пример.
Подскажите что-нибудь по этому вопросу.

хттп://www.torry.net/pages.php?id=515
Есть платные, есть бесплатные.
Помню, был такой Shell Control Pack, кажется, какая-то из версий была бесплатная с исходниками. А также почти у всех сборников компонентов (Raize, LMD, Developer Express и т.д.) есть компоненты для расширения оболочки, если удастся найти исходные тексты (нет ничего невозможного ), можно много полезного почерпнуть.

Благодарю MrZeRo.

Как в Delphi XE запретить ему создавать папочки Debug/Release при компиляции? В настройках все папки Output стоят другие, а делфя упорно создает эти папки, хотя в них и ничего не выкладывает.

tanaseduard
Project --> Options

В окошке удаляем выделенное и жмакаем OK.

Стоит D2012, но в D2011 было тоже самое.
В коде, удерживая клавишу Ctrl, мышью кликаю по функции или по типу (классу), а Делфи не всегда переходит в нужно место.
Кто-нибудь сталкивался с этим?

Andrey128
Попробуйте установить IDE Fix Pack.

Frodo_Torbins
Спасибо, но у же стоит. И без этого фикса пробовал.

Еще такую неприятную ситуацию обнаружил.
Если перед объявленным классом есть такая запись

Код: TmyStatusInfo = record
Text: string;
State: TmyStatusTextState;
Progress: record
Count: Integer;
Position: Integer;
Visible: Boolean;
end;
end;

TmyThreadInfo = class(TThread)
protected
procedure Execute; override;
...
end;

Andrey128
Никакого волшебства, просто глючный парсер на J#.NET. Зачем он вообще сдался, когда есть парсер компилятора, для всех загадка. Не иначе как диверсия майкрософта.

люди добрые! помогите. сбился с ног исккать уже...
вопрос по XML. юзаю стандартный - XMLDocument.

нужно сделать очень стандартную как я понимаю процедуру. до этого никогда хмл не юзал, поэтому может быть немного ламерствую. направьте кто-нибудь где копать.

суть задачи. есть XML-файл. нужно изменить значения некоторых нодов и сохранить в другой XML-файл.
казалось бы задача - легче некуда. я так и подумал. тупо загружаю файл. потом работаю с нодами вот так:


Код:
Root.ChildNodes['DECLARBODY'].ChildNodes['RXXXXG7'].NodeValue := '666';

Подскажите, как узнать сколько занято памяти программой?
Раньше использовал AllocMemSize, а сейчас она объявлена как deprecated.

Есть ли возможность открывать папки через ShellExecute со своим видом в папке, скажем "Эскизы страниц?"

bukerman1975 там должен быть метод типа Next или GetNext, который возвращает следующий элемент в коллекции или Nil если они кончились.

Andrey128
Можно воспользоваться функцией API GetProcessMemoryInfo
Пример есть в MSDN:
хттп://msdn.microsoft.com/en-us/library/ms682050.aspx

Есть веб сервис написанный на Delphi 2009 (Soap Server Application). Как решить проблему с логированием при обращении одновременно нескольких клилентов? Через критическую секцию не получиться, т.к. при запросе сервис запускается, выполняется и завершается.
Вот моя процедура на данных момент:
[more]
procedure WriteLog(const Msg: string);
var
sFile: string;
F: TextFile;
year, month, day: Word;
begin
//LogThreadCriticalSection.Enter;
decodedate(date, year, month, day);
sFile := ExtractFilePath(paramstr(0)) + 'Logs\Server('+inttostr(day)+'-'+inttostr(month)+'-'+inttostr(year)+').log';
try
if FileExists(sFile) then
begin
AssignFile(F, sFile);
Append(F);
end
else
begin
AssignFile(F, sFile);
ReWrite(F);
end;
Writeln(F, FormatDateTime('dd.mm.yyyy hh:nn:ss.zzz',now())+ ' : ' +Msg);

finally
CloseFile(F);
end;
//LogThreadCriticalSection.Leave;
end;
[/more]

Man_Without_Face
Любые механизмы для организации межпроцессного взаимодействия должны помочь. Можно вообще отдельный процесс организовать, который будет принимать запросы на запись инфы в лог.

Frodo_Torbins
А можно подробнее, как это реализовать в Delphi, ну или где прочитать? Спасибо.

Можно ли в Edit загрузить картинку, да так, чтобы текст в edit'е был виден при его изменении?
Решено.

Man_Without_Face
Почитать можно в DRKB. К примеру про Mutex - он очень похож на критическую секцию, но к нему возможен доступ из разных процессов.

R3Pa4eK
Конкретнее, для чего это нужно?

в эдит можно иконку грузануть - (как у комбобокса слева для каждого итема)
а чтобы в эдит любую картинку... на кой ?

достался проект: в бд сотня таблиц, на клиенте постоянно сыпятся ошибки, виснет. подскажите что почитать/использовать для отладки. до этого времени хватало showmessage. начал читать gunsmoker-a

neznayka3
В вашем случае самое главное дочитать до конца Правда вопросы работы с БД там совершенно не рассмотрены. Так что если у вас ошибки связанные с БД, а не всякие AV, то Блог ГанСмокера не особо поможет. Разве что общими рекомендациями.