TImageEnIO.SelectAcquireSource(ieaTWain)

TwainParams.SelectSourceByName('Scanner')

function ShowSelectAcquirSource: AnsiString;
var
  TestIO: TImageEnIO;
begin
  result:='';
  TestIO:=TImageEnIO.Create(NIL);

  Application.BringToFront;
  if TestIO.SelectAcquireSource(ieaTWain) then
  begin
    result:=TestIO.TWainParams.SourceName[TestIO.TWainParams.SelectedSource];
  end;

  TestIO.Free;
end;

function TIETWainParams.SelectSourceByName(const sn: AnsiString): boolean;
var
  q, ll: integer;
begin
  {$ifdef IEPROFILE} try IEProfileBegin('TIETWainParams.SelectSourceByName'); {$endif}
  result := false;
  FillSourceListData;
  ll := length(sn);
  for q := 0 to fSourceListData.Count - 1 do
    if IEUpperCase(IECopy(pTW_IDENTITY(fSourceListData[q])^.ProductName, 1, ll)) = IEUpperCase(sn) then
    begin
      if fSelectedSource <> q then
        SetSelectedSource(q);
      result := true;
      break;
    end;
  {$ifdef IEPROFILE} finally IEProfileEnd; end; {$endif}
end;

quote:

---

Are you kidding?

---

quote:

---

You don't have the 3.0.5 source code?

---

function TIETwainParams.SelectSourceByName(const sn: AnsiString): boolean;
var
  q: integer;
  bestMatch: integer;
  bestMatchLen: integer;
  toFind, current: AnsiString;
  minLen: integer;
begin
  result := false;
  FillSourceListData;

  bestMatch := -1;
  toFind := IEUpperCase(sn);

  // search for exact match
  for q := 0 to fSourceListData.Count - 1 do
    if (IEUpperCase(IETrim(AnsiString(pTW_IDENTITY(fSourceListData[q])^.ProductName))) = toFind) then
    begin
      bestMatch := q;
      break;
    end;

  if bestMatch = -1 then
  begin
    // partial match
    bestMatchLen := 0;
    for q := 0 to fSourceListData.Count - 1 do
    begin
      current := IETrim(AnsiString(pTW_IDENTITY(fSourceListData[q])^.ProductName));
      minLen := imin(length(current), length(toFind));
      if (IEUpperCase(IECopy(current, 1, minLen)) = IECopy(toFind, 1, minLen)) and (minLen > bestMatchLen) then
      begin
        bestMatch := q;
        bestMatchLen := minLen;
      end;
    end;
  end;
  if bestMatch <> -1 then
  begin
    if fSelectedSource <> bestMatch then
      SetSelectedSource(bestMatch);
    result := true;
  end;

  // Make Twain the API for subsequent calls to Acquire
  {$IFDEF IEINCLUDEMULTIVIEW}
  If Result and (fOwner is TImageEnMIO) then
    (fOwner as TImageEnMIO).AcquireParams.fSelectedSourceAPI := ieaTwain
  else
  {$ENDIF}
  If Result and (fOwner is TImageEnIO) then
    (fOwner as TImageEnIO).AcquireParams.fSelectedSourceAPI := ieaTwain;
end;

function TIETwainParams.SelectSourceByName(const sn: AnsiString): boolean;
var
  q: integer;
  bestMatch: integer;
  bestMatchLen: integer;
  toFind, current: AnsiString;
  minLen: integer;
begin
  result := false;
  FillSourceListData;

  bestMatch := -1;
  toFind := IEUpperCase(sn);

  // search for exact match
  for q := 0 to fSourceListData.Count - 1 do
    if (IEUpperCase(IETrim(AnsiString(pTW_IDENTITY(fSourceListData[q])^.ProductName))) = toFind) then
    begin
      bestMatch := q;
      break;
    end;

  if bestMatch = -1 then
  begin
    // partial match
    bestMatchLen := 0;
    for q := 0 to fSourceListData.Count - 1 do
    begin
      current := IETrim(AnsiString(pTW_IDENTITY(fSourceListData[q])^.ProductName));
      minLen := imin(length(current), length(toFind));
      if (IEUpperCase(IECopy(current, 1, minLen)) = IECopy(toFind, 1, minLen)) and (minLen > bestMatchLen) then
      begin
        bestMatch := q;
        bestMatchLen := minLen;
      end;
    end;
  end;
  if bestMatch <> -1 then
  begin
    if fSelectedSource <> bestMatch then
      SetSelectedSource(bestMatch);
    result := true;
  end;
end;