Nach langem hin und her probieren und hilfe durchlesen hab ich gehofft es klappt weil er plötzlich
vom Papiereinzug gescannt hat aber ich sollte schnell enttäuscht werden :/
Dies ist die Procedure wo ichs aufrufe.
Feeder = Zubringer sollte doch das richtige sein bin ich der meinung
allerdings hat er nur kurzfristig vom Papiereinzug gescannt nachdem ichs so eingebaut hab
hat er wieder nur vom Flachbett gescannt.
Vielleicht sieht ja einer von euch worans liegen kann.
Delphi-Quellcode:
procedure TForm1.IdTelnetServer1TIdCommandHandler0Command(
ASender: TIdCommand);
var xray: Boolean;
begin
// Befehl : scan
// Parameter : 0,1 (Flachbett oder Einzug)
DelphiTwain1.Source[SelSource].SetAutoFeed(True);
if ASender.Params[0] = '0' then
begin
// Flachbett
DelphiTwain1.Source[SelSource].SetFeederEnabled(False);
end;
if ASender.Params[0] = '1' then
begin
// Einzug
DelphiTwain1.Source[SelSource].GetFeederLoaded(xray);
if (xray) then
DelphiTwain1.Source[SelSource].SetFeederEnabled(true);
end;
Timer1.Enabled := True;
ASender.SendReply;
ASender.Thread.Connection.DisconnectSocket;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
startscan;
Timer1.Enabled := False;
end;
procedure TForm1.StartScan;
begin
DelphiTwain1.Source[SelSource].ShowUI := False;
DelphiTwain1.Source[SelSource].TransferMode := ttmMemory;
DelphiTwain1.Source[SelSource].Loaded := TRUE;
DelphiTwain1.Source[SelSource].Enabled := TRUE;
end;
Ich bin den umweg über den Timer gegangen weil der nicht scannt wenn ich die
sachen von Startscan bei der IdTelnetServer1TIdCommandHandler0Command eingebe.
Mfg Capa