Thread läuft nicht parallel --

**sonny2007**

So ...

erst Gehversuche. Gedanken ( straft mich nicht wenn er komplett falsch ist

) <--- noch nicht so erfahren

1.Schritt beide Bitmaps in Streams zu speichern.
2.Schritt Header Daten von beiden Bitmaps aus den Streams entfern um die reinen Bilddaten zu haben
3.Schritt in einem TempStream nur die erste Pixelreihe des Suchbildes kopieren um eine Vorsuche zu benutzen, da sonst zu lange rechnet ( getestet )
4.Schritt in einer forschleife: immer den Pixelreihenabschnitt mit dem aktuellen Pixelreihenabschnitt des Screens ( genauso lang wie Suchabschnitt ) vergleichen

anbei mal ein bißchen Code

zusammenfalten · markieren

Delphi-Quellcode:

			    ScreenBMP.PixelFormat := SearchBMP.PixelFormat ;

    SearchBMP.SaveToStream(SearchStream);

    ScreenBMP.SaveToStream(ScreenStream);

    //showMessage('Größe des Suchbildes x :'+inttostr(SearchBMP.Width)+' Y :'+inttostr(SearchBMP.Height)+' MemorySize :'+inttoStr(SearchStream.Size));

    //showMessage('Größe des Screens x :'+inttostr(ScreenBMP.Width)+' Y :'+inttostr(ScreenBMP.Height)+' MemorySize :'+inttoStr(ScreenStream.Size));

    // Header vom Suchbild entfernen

    SearchStream.Position := 53; // Bitmap Header Size = 54, deshalb Position auf 53

    SearchStream.Seek(0, soFromBeginning);

    tempSearch.CopyFrom(SearchStream,SearchStream.Size-54);

    tempSearch.Position := 0;

    SearchStream.Clear;

    SearchStream.CopyFrom(tempSearch,tempSearch.Size);

    tempSearch.Clear;

    // Header vom Screen entfernen

    ScreenStream.Position := 53; // Bitmap Header Size = 54, deshalb Position auf 53

    ScreenStream.Seek(0, soFromBeginning);

    tempScreen.CopyFrom(ScreenStream,ScreenStream.Size-54);

    tempScreen.Position := 0;

    ScreenStream.Clear;

    ScreenStream.CopyFrom(tempScreen,tempScreen.Size);

    tempScreen.Clear;

    // erste Zeile vom Suchbild als Vorraster benutzen

    SearchStream.Position := 0;

    tempSearch.CopyFrom(SearchStream,SearchBMP.Width*3);

    startTime := GetTickCount;

    for I := 0 to ScreenStream.Size-SearchBMP.Width*3-1 do

        begin

          ScreenStream.Position := i;  // 3 wegen 24Bit

          tempScreen.Clear;

          tempScreen.CopyFrom(ScreenStream,SearchBMP.Width*3);

          tempScreen.Position := 0;

          tempSearch.Position := 0;

          if CompareMem(tempScreen.Memory, tempSearch.Memory,SearchBMP.Width*3) then

              showmessage('gleich');

        end;

    showMessage('Durchlaufzeit: '+Floattostr((GettickCount-starttime)/1000)+' s');

Ist der Gedankengang so erstmal richtig. Funktioniert das überhaupt?

Grüße
s0n

Thread läuft nicht parallel --

AW: Thread läuft nicht parallel --

Forumregeln