# Database
db:
image: percona:latest
container_name: project.db
restart: on-failure
ports:
- 127.0.0.100:3306:3306
expose:
- 3306
environment:
- MYSQL_ROOT_PASSWORD=secret
- MYSQL_DATABASE=mydatabase
- MYSQL_ROOT_HOST=%
threadCard := TCardThread.CreateAnonymousThread(
procedure
var
FDQueryUrl: TFDQuery;
this: TCardThread;
begin
this := TThread.CurrentThread as TCardThread;
TTHread.Synchronize(this,
procedure
begin
FDQueryUrl := Dm.GetQuery();
end);
try
...
finally
FreeAndNil(FDQueryUrl )
end;
end;