Witam,
od razu na starcie powiem, że korzystam z Twain i na delphi 2007 działa.
Kompilując kod na XE3 pojawia się wybór źródła, ale nie mam dostępnego żadnego źródła.
function TForm2.Skanuj(const UI, DefScaner: Boolean; const p_nazwa_pliku :string): boolean;
var
zeskanowano: boolean;
s: string;
Plik:TextFile;
begin
{If user is already using Status menu}
if Twain.LibraryLoaded then
//ItemStatus5Click(ItemStatus5)
result:=false
else
begin
try
FUI := UI;
FDefScaner := DefScaner;
FNazwaPliku := p_nazwa_pliku;
{Load library, source manager and source}
if not DefScaner then
SelectSource;
Twain.LoadLibrary;
Twain.LoadSourceManager;
Twain.Source[CurrentSource].Loaded := TRUE;
{Enable source}
////Twain.Source[CurrentSource].TransferMode := Self.TransferMode;
//ClearImageList; {Clear list of images}
Twain.Source[CurrentSource].EnableSource(UI, FALSE);
while Twain.Source[CurrentSource].Enabled do Application.ProcessMessages;
{Unload library}
Twain.UnloadLibrary;
//jpg := ResultImage;
finally
end;
result:=true;
end {if Twain.SourceLoaded}
end;
procedure TForm2.selectSource;
var
NewSource: Integer;
begin
{If user is using Status menu to execute process}
if Twain.SourceManagerLoaded then
begin
NewSource := Twain.SelectSource;
{In case some source was choosen}
if NewSource <> -1 then
begin
CurrentSource := NewSource;
//ListSources.ItemIndex := CurrentSource;
end {if NewSource <> -1}
end
else
begin
{Manually loading source}
if Twain.LoadLibrary then
begin
{Load twain, show interface to select source and unload}
Twain.LoadSourceManager;
NewSource := Twain.SelectSource;
if NewSource <> -1 then CurrentSource := NewSource;
Twain.UnloadLibrary;
end
else
ShowMessage('Library could not be loaded, check if source is loaded')
end {if Twain.SourceManagerLoaded}
end;
Kombinowałem na różne sposoby, teoretycznie na swojej stronie autor Twain opisuje, że działa pod XE2, 3 i 4
jednak w praktyce tak się nie dzieje. Ściągałem demo ze strony autora i ono działa, ale po przekompilowaniu na XE już nie działa.
Znacie może przyczynę, lub inny komponent nawet płatny ale do Delphi XE?
"Kompilując kod na XE3 pojawia się wybór źródła, ale nie mam dostępnego żadnego źródła."
- napisałeś, że kompilowałeś kod, a nie źródła Twain; No i że nie masz dostępnego żadnego źródła, więc podałem Ci link do źródeł;