DGL • Thema anzeigen - Merkwürdigess Problem mit Threading in Delphi

Merkwürdigess Problem mit Threading in Delphi

Moderator: DGL-Team

Seite 1 von 1

[ 4 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Finalspace

Betreff des Beitrags: Merkwürdigess Problem mit Threading in Delphi

Verfasst: Fr Aug 26, 2011 13:05

DGL Member

Registriert: Mi Okt 16, 2002 15:06
Beiträge: 1012

Ich habe einen Thread für einen Named Pipe server.
Wenn dieser eine neue nachricht geschickt bekommt, dann wird diese nachricht an einen Callback weitergeleitet (Syncronized).

Die Funktionen im Callback nehmen die Nachricht auseinander (String > UTF8 > WideString) und
machen daraus Dateipfade die auch 100% stimmen.

Diese Dateipfade werden auf existenz überprüft WideFileExists() welches nur nen FindFirstW macht um zu gucken ob die Datei da ist.
Funktioniert auch, zumindest für die meisten Dateien.

Was komischerweise nicht funktioniert, sind dateien bei mir auf in einem bestimmten Ordner.
Da liefert FindFirstW das die Datei nicht existiert, obwohl der komplette Dateipfad 100% richtig ist und
die Datei natürlich existiert.

Das ist mein Hauptproblem erstmal das es Dateien gibt, bei denen FindFirst zurückwirft das diese nicht existiert
obwohl diese da ist.

So nun kommt aber der hammer, diese Anwendung hat noch nen einfaches Explorer Drag & Drop (WM_DROPFILES).
Wenn ich die exakt gleiche Datei in die Anwendung ziehe, dann wird diese erkannt und alles passt inkl. WideFileExists().

Aber über den named pipe thread wird diese nicht erkannt. (Ratlos)

Achja problem tritt nur unter Vista/Win7 auf!

Hier ein bischen code:

Code:

 
// Callback in der Mainform (FOnReceive vom TXPipeServer)
procedure TfrmMain.NewPipeMessage(Sender : TObject; AKind : byte; AMsg : String);
var
  WMsg : WideString;
begin
  WMsg := UTF8ToWideString(AMsg);
  if WideFileExists(WMsg) then
  begin
    // Do something with the good file
  end;
end;
 

Code:

 
procedure TXPipeServer.ReceivedSyncronized;
begin
  if Assigned(FOnReceive) then
    FOnReceive(Self, FCurKind, FCurMsg);
end;
 
procedure TXPipeServer.Execute;
var
  I, Written: Cardinal;
  InMsg, OutMsg: TXPIPEMessage;
  StrMsg : String;
begin
  while not Terminated do
  begin
    if FHandle = INVALID_HANDLE_VALUE then
    begin
      // suspend thread for 250 milliseconds and try again
      Sleep(250);
    end else begin
      if ConnectNamedPipe(FHandle, nil) then
      try
        // read data from pipe
        InMsg.Size := SizeOf(InMsg);
        ReadFile(FHandle, InMsg, InMsg.Size, InMsg.Size, nil);
        if
          (InMsg.Kind = 0) and
          (StrPas(InMsg.Data) = cShutDownMsg + FPipeName)
        then
        begin
          // process shut down
          OutMsg.Kind := 0;
          OutMsg.Count := 3;
          OutMsg.Data := 'OK'#0;
          Terminate;
        end else begin
          StrMsg := StrPas(InMsg.Data);
 
          // Send received message to callback
          FCurKind := OutMsg.Kind;
          FCurMsg := StrMsg;
          Synchronize(ReceivedSyncronized);
 
          OutMsg := InMsg;
          // we'll just reverse the data sent, byte-by-byte
          for I := 0 to Pred(InMsg.Count) do
            OutMsg.Data[Pred(InMsg.Count) - I] := InMsg.Data[I];
        end;
        CalcMsgSize(OutMsg);
        WriteFile(FHandle, OutMsg, OutMsg.Size, Written, nil);
      finally
        DisconnectNamedPipe(FHandle);
      end;
    end;
  end;
end;
 

Nach oben

Lord Horazont

Betreff des Beitrags: Re: Merkwürdigess Problem mit Threading in Delphi

Verfasst: Fr Aug 26, 2011 13:13

DGL Member

Registriert: Do Sep 02, 2004 19:42
Beiträge: 4158
Programmiersprache: FreePascal, C++

Code:

          for I := 0 to Pred(InMsg.Count) do
            OutMsg.Data[Pred(InMsg.Count) - I] := InMsg.Data[I];

Wenn der String nullterminiert ist, hast du dann als erstes Zeichen in OutMsg.Data ein #0, was von Delphi zwar ignoriert wird, aber von den ganzen API-Funktionen nicht. Die brechen nach dem #0-Byte ab und halten das für einen leeren String.
Versuch mal:

Code:

          for I := 0 to Pred(InMsg.Count)-1 do
            OutMsg.Data[Pred(InMsg.Count) - (I+1)] := InMsg.Data[I];

greetings.

_________________
If you find any deadlinks, please send me a notification – Wenn du tote Links findest, sende mir eine Benachrichtigung.
current projects: ManiacLab; aioxmpp
zombofant network • my photostream
„Writing code is like writing poetry“ - source unknown

„Give a man a fish, and you feed him for a day. Teach a man to fish and you feed him for a lifetime. “ ~ A Chinese Proverb

Nach oben

Finalspace

Betreff des Beitrags: Re: Merkwürdigess Problem mit Threading in Delphi

Verfasst: Fr Aug 26, 2011 20:22

DGL Member

Registriert: Mi Okt 16, 2002 15:06
Beiträge: 1012

Hab den Übeltäter gefunden, mein Commandline/Argument Parser kommt mit einem zusätzlichen Leerzeichen im Dateinamen nicht zurecht.

Also sowas z.b. "Folge - 04 Tolle Serie.avi" würde nicht erkannt werden wegen dem Doppel-Leerzeichen.
Es kommt dann raus "Folge - 04 Tolle Serie.avi".

Da muss ich mich nochmal hinsetzten um das beheben.

Nach oben

Finalspace

Betreff des Beitrags: Re: Merkwürdigess Problem mit Threading in Delphi

Verfasst: Fr Aug 26, 2011 22:33

DGL Member

Registriert: Mi Okt 16, 2002 15:06
Beiträge: 1012

So problem behoben:

Code:

 
procedure GetArgumentsFromCmd(AFullArgs : PWideChar; ALst : TTNTStrings);
var
  P : PWideChar;
  Buffer : WideString;
  InQuote : Boolean;
  L, I : Integer;
begin
  P := AFullArgs;
  L := Length(AFullArgs);
  I := 0;
  Buffer := '';
  InQuote := False;
  while (I < L) do
  begin
    if P^ = '"' then
    begin
      if InQuote then
      begin
        InQuote := False;
        ALst.Add(Buffer);
        Buffer := '';
      end
      else
      begin
        Buffer := '';
        InQuote := True;
      end;
      Buffer := '';
    end
    else if (P^ = ' ') and (not InQuote) then
    begin
      if Buffer <> '' then
        ALst.Add(WideTrim(Buffer));
      Buffer := ' ';
    end
    else
      Buffer := Buffer + P^;
 
    Inc(P);
    Inc(I);
  end;
 
  if Buffer <> '' then
    ALst.Add(WideTrim(Buffer));
end;
 

So kann man daraus z.b. den Dateinamen als Argument rausziehen.

Code:

 
procedure TForm1.Button2Click(Sender: TObject);
var
  S : WideString;
  Lst : TTNTStrings;
  I : Integer;
begin
  S := TntEdit1.Text;
 
  Lst := TTNTStringList.Create;
  GetArgumentsFromCmd(PWideChar(S), Lst);
 
  Filename := '';
  Memo1.Lines.Clear;
  For I := 1 to Lst.Count-1 do
  begin
    Filename := Filename + Lst[I] + ' ';
  end;
  Memo1.Lines.Add(WideTrim(S));
 
  Lst.Free;
end;
 

Nach oben

Seite 1 von 1

[ 4 Beiträge ]

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 11 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.