konto usunięte
konto usunięte
konto usunięte
Robert W. Programista
konto usunięte
konto usunięte
Krzysztof
Dibowski
Programista Delphi /
Lazarus Free Pascal
konto usunięte
konto usunięte
konto usunięte
Piotr M. programista
EnterMainThread;
try
...
finally
LeaveMainThread;
end;
TThread.Synchronize|Queue(nil, procedure begin ... end);Piotr F. edytował(a) ten post dnia 05.09.10 o godzinie 19:16
konto usunięte
type
TOpenQuery=class(TThread)
private
FQuery:TZQuery;
procedure MyQuery;
procedure MyQueryClose;
protected
procedure Execute; override;
public
constructor Create(Q:TZQuery);
end;
constructor TOpenQuery.Create(Q:TZQuery);
begin
inherited Create(True);
FQuery:=Q;
FreeOnTerminate:=True;
Resume;
end;
procedure TOpenQuery.Execute;
begin
try
MyQueryClose;
FQuery.Open;
Synchronize(MyQuery);
except on e:Exception do
FRes:=True;
end;
end;
procedure TOpenQuery.MyQuery;
begin
FRes:=FQuery['export'];
end;
procedure TOpenQuery.MyQueryClose;
begin
If FQuery.Active Then FQuery.Close;
FRes:=False;
end;
TOpenQuery.Create(DMExpIBank.QExport);
While not FRes do begin
Application.ProcessMessages;
end;
Piotr M. programista
konto usunięte
Piotr M. programista
type
TMojaProckaInformujacaOZakonczeniuQuery = procedure ( AQuery : TQuery ) of object;
TMojWatek = class(TThread)
protected
FKoniecQuery : TMojaProckaInformujacaOZakonczeniuQuery;
public
constructor Create( ...; AKoniecQuery : TMojaProckaInformujacaOZakonczeniuQuery );
//w srodku FKoniecQuery := AKoniecQuery;
end;
procedure TMojWatek.Execute;
begin
//utworzenie query i polaczenia
//query.open
if Assigned(FKoniecQuery) then
begin
EnterMainThread;
try
FKoniecQuery(query);
finally
LeaveMainThread;
end;
end;
end;
TMojaFormatka = class(TForm)
procedure KoniecQuery( AQuery : TQuery );
end;
procedure TMojaFormatka.KoniecQuery( AQuery : TQuery );
begin
//zapiecie query
end;
konto usunięte
Piotr M. programista
Wojtek Stępień:
2. Tak zwróciłem uwagę. Jak mogę poczekać na zakończenie wątku w innej procedurze/funkcji(W tej w której go wywołałem) bo do dalszego działania potrzebny mi jest true z tego zapytania które wywołuje w wątku?
konto usunięte
konto usunięte
Piotr M. programista
Następna dyskusja:
пропозиції роботи
