Dzięki grzegorz_so,
poradziłem sobie z problemem i jeśli by ktoś miał podobny, to moja procedura działa. Wskazane biblioteki, wystarczy dołączyć do projektu. Poniżej proceura:
procedure TForm1.BMP_PDFClick(Sender: TObject);
var
SciezkaDoKataloguBMP:string; //ścieżka do katalogu z plikami *.bmp
Obrazek:string; //nazwa ze ścieżką do pliku *.bmp
RR:TRect; //rozmiar obrazka
SearchResult : TSearchRec;
Bitmapa:TBitmap;
RR:rozmiar strony
begin
VLsciezkaDoPlikow:='';
VLsciezkaDoPlikow:='C:\PlikiBMP\';
with TGDIPages.Create(self) do
try
begin
NewPageLayout(220,180,-1,-1);
BeginDoc;
if FindFirst(SciezkaDoKataloguBMP+'*.bmp', faAnyFile, SearchResult) = 0 then //wyszukuje we wskazanym katalogu pliki *.bmp
begin
repeat
Obrazek:=SciezkaDoKataloguBMP+SearchResult.Name;
Bitmapa := TBitmap.Create;
try
Bitmapa.LoadFromFile(Obrazek);
RR:=Rect(0,0,220,180);
DrawBMP(RR,Bitmapa);
finally
Bitmapa.Free;
end;
NewPage;
until FindNext(SearchResult) <> 0;
FindClose(searchResult);
end;
EndDoc;
end;
ExportPDF('C:\PlikiPDF\nowyPlik.pdf',True,False) //zapisuje we wskazanej lokalizacji plik *.pdf. Ostatnie 2 parametry: pokazuje błędy, otwiera plik po jego utworzeniu
finally
Free;
end;
end;
Zamiast ExportPDF('C:\PlikiPDF\nowyPlik.pdf',True,False) można wstawić ShowPreviewForm; Wtedy widoczny jest podgląd pdf'a.
Pozdrawiam
ratt