» Вопросы по Delphi (до версии 2009) - часть 5

сделал через сокеты вроде разобрался.. хочу в поток засунуть как правильней сделать - чтобы потоки не дублировались?
- у меня таймер - когда срабатывает создается поток обработки через класс TThread.Create() - что будет когда таймер сработает второй раз? для безоспасности надо делать Free или дестрой?

VadimLou
Фиксу применил, теперь ошибка при открытии не вылетает.
Вопрос по созданию (использованию индекса в VkDbf), компонент создает или поддерживает какие-либо индексы (но умолчанию должен поддерживать Clipper'овские)? Попытки подключить имеющиеся или создать новые безуспешны! В чем может быть причина?

Что-то невероятное творится. Создаем новый проект VCL Forms в дельфях:


Код:
unit Unit2;

interface
[more]
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type

TTimerThread=class(TThread)
private
F_Timer:TTimer;
public
constructor Create; reintroduce;
destructor Destroy; override;
procedure Execute; override;
end;

TForm2 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
testThread:TTimerThread;
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

{ TTimerThread }

constructor TTimerThread.Create;
begin
inherited Create(false);
F_Timer:=TTimer.Create(nil);
FreeOnTerminate:=true;
end;

destructor TTimerThread.Destroy;
begin
try
FreeAndNil(F_Timer);
inherited;
except on e:exception do
showmessage(e.message);

end;
end;

procedure TTimerThread.Execute;
begin
while not Terminated do
sleep(1);

end;

procedure TForm2.Button1Click(Sender: TObject);
begin
testThread.Terminate;
testThread:=nil;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
testThread:=TTimerThread.Create;
end;

end.
[/more]

mistie
Почему каждого надо тыкать носом в шапку??? Приведи свой пост в соответствие. Это во-первых.

Во-вторых - кто тебе сказал, что во вторичных потоках можно использовать компоненты VCL? VCL - принципиально однопоточная библиотека, компоненты VCL допустимо использовать ТОЛЬКО в основном потоке. И TTimer - не исключение, поскольку он использует для своей работы невидимое окно для получения сообщений WM_TIMER и если в создавшем потоке отсутствует петля сообщений (а в TThread она отсутствует в принципе), то TTimer оказывается в лучшем случае неработоспособен. В худшем - как у тебя.

Цитата:

Почему каждого надо тыкать носом в шапку??? Приведи свой пост в соответствие. Это во-первых.

Спасибо, привел.


Цитата:

Во-вторых - кто тебе сказал, что во вторичных потоках можно использовать компоненты VCL? VCL - принципиально однопоточная библиотека, компоненты VCL допустимо использовать ТОЛЬКО в основном потоке. И TTimer - не исключение, поскольку он использует для своей работы невидимое окно для получения сообщений WM_TIMER и если в создавшем потоке отсутствует петля сообщений (а в TThread она отсутствует в принципе), то TTimer оказывается в лучшем случае неработоспособен. В худшем - как у тебя.

Во-первых, таймер создается в конструкторе вторичного потока, который вызывается в контексте основного. По правилу "Дома, который построил Джек", таймер так же будет создан в контексте основного - я же не пихаю это в Execute. Пожалуйста, будьте внимательны. Во-вторых, он вполне работоспособен, вне зависимости от способа завершения потока - вручную или через FreeOnTerminate. Единственная разница в том, что если завершать через FreeOnTerminate, то наблюдается вот такая фигня. Причем, вновь замечу, в деструкторе исключений не вылетает, вылетает AV ТОЛЬКО при переключении между окном приложения и другими.

И так, на всякий случай: вопрос мой звучит как "почему так происходит?" а не "как сделать по-другому?".

Нужно перевести число из 16-ной в десятичную, например: 0xF (255 вроде как, в десятичной). Использую функцию strtoint:
cxCurrencyEdit1.value := strtoint('0xF');
Получаю 15 а не 255. Может как то можно по другому это реализовать?
BDS 2006 + DevExpress v48.
Заранее благодарен.

Добавлено:
Сори, затупил: 0xF это 15, в датасете поле макс 3 знака, поэтому 4й символ обрезает.

Man Without Face

cxCurrencyEdit1.value := strtoint('$FF');

Подскажите пож как скрыть программу, чтобы не видно было по alt-tab?
Этот код в XP не работает:
var
ExtendedStyle : integer;
begin
Application.Initialize;
ExtendedStyle:=GetWindowLong(application.Handle, GWL_EXSTYLE);
SetWindowLong(Application.Handle, GWL_EXSTYLE,
ExtendedStyle or WS_EX_TOOLWINDOW AND NOT WS_EX_APPWINDOW);
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

Заранее благодарен.

Man Without Face
Раньше работало, может
Application.Title := '';
?

Добавлено:
Man Without Face
Да и забыл спосить
ShowMainForm = True
?

delover
Спасибо конечно, но это все не катит...

Man Without Face

Цитата:

Подскажите пож как скрыть программу, чтобы не видно было по alt-tab?

Попробуй файл проекта *.dpr переписать так: [more=ПРИМЕР]
program Project1;

uses
Windows, Forms, SysUtils,
Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

procedure DoneApplication;
begin
with Application do
begin
if (Handle <> 0) then
ShowOwnedPopups(Handle, False);
ShowHint:= False;
Destroying;
DestroyComponents;
end;
end;

begin
Application.Initialize;

Form1:= TForm1.Create(Application);
{при таком способе создания формы не запускается механизм создания главной формы, а поскольку главной формы нет, в методе Application.Run не запускается цикл приема и выборки сообщений из очереди сообщений, поэтому петлю сообщений придется реализовать самому}

ShowWindow(Application.Handle, SW_HIDE);

AddExitProc(DoneApplication);

// петля сообщений:
repeat
Application.HandleMessage;
until Application.Terminated;
end.
[/more]

Господа хорошие, объясните почему программа считает неверно
[more=Код]
Код: procedure TForm1.Button1Click(Sender: TObject);
var
K, S, G, X, Integ : Double;
N, I , A, B : Integer;
begin
Randomize;
A := StrToInt(EditA.Text); // = 1
B := StrToInt(EditB.Text); // = 2
N := StrToInt(EditN.Text); // = 10
S := 0;
K := B - A;
for I := 1 to N do
begin
G := Random;
Label7.Caption := FloatToStr(G); // Без этой строчки считает неверно
Repaint;
X := A + G * (B - A);
S := S + (1 + X);
Sleep(5);
end;
Integ := (1/N)*K*S;
Label5.Caption := FloatToStr(Integ);
end;

Есть программа которая использует БД paradox через BDE, с недавних пор начала тормозить при работе нескольких пользователей, причем у первого кто запустил программа работает нормально, у второго тормозит, у следуещего еще сильнее томозит и т.д, у первого же пользователя продолжает работать нормально %-|
База данных находится на сетевом диске. Заметил, что когда ничего не запущено, файлы с БД быстро копируются, стоит запустить программу, при копировании начинаются задержки. С того же сервера "консультант" работает без задержек.

Есть идеи, что могло послужить причиной???

erdeuz
А не было мысли мол если базой пользуются несколько человек одновременно, то перейти на СУБД посеръезднее?

erdeuz
Саму программу менял, в смысле компилил и т.п. или "ничего не трогал, а оно..."
snike555
Я думаю, если бы об этом были мысли, то человек и спросиб бы по другому.
Я переводил проект однажды и не смотря на наличие исходников и либеральность AbsolutDatabase не могу сказать, что это были мои лучшие дни...

Vo1T

Код: procedure TForm1.Button1Click(Sender: TObject);
begin
...
Randomize;
G := Random;
...
end;

возникла небольшая проблема при использование объекта Char. Мне нужно построить график который замкнутой линии, проблема возникает при нарисовки его вся фигура закрашивается. как можно сделать что бы график строился по точкам с той последовательностью что я и задавал?

Umbrall
Приведи свой способ решения, при котором возникает проблема, потому что не совсем понятно что имеется ввиду, когда ты сказал "при использовании объекта Char" и как это связано с рисованием графика...

psa1974

Цитата:

что имеется ввиду

Скорее всего TChart.

Umbrall
И да, лучше привести свой код или вопрос сформулировать как-то почётче.

EugeneBoss3

Цитата:

vkDBF индексы

с индексами не разбирался ... там вроде примеры какие-то были - мож чё по индексам и есть ...
Я свои фиксы скинул автору ... попробуй у него поспрошать ...

Добавлено:
Man Without Face

Цитата:

все не катит...

А ты св-во Visible вырубил на своей форме ?

--
program ...

begin
...
Application.ShowMainForm := False;
ShowWindow(Application.Handle, SW_HIDE);
...CreateForm(...
...

извините что ввел в заблуждение
вот пример проблемы, точки графика и их порядок указаны слева, справа то как он решил нарисовать его

вот процедура которая вносит точки

Код: procedure TForm1.GridPointSetEditText(Sender: TObject; ACol, ARow: Integer;
const Value: String);
var i:integer;
begin
GridPoint.Cells[0,ARow]:=inttostr(ARow-1);
if (GridPoint.RowCount=(ARow+1)) then GridPoint.RowCount:=GridPoint.RowCount+1;
if ARow>Size then Size:=ARow;
SetLength(X,Size);
if ((Value<>'-') and (Value<>'') and (Value<>' '))
then X[ARow-1,ACol]:=strtofloat(Value);
Series2.Clear;
Series4.Clear;
for i:=0 to Size-1 do Series2.AddXY(X[i,1],X[i,2]);
for i:=0 to Size-1 do Series4.AddXY(X[i,1],X[i,2]);
end;

Umbrall
А обязательно TChart использовать? Проще в таком случае самому через TCanvas.

хотелось что бы все отображалось красиво

Umbrall
Для того чтобы точки рисовались в требуемой последовательности укажи для каждой серии перед добавлением точек порядок сортировки по осям:
Код: Series2.XValues.Order:= loNone;
Series2.YValues.Order:= loNone;

psa1974 большое спасибо, это как раз то чего не хватало

Подскажите плиз:

Есть строка с текстом: '14:35 3.11.2009'

Нужно перевести её в формат TDateTime сравнить с текущей датой, временем и выдать разницу в минутах.

Не могу никак правильно применить StrToDateTime. Подскажите как правильно перевести исходную строку в TDateTime?

itheposter
StrToDateTime
в самом названии п/п указан порядок -- сначала Дата, потом Тайм
сначала преобразуй своё '14:35 3.11.2009' в '3.11.2009 14:35', потом уже зови StrToDateTime()
и не забудь про локаль DataSeparator точка или слеш и порядок месяц/число

itheposter
как-то так

Код:
const
sDate ='14:35 3.11.2009';
var
mydate, mdelta : tdatetime;
lHour, lMin, lSec, lMSec: Word;
begin
mydate := strtodate(copy(sDate, pos(' ', sDate), length(sDate)))+
strtoTime(copy(sDate, 1, pos(' ', sDate)-1));
mdelta :=Now-mydate;
DecodeTime(mdelta ,lHour, lMin, lSec, lMSec);
showmessage( inttostr(Trunc(mdelta)*24*60+lHour*60+lMin));
end;

itheposter

Если локаль русская, а формат даты+времени всегда именно такой (пять символов времени - пробел - дата) - то все просто:


Код:
var
s_dt: String;
dt: TDateTime;
begin
Readln(s_dt);

dt := StrToDateTime(Copy(s_dt, 7, Length(s_dt) - 6) + ' ' + Copy(s_dt, 1, 5));

Writeln(Trunc(Frac(Now() - dt) * 24 * 60));
end;

средствами дельфей можно самому динамически выставить нужный формат даты/времени, плюя на локаль, считать, восстановить:

Код: uses SysUtils;
var
saveDate, saveTime: string;
begin
//сохраняем
saveDate := ShortDateFormat;
saveTime := LongTimeFormat;

//выставляем нужный
ShortDateFormat := 'DD-MM-YYYY';
LongTimeFormat := 'hh:mm:ss';

{
// или любой удобный
ShortDateFormat := 'YYYYMMDD'; // 'DD/MM/YYYY' 'MM/DD/YYYY';;
LongTimeFormat := 'hhmmss';
}

//считываем/работаем
...
//

//восстанавливаем
LongTimeFormat := saveTime;
ShortDateFormat := saveDate;
end;