Forum: Multimedia
by hboy,
6. Okt 2010
Mit meinem Bildbearbeitungsprogramm möchte ich Bildbearbeitung und -Analysefunktionalität haben. So arbeite ich momentan an einem Korrelierer, wodurch man ein vorgegebenes Muster auf der aktuellen Ebene wiederfinden kann. Die TWAIN-Quelle tritt dabei nochmals auf in Form einer selbstaktualisierenden Ebene , die (letztenendes mit hoffentlich mehr als 1fps) das jeweils neue Bild von der Quelle holt...
Forum: Multimedia
by hboy,
30. Sep 2010
Noch zwei Feststellungen für den heutigen Abend:
1) Problem: bei geöffnetem user interface ist nur einmaliges scannen und einmaliges Übertragen von Bildern möglich.
Lösung: {Method to transfer the images}
procedure TTwainSource.TransferImages();
enthält
repeat
{ ... hier werden alle ausstehenden Bilder übertragen, bis PendingXfers = 0 ist ... }
Forum: Multimedia
by hboy,
24. Sep 2010
Ich habe nun ein Bild (die Lösung ist denkbar einfach gewesen und obendrein recht dämlich: der Leica DFC TWAIN-Treiber unterstützt ttmMemory nicht - nur ttmNative. Die Demokamera funktioniert nun, ich hoffe, dass es im echten Leben dann auch tut...). Die Auflösung lässt sich nicht ändern und es dauert auch eine Sekunde zum herausleiern, aber es tut soweit.
In TransferImageMemory habe ich...
Forum: Multimedia
by hboy,
24. Sep 2010
Dennoch Danke für die Bemühungen :-)
Ich habe die Geschichte noch etwas weiter verfolgt und schrittweise die Werte beäugt, alles scheint gut zu gehen, bis in TransferImageMemory
{Retrieve another piece of memory to the pointer}
Xfer.BytesWritten := 0;
Result := Owner.TwainProc(AppInfo, @Structure, DG_IMAGE,
DAT_IMAGEMEMXFER, MSG_GET, @Xfer);
aufgerufen wird.
Forum: Multimedia
by hboy,
23. Sep 2010
OnTwainAcquire wird nicht einmal aufgerufen. In TransferImageMemory wird versucht, an TW_SETUPMEMXFER und TW_IMAGEMEMXFER - Strukturen heranzukommen, dabei liefert die TwainProc einen Fehler zurück und durch
if Result <> TWRC_XFERDONE then
DeleteObject(ImageHandle);
wird der angelegte Buffer verworfen, der Rückgabewert von TransferImageMemory ist TWRC_FAILURE und das wars. Wenn man...
Forum: Multimedia
by hboy,
23. Sep 2010
Nun denn,
ich habe die Chose noch etwas massiert und bin an der Stelle angelangt, dass
{Transfer image memory}
function TTwainSource.TransferImageMemory(var ImageHandle: HBitmap;
PixelType: TW_INT16): TW_UINT16;
var
{...}
begin
Forum: Multimedia
by hboy,
4. Sep 2010
procedure TForm1.OnTwainAcquire(Sender: TObject; const Index: Integer;
Image: TBitmap; var Cancel: Boolean);
var
newidx: integer;
datestr: string;
devname: string;
begin
// ...
glm.Layers.data.Canvas.Draw(0,0,image);
//...
Forum: Multimedia
by hboy,
3. Sep 2010
Hi,
momentan versuche ich meinem Bildverarbeitungsprogramm TWAIN import beizubringen, leider gibt es da ein gewaltiges Problem: der TWAIN import sollte nur ein kleines "nice-to-have" sein und ich dachte, dass die DelphiTwain-Komponente genau das richtige wäre.
Nun hat sich aber herausgestellt, dass die Implementierung nicht mit dem Leica DFC Twaintreiber klarkommt und das bereitet mir...