Einzelnen Beitrag anzeigen

AndreasSt

Registriert seit: 10. Mär 2021
18 Beiträge
 
#3

AW: Apache Modul blockiert bei zip

  Alt 15. Mär 2023, 09:05
Ich habe nun weiter getestet.
Das Ganze hängt wahrscheinlich mit der Datenbankabfrage zusammen.
Aktuell verwende ich eine ADO Verbindung.
Vor dem Abruf wird die Connection erzeugt danach wieder gelöscht. Dabei wird auch coinitialize und couninitialize aufgerufen.

Hier der Handler:
Code:
procedure TWebModule1.WebModule1DefaultHandlerAction(Sender: TObject;Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
  contentFields:TStrings;
  i:Integer;
begin
  contentfields:=Request.QueryFields;
  for i := 0 to contentfields.Count-1 do begin
    if contentfields[i].ToUpper.Contains('MITDB') then begin
      Response.Content:= getDBResponse;
      exit;
    end;
    if contentfields[i].ToUpper.Contains('OHNEDB') then begin
      Response.Content:= getNormResponse;
      exit;
    end;
  end;
end;
//Hier die Funktionen die aufgerufen werden
Code:
function TWebModule1.getDBResponse:string;
var
  MyADOConnection : TADOConnection;
  MyAdoQuery     : TADOQuery;
  NewGUID:TGUID;
  myZipFile: TZipFile;
  bs: TStream;
  contentStream: TMemorystream;
begin
  CoInitializeEx(nil,COINIT_MULTITHREADED);
  MyADOConnection := TADOConnection.Create(nil);
  MyADOConnection.ConnectionString :='bla';
  MyAdoQuery     := TADOQuery.Create(nil);
  MyAdoQuery.Connection := MyADOConnection;
  MyADOConnection.Connected := true;
 
  myZipFile := TZipFile.Create;
  CreateGUID(NewGUID);
  myZipFile.Open('C:\temp\'+GUIDToString(NewGUID)+'.zip');
  MyADOQuery.SQL.Text := 'SELECT bla bla';
  MyADOQuery.Open;
  while not MyADOQuery.Eof do Begin
    bs := MyADOQuery.CreateBlobStream(MyADOQuery.Fields[0], bmRead);
    contentStream.CopyFrom(bs, bs.Size);
    bs.Free;
    contentStream.Position:=0;
    MyZipFile.Add(contentStream, generateFileName), zcDeflate);
  end;
  ms.Free;
  MyZipFile.Close;
  MyZipFile.Free;
  Result:= '';//URL zum zipfile
end;

function TWebModule1.generateFileName:string;
begin
  Result:='';//erzeugt einen eindeutigen Filename
end;

function TWebModule1.getNormResponse:string;
begin
  Result:='Hallo';
end;
Das Verhalten ist so, dass wenn ein Aufruf der Aktion 'MITDB' erfolgt und diese lange läuft, eine separate Anfrage der Funktion 'OHNEDB' keine Probleme macht.
Wenn aber gleichzeitig die Anfrage mit der Aktion 'MITDB' erfolgt kommt es zu Verzögerungen.
Vielleicht wäre einen Lösung auf eine andere DB Schnittstellentechnik zu gehen.
  Mit Zitat antworten Zitat