Задачи работы с железом – частая штука для Delphi разработчиков. Но если почти все знают, как работать с COM-портом – открывать его, отправлять и принимать данные, то практически нигде не описан наиболее корректный вариант получения списка портов. Давайте, для начала рассмотрим несколько наиболее часто встречаемые в интернете варианты и попробуем разобраться в них.
Прежде всего определимся, что среди COM-портов в Windows есть 2 типа устройств – непосредственно COM-порты и модемы:
Их следует разделять, например, когда надо автоматически подключится к какому-то определённому устройству или не выводить модемы. Поэтому было бы неплохо получить не просто список, но и типы устройств и их имена.
Вариант 1. Опрос всех портов по очереди
Решение «в лоб», что называется. Давайте будем открывать по очереди список COM-порты, а какие откроются – выведем в списке. Выглядит как-то так:
procedure TForm1.EnumPorts1();
var i: integer;
h: THandle;
beginfor i:=1 to 32 do
beginh:=CreateFile(PChar('COM'+IntToStr(i)),
GENERIC_READ or GENERIC_WRITE,
0,
nil,
OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0);
If(h<>INVALID_HANDLE_VALUE)then
ComPort.Items.Add('COM'+IntToStr(i));
CloseHandle(h);
end;
end;
Честно говоря, вариант хреноватенький. Из плюсов – разве что очевидная реализация и возможность получить список COM-портов без прав администратора. Минусов тут огромнейшее множество:
- У пользователя может быть, к примеру, виртуальный порт COM158, следовательно циклом в 32 порта не ограничишься, а опрос большого количества портов занимает немало времени.
- Всякие «левые» устройства – виртуальные Bluetooth порты (которые встречаются в каждом втором ноутбуке) и прочее железо может неадекватно реагировать на открытие порта – вплоть до зависания системы.
- Нельзя определить имя устройства в системе и тип устройства (порт или модем)
Как показывает практика (да и здравый смысл тоже), процент зависаний и отказов для такого варианта довольно велик. Так что для коммерческой программы такой вариант вовсе не подойдёт, хотя процент коммерческих программ, опрашивающих таким способом железо, довольно велико.
Вариант 2. Чтение списка из реестра
Оказывается, в ветке HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\SERIALCOMM хранится список активных портов системы. Можно их просто прочитать и всё будет ок.
procedure TForm1.EnumPorts2();
var reg : TRegistry;
l : TStringList;
i : integer;
beginl := TStringList.Create;
reg:=TRegistry.Create;
tryreg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('HARDWARE\DEVICEMAP\SERIALCOMM', false);
reg.GetValueNames(l);
for i:=0 to l.Count-1 do
ComPort.Items.Add(reg.ReadString(l[i]));
finallyreg.Free;
l.Free;
end;
end;
Кстати, данный вариант пользуется большой популярностью. Причина тому одна – он быстрый и работал (во времена Windows XP) практически безотказно. Однако и у него есть минусы:
- Во времена Windows XP всё работало безотказно, но поскольку ветка HKEY_LOCAL_MACHINE в Windows Vista, Windows 7 и Windows 8 закрыта для не-админа (не для пользователей группы «Администраторы», а для пользователя аналога root в Linux), то программу приходится запускать от имени администратора. Можно, конечно, добавить manifest, что решит 99% проблем, но останется тот 1% (например, home-версия Windows) и неприятный осадок.
- Нельзя определить имя устройства в системе и тип устройства (порт или модем)
Данный вариант вполне приемлемый для коммерческого решения, однако есть приёмчики получше.
Вариант 3. Правильный. Используем Windows Driver Kit
Наиболее сложный, но и наиболее правильный вариант.
constGUID_DEVICEINTERFACE_COMPORT:TGUID=(
D1 : $86E0D1E0;
D2 : $8089;
D3 : $11D0;
D4 : ($9C,$E4,$08,$00,$3E,$30,$1F,$73);
);
GUID_DEVICEINTERFACE_MODEM:TGUID=(
D1 : $2C7089AA;
D2 : $2E0E;
D3 : $11D1;
D4 : ($B1,$14,$00,$C0,$4F,$C2,$AA,$E4);
);
function TForm1.EnumPorts3(
const guid:TGUID;
PortClass :TPortClass):boolean;
var h : THandle;
devinfo : SP_DEVICE_INTERFACE_DATA;
bMoreItems : boolean;
nIndex : longint;
hDeviceKey : HKEY;
szData : array[0..255]of Char;
dwType,dwSize : DWORD;
item : TComPortInfo;
beginh:=SetupDiGetClassDevs(
@guid,
nil,
0,
DIGCF_PRESENT or DIGCF_INTERFACEDEVICE);
if(h=INVALID_HANDLE_VALUE)then
beginexit(false);
end;
trynIndex:=0;
bMoreItems:=true;
while(bMoreItems)do
begindevinfo.cbSize:=sizeof(SP_DEVICE_INTERFACE_DATA);
bMoreItems:=SetupDiEnumDeviceInfo(
h,nIndex,@devinfo);
if(bMoreItems)then
beginhDeviceKey:=SetupDiOpenDevRegKey(
h,@devinfo,
DICS_FLAG_GLOBAL,0,
DIREG_DEV,KEY_QUERY_VALUE);
item.name:='';
item.DevDesc:='';
item.PortClass:=PortClass;
if(hDeviceKey>0)then
beginszData[0]:=#0;
dwSize:=sizeof(szData);
dwType:=0;
if(RegQueryValueEx(
hDeviceKey,'PortName',
nil,
@dwType,
@szData,
@dwSize)=0)and(dwSize>=2)then
item.name:=szData;
RegCloseKey(hDeviceKey);
end;
if(item.name<>'')then
beginszData[0]:=#0;
dwSize:=sizeof(szData);
dwType:=0;
if(SetupDiGetDeviceRegistryPropertyW(
h,@devinfo,
SPDRP_DEVICEDESC,dwType,szData,dwSize,dwSize))and(dwType = REG_SZ)then
item.DevDesc:=szData;
FItems.Add(item);
end;
end;
inc(nIndex);
end;
result:=true;
finallySetupDiDestroyDeviceInfoList(h);
end;
end;
Вызываем следующим образом:
FItems.Clear;
EnumPortsSetupAPI(GUID_DEVICEINTERFACE_COMPORT,pcComPort);
EnumPortsSetupAPI(GUID_DEVICEINTERFACE_MODEM,pcModem);
Плюс ко всему, необходим pas-файл для библиотеки SETUPAPI.dll
Плюсы очевидны – работает быстро, стабильно, мы получаем всю необходимую информацию об устройстве, не требует прав администратора.
Минус единственный – для новичка непонятен код.
Выводы
Лично я рекомендую последний метод как единственный правильный, однако у вас может быть своё мнение – высказывайте его в комментариях.
Комментарии
У тебя же есть аккаунт. Залогинься и забудь о капче.
В каком USES ?
Заголовочную библиотеку можно загуглить по названию любой функции.
На днях скину рабочий пример.
Успешно пользуюсь методом 2 под Vista+ x64 без прав администратора. Просто ключ нужно открывать только на чтение (reg.OpenKeyReadOnly)
Метод 3, насколько я понимаю, чуть более продвинут, чем метод 2, т.к. тоже получает данные из реестра, только из других ключей.
Было бы интересно почитать как определить свободен ли COM-порт (с этим вроде как понятно) и, если занят, то каким приложением (это уже интересно).
Я долгое время пользовался методов 2, пока не встретился с нюансами во всяких Home версиях. Главные плюсы метода 3 - он работает безукоризненно и даёт более информативную картину.
Process Explorer показывает открытые файлы (а значит и COM-порты) и их хендлы. Можно покопать в его сторону или поискать решение на MSDN.
E2010 Incompatible types: 'Cardinal' and 'Pointer' - строка 26
E2010 Incompatible types: 'Pointer' and 'Cardinal' - строка 42
E2033 Types of actual and formal var parameters must be identical - строка 42
E2010 Incompatible types: 'Pointer' and 'Cardinal' - строка 49
E2010 Incompatible types: 'Pointer' and 'Cardinal' - строка 78
E2010 Incompatible types: 'PByte' and 'Array' - строка 78
E2010 Incompatible types: 'Pointer' and 'Cardinal' - строка 94
Да, класы самописные. На днях вырежу из готового проекта небольшой пример и закину исходник.
SetupApi тоже закину.
вроде как уже месяц прошел )
Выложите пример реализации вашего функционала! Есть задача, а ваш пример её решает как нельзя лучше !
Заранее благодарен !
Выложу, может кому еще надо:
Получилось примерно так:
// Юнит с нашими функциями
unit detectmodems;
interface
uses
Windows, SysUtils, Forms, SETUPAPI;
type
TGUIDDeviceInfo = record
name: string;
portname: string;
portnumber: integer;
end;
TDevices = array of TGUIDDeviceInfo;
function GetGUIDdevice ():TDevices;
implementation
function GetGUIDdevice ():TDevices;
var
Guid : TGUID;
PnPHandle: HDevInfo;
DeviceInfoData : SP_DEVINFO_DATA;
DeviceInterfaceData: SP_DEVICE_INTERFACE_DATA;
i : Cardinal;
Success: LongBool;
DataT, buffersize: Cardinal;
buffer : PByte;
//
hDeviceKey : HKEY;
szData : array[0..255]of Char;
dwType,dwSize : DWORD;
//
Const
Modems : TGUID = '{4d36e96d-e325-11ce-bfc1-08002be10318}';
ComLpt : TGUID = '{4d36e978-e325-11ce-bfc1-08002be10318}';
begin
Guid:=Modems;
PnPHandle:= SetupDiGetClassDevs(@Guid, nil, 0, DIGCF_PRESENT);
Try
i:= 0;
DeviceInfoData.cbSize:= SizeOf(SP_DEVINFO_DATA);
DeviceInterfaceData.cbSize := SizeOf(SP_DEVICE_INTERFACE_DATA);
Repeat
Success:= SetupDiEnumDeviceInfo(PnPHandle, i, DeviceInfoData);
If Success then
begin
buffer:= nil;
buffersize:= 0;
while not SetupDiGetDeviceRegistryProperty(PnPHandle,DeviceInfoData,SPDRP_DEVICEDESC,@DataT,buffer,buffersize,@buffersize)
do begin
if (GetLastError() = ERROR_INSUFFICIENT_BUFFER) then
begin
if (buffer <> nil) then FreeMem(buffer);
buffer:= AllocMem(buffersize);
end
else
begin
break;
end;
end;
//ListBox1.Items.Add(Format('%d: %s',[i, StrPas(PChar(buffer))]));
SetLength(Result,i+1);
Result[i].name:=StrPas(PChar(buffer));
if (buffer <> nil) then FreeMem(buffer);
// Ïûòàåìñÿ íîìåð ïîðòà îïðåäåëèòü
hDeviceKey:=SetupDiOpenDevRegKey(PnPHandle,DeviceInfoData, DICS_FLAG_GLOBAL,0,DIREG_DEV,KEY_QUERY_VALUE);
if(hDeviceKey>0)then
begin
szData[0]:=#0;
dwSize:=sizeof(szData);
dwType:=0;
if(RegQueryValueEx(hDeviceKey,'PortName',nil,@dwType,@szData,@dwSize)=0)and(dwSize>=2)then
Result[i].portname:=szData;
Result[i].portnumber:=StrToInt(StringReplace(szData, 'COM', '',[rfReplaceAll, rfIgnoreCase]));
RegCloseKey(hDeviceKey);
end;
// Ïûòàåìñÿ íîìåð ïîðòà îïðåäåëèòü
End;
Inc(i);
Application.ProcessMessages;
until not Success;
Finally
SetupDiDestroyDeviceInfoList(PnPHandle);
End;
end;
end.
--------------------
Вызов примерно так:
procedure TMain.sBitBtn2Click(Sender: TObject);
var
mas:TDevices;
i:integer;
begin
mas:=GetGUIDdevice();
for i:=0 to Length(mas)-1 do
begin
sListBox1.Items.Add(intToStr(i+1)+' '+mas[i].name+' '+mas[i].portname+' '+IntToStr(mas[i].portnumber));
end;
end;
Спасибо за поддержку
Я так заработался, что совсем блог забросил.
Вы, наверное, имели в виду диспетчер устройств?
Ни разу не видел, чтобы были COM-порты, которых нет в диспетчере устройств...
Интересно, буду в курсе.
Третий способ - это и есть, по сути, то, что использует диспетчер устройств.
Весьма странно, что есть устройство, но его нет в диспетчере устройств...
А если гаджет попал в другую категорию - смотрите GUID класса в диспетчере устройств на вкладке "Сведения".
Ну и касаясь темы статьи - не поминается ещё один способ, минус которого только в отсутствии названий найденных портов. Имеется в виду получение полного списка девайсов через QueryDosDevice и далее вычленение из него строк, начинающихся с COM.
Справедливости ради, есть и ещё способы
http://stackoverflow.com/questions/1388871/how-do-i-get-a-list-of-available-serial-ports-in-win32/1394301#1394301
http://naughter.com/enumser.html
Internally the CEnumerateSerial provides 9 different ways (yes you read that right: Nine) of enumerating serial ports: Using CreateFile, QueryDosDevice, GetDefaultCommConfig, two ways using the Setup API, EnumPorts, WMI, Com Database & enumerating the values under the registry key HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\SERIALCOMM.
Поэтому приведу маленький пример на билдере, а там и переделать недолго.
Компилируется как в 32, так и в 64 бита.
Единственно что виндовс нужен версии от XP.
Примечателен тем, что крайне прост и находит абсолютно все порты, включая виртуальные не открывая их.
int coms[256]; // Список портов
int comcnt = 0; // Количество портов
int i=0;
int pos;
TCHAR devs[65535];
DWORD dwChars = QueryDosDevice(NULL, devs, 65535);
if(dwChars){
while(devs[i]){
UnicodeString str = &devs[i];
if((pos = str.Pos("COM"))){
str.Delete(1, pos+2);
try{
coms[comcnt++] = StrToInt(str);
}catch(...){}
}
while(devs[i++] != _T('\0'));
}
}
А вот пример основанный в том числе и на инфе отсюда, только тоже находит все порты включая виртуальные, для наглядности дополнительная инфа о порте сбрасывается в TMemo *m1;
m1 нужно добавить на форму, если хотите посмотреть что находит пример.
Это разумеется необязательно, и порты ищутся только те, что удовлетворяют неким дополнительным условиям, что тоже можно выключить, как и считывание лишних параметров.
#include <setupapi.h>
static const UnicodeString DESC = L"Arduino Uno";
static const UnicodeString CLASS = L"Ports";
static const UnicodeString SERV = L"usbser";
static const UnicodeString ID = L"USB\\VID_2341&PID_0043&REV_0001";
UnicodeString strPort;
UnicodeString strDesc;
UnicodeString strClass;
UnicodeString strServ;
UnicodeString strId;
UnicodeString strName;
int coms[256]; // Список портов
int comcnt = 0; // Количество портов
int pos;
bool succ;
HDEVINFO hDevInfo;
SP_DEVINFO_DATA devinfo;
HKEY hKey;
Char bBuf[256];
DWORD dwSize;
if((hDevInfo = SetupDiGetClassDevs(NULL, NULL, 0, DIGCF_PRESENT | DIGCF_ALLCLASSES)) != INVALID_HANDLE_VALUE){
devinfo.cbSize = sizeof(devinfo);
try{
for(DWORD nDev = 0; SetupDiEnumDeviceInfo(hDevInfo, nDev, &devinfo); nDev++){
if((hKey = SetupDiOpenDevRegKey(hDevInfo, &devinfo, DICS_FLAG_GLOBAL, 0, DIREG_DEV, KEY_QUERY_VALUE)) != INVALID_HANDLE_VALUE){
bBuf[0] = L'\0';
dwSize = sizeof(bBuf);
if(!RegQueryValueEx(hKey, L"PortName", NULL, NULL, (LPBYTE)bBuf, &dwSize)){
strPort = bBuf;
if((pos = strPort.Pos(L"COM"))){
m1->Lines->Add(strPort);
strPort.Delete(1, pos+2);
bool ok = true;
if((succ = SetupDiGetDeviceRegistryProperty(hDevInfo, &devinfo, SPDRP_DEVICEDESC, NULL, (LPBYTE)bBuf, sizeof(bBuf), NULL))){
strDesc = bBuf;
m1->Lines->Add(bBuf);
}
ok &= succ;
if((succ = SetupDiGetDeviceRegistryProperty(hDevInfo, &devinfo, SPDRP_FRIENDLYNAME, NULL, (LPBYTE)bBuf, sizeof(bBuf), NULL))){
strName = bBuf;
m1->Lines->Add(bBuf);
}
if((succ = SetupDiGetDeviceRegistryProperty(hDevInfo, &devinfo, SPDRP_CLASS, NULL, (LPBYTE)bBuf, sizeof(bBuf), NULL))){
strClass = bBuf;
m1->Lines->Add(bBuf);
}
ok &= succ;
if((succ = SetupDiGetDeviceRegistryProperty(hDevInfo, &devinfo, SPDRP_SERVICE, NULL, (LPBYTE)bBuf, sizeof(bBuf), NULL))){
strServ = bBuf;
m1->Lines->Add(bBuf);
}
ok &= succ;
if((succ = SetupDiGetDeviceRegistryProperty(hDevInfo, &devinfo, SPDRP_HARDWAREID, NULL, (LPBYTE)bBuf, sizeof(bBuf), NULL))){
strId = bBuf;
m1->Lines->Add(bBuf);
}
ok &= succ;
if(ok && strDesc == DESC && strClass == CLASS && strServ == SERV && strId == ID)
try{
coms[comcnt++] = StrToInt(strPort);
m1->Lines->Add(UnicodeString(L"Это наш порт № ") + coms[comcnt-1]);
}catch(...){}
else
m1->Lines->Add(L"Это не наш порт");
m1->Lines->Add(L"");
}
RegCloseKey(hKey);
}
}
}
}__finally{
SetupDiDestroyDeviceInfoList(hDevInfo);
}
}
m1->Lines->Add(UnicodeString(L"Всего найдено наших портов: ") + comcnt);
Лень было оформлять в виде функций, так, что всё свалено в кучу, и глобальные с локальными переменными и собственно код.
Но там раскидать что куда недолго, зато ничего самописного и не приведённого в примере нет, есть всё необходимое для запуска, даже заголовочный файл.
int coms[256]; // Список портов
int comcnt = 0; // Количество портов
int i=0;
TCHAR devs[65535];
DWORD dwChars = QueryDosDevice(NULL, devs, 65535);
if(dwChars){
while(devs[i]){
UnicodeString str = &devs[i];
if(str.Pos("COM") == 1){
str.Delete(1, 3);
try{
coms[comcnt++] = StrToInt(str);
}catch(...){}
}
while(devs[i++] != _T('\0'));
}
}
Попробовал "вариант 2. Чтение списка из реестра". Прекрасно работает в Windows 10 и 8 не требуется прав админа. Надо только изменить немного 7 строку.
uses Registry,
В место :
7. reg:=TRegistry.Create;
у меря
reg:=TRegistry.Create(KEY_READ);
viagra from canada <a href="https://sildenafilbag.com/">sildenafil over the counter</a> sildenafil davis pdf
viagra memes <a href="http://viagrawallet.org/">women taking viagra</a> sildenafil citrate 100mg
viagra pill <a href="https://topsildenafilcustomer.net/">viagra cialis levitra</a> sildenafil citrate tablets 100mg
https://sildenafilmg.online/# п»їviagra pills
<a href=https://sildenafilmg.com/#>viagra for men</a> buy real viagra online
https://sildenafilmg.online/# viagra cost per pill
<a href=https://sildenafilmg.shop/#>viagra</a> viagra cost
https://sildenafilmg.online/# viagra price
<a href=https://sildenafilmg.shop/#>viagra shop</a> viagra amazon
https://sildenafilmg.online/# buy viagra online usa
<a href=https://sildenafilmg.com/#>sildenafil 20 mg</a> viagra without a doctor prescription usa
https://zithromaxforsale.shop/# zithromax for sale cheap
<a href=https://zithromaxforsale.shop/#>zithromax online usa</a> zithromax without prescription
https://buylasix.icu/# lasix online
<a href=https://buymetformin.best/#>metformin 850 mg cost</a> best generic metformin
https://buylasix.icu/# buy furosemide online
<a href=https://buylipitor.store/#>lipitor 10mg tablet price</a> lipitor 10 mg tablet price
https://buylasix.icu/# lasix online
<a href=https://buytadalafil.men/#>generic tadalafil canada</a> cheap generic tadalafil 5mg
https://gabapentin.icu/# neurontin 1000 mg
<a href=https://cipro.best/#>purchase cipro</a> buy cipro cheap
https://gabapentin.icu/# buy gabapentin online
<a href=https://withoutprescription.store/#>ed meds online without doctor prescription</a> buy prescription drugs without doctor
https://cipro.best/# buy ciprofloxacin over the counter
<a href=https://erectionpills.best/#>non prescription ed pills</a> best ed pills non prescription
https://gabapentin.icu/# neurontin 300mg
<a href=https://erectionpills.best/#>mens ed pills</a> impotence pills
https://diflucan.icu/# buy generic diflucan
<a href=https://erectionpills.best/#>best ed pills</a> male erection pills
https://erectionpills.best/# the best ed pill
<a href=https://cipro.best/#>cipro online no prescription in the usa</a> ciprofloxacin
https://erectionpills.best/# ed medications
<a href=https://diflucan.icu/#>diflucan daily</a> diflucan cream
https://cipro.best/# ciprofloxacin 500mg buy online
<a href=https://withoutprescription.store/#>best ed pills non prescription</a> buy prescription drugs from canada
https://withoutprescription.store/# anti fungal pills without prescription
<a href=https://withoutprescription.store/#>pain meds online without doctor prescription</a> prescription meds without the prescriptions
https://cipro.best/# buy ciprofloxacin
<a href=https://diflucan.icu/#>buy diflucan yeast infection</a> can you buy diflucan over the counter
https://cipro.best/# ciprofloxacin order online
<a href=https://cipro.best/#>buy ciprofloxacin</a> buy ciprofloxacin
https://clomidonline.icu/# clomid 100mg for sale
<a href=https://edpills.best/#>best erection pills</a> cheapest ed pills
https://doxycyclineonline.store/# doxycycline without prescription
<a href=https://drugsonline.store/#>vitality ed pills</a> best pharmacy online
https://stromectol.life/# generic ivermectin
<a href=https://doxycyclineonline.store/#>medicine doxycycline 100mg</a> cheap doxycycline
https://stromectol.life/# ivermectin cream cost
<a href=https://doxycyclineonline.store/#>cheap doxycycline</a> doxycycline cap 50mg
<a href=http://stromectolbestprice.com/#>п»їwhere to buy stromectol online</a> stromectol 3 mg dosage
http://stromectolbestprice.com/# ivermectin topical
https://drugsbestprice.com/# meds online without doctor prescription
<a href=https://drugsbestprice.com/#>ed cures</a> best ed pill
<a href=https://drugsbestprice.com/#>best male enhancement pills</a> ed pills that work
https://drugsbestprice.com/# legal to buy prescription drugs without prescription
<a href=https://medrxfast.com/#>canadian pharmacy online</a> prescription drugs without doctor approval
https://medrxfast.com/# meds online without doctor prescription
https://medrxfast.com/# meds online without doctor prescription
<a href=https://medrxfast.com/#>pet meds without vet prescription</a> prescription without a doctor's prescription
https://medrxfast.com/# prescription drugs online
<a href=https://medrxfast.com/#>online canadian pharmacy</a> online prescription for ed meds
<a href=https://medrxfast.com/#>canadian medications</a> canadian pharmacy online
https://medrxfast.com/# best ed pills non prescription
<a href=https://medrxfast.com/#>buy prescription drugs online</a> best canadian online pharmacy
https://medrxfast.com/# canadian pharmacy online
https://medrxfast.com/# dog antibiotics without vet prescription
<a href=https://medrxfast.com/#>dog antibiotics without vet prescription</a> prescription drugs
<a href=https://medrxfast.com/#>non prescription erection pills</a> cvs prescription prices without insurance
https://medrxfast.com/# buy prescription drugs from india
<a href=https://medrxfast.com/#>mexican pharmacy without prescription</a> dog antibiotics without vet prescription
https://medrxfast.com/# canadian drug pharmacy
https://medrxfast.com/# prescription meds without the prescriptions
<a href=https://medrxfast.com/#>best online canadian pharmacy</a> how to get prescription drugs without doctor
https://medrxfast.com/# pet meds without vet prescription
<a href=https://medrxfast.com/#>canadian drug prices</a> canadian drug pharmacy
<a href=https://medrxfast.com/#>buy prescription drugs from canada</a> buy prescription drugs from india
https://medrxfast.com/# cvs prescription prices without insurance
https://medrxfast.com/# prescription drugs canada buy online
<a href=https://medrxfast.com/#>ed prescription drugs</a> buy cheap prescription drugs online
https://gabapentin.top/# neurontin oral
https://valtrex.icu/# buying valtrex
https://valtrex.icu/# valtrex daily use
<a href=https://gabapentin.top/#>how much is neurontin</a> neurontin medication
https://valtrex.icu/# cheap generic valtrex without prescription
<a href=https://valtrex.icu/#>valtrex 500mg coupon</a> valtrex no prescription price
https://paxil.tech/# paxil weight loss
https://paxil.tech/# paxil brain zaps
https://finasteride.top/# how do i get propecia
<a href=https://finasteride.top/#>buy propecia cheap online</a> buy propecia online
https://azithromycin.blog/# can you buy zithromax online
<a href=https://glucophage.top/#>metformin 500 mg tablets</a> price of metformin
https://glucophage.top/# metformin 104 pill
https://glucophage.top/# metformin 850 mg india
<a href=https://glucophage.top/#>generic metformin prescription mexico</a> metformin price in mexico
https://hydroxychloroquine.icu/# hydroxychloroquine 200mg tablets
https://antibiotic.icu/# augmentin antibiotic
<a href=https://amoxicillin.pro/#>amoxicillin without rx</a> amoxicillin without prescription
https://hydroxychloroquine.icu/# plaquenil medicine
<a href=https://antibiotic.icu/#>amoxicillin 500 tablet</a> bactrim online
https://sildenafil.pro/# sildenafil nz cost
<a href=https://amoxicillin.pro/#>can i buy amoxicillin over the counter</a> amoxicillin price canada
https://antibiotic.icu/# buy amoxicillin from canada
https://hydroxychloroquine.icu/# hydroxychloroquine 200 mg cost
<a href=https://hydroxychloroquine.icu/#>hydroxychloroquine tablets</a> plaquenil 200 mg tablet
<a href=https://pharmacy.ink/#>legal online pharmacies in the us</a> online pharmacy dubai
<a href=https://tamoxifen.best/#>generic tamoxifen</a> tamoxifen medication
https://withoutdoctorprescription.xyz/# how can i order prescription drugs without a doctor
<a href=https://molnupiravir.life/#>monulpiravir</a> where to buy molnupiravir
<a href=https://withoutdoctorprescription.xyz/#>non prescription erection pills</a> ed meds online without doctor prescription
https://tamoxifen.best/# tamoxifen for breast cancer prevention
<a href=https://paxlovid.best/#>paxlovid spc</a> paxlovid ingredients
https://stromectol1st.com/# how quickly does ivermectin work
https://stromectol1st.com/# how to get ivermectin prescription
https://24hr-pharmacy.top/# canadian pharmacies not requiring prescription
<a href=https://clomid.pro/#>buy clomid for men</a> best clomid brand
https://clomid.pro/# buy clomid online uk paypal
https://clomid.pro/# buy clomiphene online
<a href=https://24hr-pharmacy.top/#>canadian drugs online pharmacy</a> discount prescription drugs from canada
<a href=https://clomid.pro/#>buy clomid for men</a> clomid for sale in usa
<a href=https://doxycycline.pro/#>doxycycline 50 mg price uk</a> doxycycline price singapore
https://canadianpharmacy.best/# viagra canadian pharmacy vipps approved
<a href=https://erectionpills.top/#>best medication for ed</a> what are ed drugs
https://canadianpharmacy.best/# northern pharmacy canada
<a href=https://antibioticwithoutpresription.shop/#>where to buy amoxicillin 500mg without prescription</a> buy zithromax without prescription online
https://canadianpharmacy.best/# canadadrugpharmacy com
https://erectionpills.top/# ed treatment drugs
<a href=https://erectionpills.top/#>best over the counter ed pills</a> best ed drugs
https://antibioticwithoutpresription.shop/# order doxycycline 100mg without prescription
<a href=https://erectionpills.top/#>ed meds</a> impotence pills
https://canadianpharmacy.best/# canadian pharmacies comparison
https://canadianpharmacy.best/# canada ed drugs
<a href=https://antibioticwithoutpresription.shop/#>amoxicillin order online no prescription</a> amoxicillin without prescription
https://canadianpharmacy.best/# canadian pharmacy 24 com
<a href=https://canadianpharmacy.best/#>canadadrugpharmacy com</a> legit canadian pharmacy
https://antibioticwithoutpresription.shop/# cheap bactrim
https://antibioticwithoutpresription.shop/# buy cheap zithromax online
<a href=https://pharmacywithoutprescription.best/#>best canadian pharmacy no prescription</a> online pharmacy non prescription drugs
https://canadianpharmacy.best/# escrow pharmacy canada
<a href=https://pharmacywithoutprescription.best/#>canadian pharmacy no prescription</a> canadian pharmacy no prescription needed
https://antibioticwithoutpresription.shop/# doxycycline without a prescription
https://pharmacywithoutprescription.best/# canadian pharmacy no prescription needed
<a href=https://erectionpills.top/#>buying ed pills online</a> what are ed drugs
https://pharmacywithoutprescription.best/# canada online pharmacy no prescription
<a href=https://canadianpharmacy.best/#>vipps canadian pharmacy</a> pharmacies in canada that ship to the us
https://antibioticwithoutpresription.shop/# amoxicillin without prescription
https://stromectolivermectin.pro/# ivermectin
https://buytadalafil.icu/# tadalafil cheap
<a href=https://pillswithoutprescription.xyz/#>non prescription ed pills</a> prescription drugs online without doctor
https://pillswithoutprescription.xyz/# buy prescription drugs without doctor
<a href=https://pillswithoutprescription.xyz/#>buy prescription drugs</a> carprofen without vet prescription
https://doxycyclinemonohydrate.icu/# buy doxycycline monohydrate
https://buytadalafil.icu/# buy tadalafil 20mg price
<a href=https://pillswithoutprescription.xyz/#>best canadian online pharmacy</a> online canadian drugstore
https://buysildenafil.best/# sildenafil gel uk
<a href=https://buytadalafil.icu/#>tadalafil for sale from india</a> best tadalafil tablets in india
https://buysildenafil.best/# 20 mg sildenafil cheap
<a href=https://buytadalafil.icu/#>tadalafil over the counter uk</a> tadalafil online no prescription
https://doxycyclinemonohydrate.icu/# order doxycycline 100mg without prescription
https://cipro.pro/# ciprofloxacin generic
<a href=https://amoxil.best/#>medicine amoxicillin 500mg</a> where can i buy amoxicillin online
<a href=https://cipro.pro/#>antibiotics cipro</a> buy ciprofloxacin
https://zithromax.best/# zithromax online pharmacy canada
<a href=https://cipro.pro/#>buy cipro online without prescription</a> cipro
https://zithromax.best/# zithromax drug
<a href=https://antibiotic.best/#>cheap zithromax pills</a> amoxicillin order online no prescription
<a href=https://cipro.pro/#>ciprofloxacin generic price</a> cipro 500mg best prices
https://amoxil.best/# amoxicillin 500 mg where to buy
<a href=https://amoxil.best/#>where can you buy amoxicillin over the counter</a> generic amoxicillin cost
https://antibiotic.best/# zithromax online no prescription
<a href=https://cipro.pro/#>п»їcipro generic</a> buy cipro
<a href=https://cipro.pro/#>ciprofloxacin generic price</a> cipro 500mg best prices
https://cipro.pro/# buy cipro cheap
<a href=https://zithromax.best/#>zithromax 250 mg pill</a> can you buy zithromax over the counter in australia
https://buydoxycycline.icu/# doxycycline tetracycline
<a href=https://cipro.pro/#>ciprofloxacin generic price</a> ciprofloxacin 500mg buy online
<a href=https://buydoxycycline.icu/#>doxycycline 500mg</a> online doxycycline
https://antibiotic.best/# cheap bactrim
<a href=https://cipro.pro/#>cipro 500mg best prices</a> buy generic ciprofloxacin
https://zithromax.best/# zithromax 1000 mg pills
<a href=https://amoxil.best/#>cost of amoxicillin prescription</a> amoxil pharmacy
<a href=https://amoxil.best/#>how much is amoxicillin prescription</a> amoxicillin order online
https://antibiotic.best/# bactrim without prescription
<a href=https://antibiotic.best/#>prescription for amoxicillin</a> bactrim and sepra without a presription
https://cipro.pro/# buy cipro cheap
<a href=https://buydoxycycline.icu/#>buy doxycycline online</a> doxycycline hyclate 100 mg cap
<a href=https://cipro.pro/#>ciprofloxacin over the counter</a> buy cipro online without prescription
https://canadian-pharmacy.shop/# trusted canadian pharmacy
<a href=https://canadian-pharmacy.shop/#>best canadian pharmacy</a> canada cloud pharmacy
https://prednisone20mg.icu/# prednisone 2 mg daily
<a href=https://prednisone20mg.icu/#>can you buy prednisone</a> prednisone pills for sale
https://canadian-pharmacy.shop/# canadian pharmacy 24h com safe
<a href=https://erectiledysfunctionpills.shop/#>best ed pills at gnc</a> erection pills online
https://viagravgr.best/# viagra without a doctor prescription usa
<a href=https://viagravgr.best/#>viagra over the counter walmart</a> viagra over the counter
https://erectiledysfunctionpills.shop/# treatments for ed
<a href=https://prednisone20mg.icu/#>prednisone 10mg cost</a> prednisone acetate
https://viagravgr.best/# viagra cost
https://datingtopreview.online/# dating web
<a href=https://datingtopreview.com/#>datng websites</a> online dating sites for free 100%
<a href=https://datingtopreview.com/#>daiting online</a> 100% inspektion
<a href=https://datingtopreview.com/#>totally free dating on facebook</a> thai flirt
https://datingtopreview.online/# best adult site
<a href=https://datingtopreview.online/#>best sites dating</a> best free dating site
<a href=https://datingtopreview.online/#>top online meeting sites</a> dating sites absolutely free
<a href=https://datingtopreview.com/#>online dating sites for free</a> totally free dating sites near nelson
https://datingtopreview.com/# free dating siwomen
<a href=https://datingtopreview.com/#>connecting singles online members</a> christiandatingforfree search
<a href=https://datingtopreview.com/#>free dating siwomen</a> best dating online site
<a href=https://datingtopreview.com/#>adult chat free</a> dating sites absolutely free
https://datingtopreview.com/# free datinsites chat
<a href=https://datingtopreview.online/#>local personals</a> meet women locally
<a href=https://datingtopreview.online/#>meet women at zushi beach</a> free date site
<a href=https://datingtopreview.online/#>top dateing sites</a> asien dating online
https://datingtopreview.online/# singles dating sites
<a href=https://datingtopreview.online/#>strydom mail</a> date chatting sites
<a href=https://datingtopreview.online/#>best dating service</a> dating services online
<a href=https://datingtopreview.online/#>victoriasonlinedating</a> free dating sites for men
<a href=https://datingtopreview.com/#>free local singles</a> top sites dating
<a href=https://datingtopreview.online/#>single web site</a> meet single women online
<a href=https://datingtopreview.com/#>free adult personals site</a> find my dating
<a href=https://datingtopreview.com/#>best datings sites</a> dating sites without registering
https://pharmacyreview.best/# canada pharmacy 24h
<a href=https://withoutprescription.shop/#>overseas pharmacies online</a> overseas no rx drugs online
<a href=https://pharmacyreview.best/#>canadianpharmacyworld</a> canadian discount pharmacy
https://pharmacyreview.best/# online canadian pharmacy
<a href=https://datingonline.best/#>datinghotlot</a> single seniors dating sites
https://datingonline.best/# free free dating sites
<a href=https://withoutprescription.shop/#>prescription drugs online without</a> trusted online canadian pharmacy
<a href=https://withoutprescription.shop/#>prescription cost comparison</a> online canadian discount pharmacy
https://datingonline.best/# asian online dating
<a href=https://datingonline.best/#>ourtime dating site log in</a> internet dating sites
https://pharmacyreview.best/# cheap viagra canadian pharmacy
<a href=https://datingonline.best/#>100% dating site</a> meet singles online dating
<a href=https://datingonline.best/#>freetalk45</a> best dating apps
https://pharmacyreview.best/# canadian discount pharmacy
<a href=https://withoutprescription.shop/#>canadian pharmacy no rx needed</a> canada drugs online reviews
https://datingonline.best/# lady dating
<a href=https://datingonline.best/#>faroedating chat</a> new dating
<a href=https://datingonline.best/#>online dating services</a> dating sites in usa
https://datingonline.best/# top dating sites
<a href=https://withoutprescription.shop/#>online pharmacy</a> canadian pharmacy prescription
<a href=https://withoutprescription.shop/#>online pharmacies in canada</a> world pharmacy
https://pharmacyreview.best/# cheap canadian pharmacy
<a href=https://withoutprescription.shop/#>canadian pharmacy without prescription</a> canadian pharmacy antiobotics without perscription
https://withoutprescription.shop/# certified canadian online pharmacies
<a href=https://pharmacyreview.best/#>pharmacy canadian superstore</a> ordering drugs from canada
<a href=https://pharmacyreview.best/#>canadianpharmacyworld</a> canadian world pharmacy
https://pharmacyreview.best/# canadian pharmacy online reviews
<a href=https://withoutprescription.shop/#>online canadian pharcharmy</a> no script pharmacy
https://datingonline.best/# best dating websites online
<a href=https://datingonline.best/#>plenty of fish dating site of free dating</a> local free personal ads
https://finasteride.pro/# finasteride 5mg
<a href=https://finasteride.pro/#>generic propecia uk</a> propecia.com
https://amoxil.pro/# amoxicillin 500mg price canada
https://doxycycline100mg.xyz/# 200 mg doxycycline
<a href=https://clomiphenecitrate.pro/#>clomid canada</a> clomid purchase
https://finasteride.pro/# where to buy propecia
<a href=https://doxycycline100mg.xyz/#>doxycycline tetracycline</a> where to purchase doxycycline
https://finasteride.pro/# propecia where to buy
https://prednisone.pro/# prednisone pills cost
<a href=https://finasteride.pro/#>buy propecia online cheap</a> propecia proscar
https://finasteride.pro/# propecia 5 mg
<a href=https://finasteride.pro/#>prosteride</a> cheap generic propecia
https://prednisone.pro/# prednisone drug costs
https://amoxil.pro/# amoxicillin 500 mg brand name
<a href=https://doxycycline100mg.xyz/#>buy doxycycline online 270 tabs</a> where to get doxycycline
https://prednisone.pro/# average price of prednisone
<a href=https://amoxil.pro/#>buying amoxicillin in mexico</a> buy amoxicillin online no prescription
https://cls20.com/# brand cialis trial pack
<a href=https://indiadrg.com/#>cheap generic drugs from india</a> legitimate online pharmacies india
https://safedrg.com/# canadian pharmacy no prescription needed
https://cls20.com/# brand levitra cialis viagra add to cart
<a href=https://safedrg.com/#>canadian pharmacy no prescription needed</a> canadian online pharmacy no prescription
https://strominve19.com/# ivermectin 6mg dosage
<a href=https://safedrg.com/#>canadian mail order pharmacy</a> canadian pharmacy no prescription needed
https://cls20.com/# cialis 20 mg
<a href=https://safedrg.com/#>canadian pharmacy no prescription needed</a> canadian pharmacy no prescription needed
https://safedrg.com/# canadian pharmacy no prescription needed
<a href=https://www.cialist100.com/#>cialis pill</a> cialis capsules canada
https://safedrg.com/# reputable canadian pharmacy
https://pharmfast24.online/# pharmacy prices compare
<a href=https://pillfast24.com/#>canadian neighbor pharmacy legit</a> canadian drug store coupon
<a href=https://pillfast24.com/#>canada online pharmacy</a> canada medications online
https://pillfast24.com/# canadian mail order viagra
<a href=https://pillfast24.online/#>online pharmacies legitimate</a> best rated canadian online pharmacy
https://pillfast24.online/# top rated online canadian pharmacies
<a href=https://pharmfast24.online/#>international pharmacies</a> buy canadian pharmacy
https://pharmfast24.online/# prescription pricing
<a href=https://pillfast24.online/#>medications canada</a> giant discount pharmacy
<a href=https://pillfast24.online/#>canadian meds</a> canadian drug store coupon
https://pharmfast24.online/# usa pharmacy online
<a href=https://pillfast24.com/#>canadian mail order viagra</a> safe canadian internet pharmacies
https://drugsfromcanada.store/# canadian mail order pharmacy
<a href=https://stromectolus.store/#>ivermectin paste for pigs</a> ivermectin pour on for sheep
https://stromectolus.store/# stromectol dosage for humans
<a href=https://stromectolus.store/#>ivermectin pills canada</a> ivermectin dosing
https://sildenafilcitrate100mg.store/# buy sildenafil viagra
<a href=https://doxycycline100mg.site/#>buy doxycycline monohydrate</a> doxycycline tablets online
https://clomidforsale.site/# buying clomid online
<a href=https://doxycycline100mg.site/#>doxycycline south africa</a> where can i get doxycycline pills
https://sildenafilcitrate100mg.store/# india sildenafil
<a href=https://nonprescriptiontadalafil.site/#>order tadalafil 20mg</a> tadalafil 20 mg over the counter
https://buyamoxil.site/# amoxicillin script
<a href=https://sildenafilcitrate100mg.store/#>sildenafil singapore</a> pharmacy prices for sildenafil
https://pharm24.site/# cheap drug prices
<a href=https://ed-pills.site/#>best otc ed pills</a> cure ed
https://prednisone20mg.site/# buy prednisone online no script
<a href=https://pharm24.site/#>medication without prior prescription</a> top rated online pharmacy
https://pharm24.site/# most reputable canadian pharmacy
<a href=https://pharm24.site/#>mexican drugstore online</a> non prescription drugs
https://prednisone20mg.site/# prednisone purchase online
<a href=https://topdatingsites.fun/#>dating personals free</a> dating sites for mature singles adults
https://canadiandrugs.site/# canadian pharmacy no scripts
<a href=https://canadiandrugs.site/#>canadian neighbor pharmacy</a> northern pharmacy canada
https://canadiandrugs.site/# legit canadian pharmacy online
<a href=https://ed-pills.site/#>what are ed drugs</a> cheap erectile dysfunction
https://topdatingsites.fun/# meetme dating site
<a href=https://topdatingsites.fun/#>internet dating</a> datiing websites
<a href=https://cialisory.com/>generic cialis online</a>
Source: <a href="https://clspls.com/ ">buy tadalafil</a>
https://prescriptiondrugs24.com/# legal to buy prescription drugs from canada
<a href=https://prescriptiondrugs24.com/#>ed pills without doctor prescription</a> buy prescription drugs without doctor
https://prescriptiondrugs24.com/# prescription drugs without doctor approval
pet meds without vet prescription <a href=" https://prescriptiondrugs24.com/# ">carprofen without vet prescription</a>
https://prescriptiondrugs24.com/# buy prescription drugs from canada cheap
http://www.ghsp.com/?URL=https://cialisory.com
https://edpillsfast.com/# online ed medications
<a href=https://edpillsfast.com/#>ed pills</a> best medication for ed
https://edpillsfast.com/# cheap erectile dysfunction pill
<a href=https://edpillsfast.com/#>top erectile dysfunction pills</a> new ed pills
<a href=https://naijamoviez.com/#>online pharmacy no prescription necessary</a> buy meds online
legitimate online pharmacy <a href=" https://naijamoviez.com/# ">ed pills without doctor prescription</a>
<a href=https://naijamoviez.com/#>ed pills online canada</a> top rated online pharmacies
reputable online canadian pharmacies <a href=" https://naijamoviez.com/# ">discount ed drugs</a>
<a href=https://naijamoviez.com/#>discount ed drugs</a> canada prescription drugs
canadian prescription drug store <a href=" https://naijamoviez.com/# ">ed pills without doctor prescription</a>
Source: <a href="https://clspls.com/ ">generic cialis</a>
https://valtrex.pro/# price of medicine valtrex
<a href=https://zithromaxpills.store/#>how to get zithromax online</a> where can i buy zithromax medicine
https://metformin.pro/# 494829 metformin
<a href=https://valtrex.pro/#>buy valtrex pills online</a> valtrex best prices
<a href=https://zithromaxpills.store/#>zithromax 250 mg pill</a> buy zithromax without presc
A: Women need single wait a scattering seconds in the forefront the flawed round, with innumerable in spite of that achieving multiple orgasms in limerick session. In comparison, the masculine refractory full stop varies post ejaculation, with some men psyched up after a scattering minutes and some men needing very many hours to days. <a href="https://bluethshop.com/ ">can i get viagra without a prescription</a>.
A: <a href="https://sildenafilhim.com/#">viagra pill color</a> All tidings there meds. Get message now.
And erectile dysfunction is inappropriate to dissolve into without some treatment or lifestyle changes. Your husband definitely should see his fettle provide for provider thither erectile dysfunction. Erectile dysfunction is the inability to talk someone into or watch over an erection firm sufficiency in the service of sex. It's a standard problem. https://sildenafilhim.com
Women need single stand by a not many seconds in front of the number two round, with innumerable composed achieving multiple orgasms in at one session. In resemblance, the masculine refractory spell varies advise ejaculation, with some men psyched up after a handful minutes and some men needing several hours to days.
https://metformin.pro/# metformin 500 mg cost
<a href=https://prednisonepills.site/#>prednisone 10</a> buy prednisone from india
<a href=https://prednisonepills.site/#>prednisone cost in india</a> prednisone pak
https://zithromaxpills.store/# zithromax 500
<a href=https://stromectolpills.store/#>cost of ivermectin</a> stromectol tab price
<a href=https://stromectolpills.store/#>ivermectin 1% cream generic</a> ivermectin price usa
https://stromectolpills.store/# stromectol uk
<a href=https://stromectolpills.store/#>ivermectin 5 mg</a> stromectol 6 mg dosage
<a href=https://zithromaxpills.store/#>zithromax online</a> zithromax 500 mg
<a href=https://datingsiteonline.site/#>usa free dating sites</a> local-singles club
https://pharmacyshippingtousa.icu/# buy canadian pharmacy
<a href=https://sildenafil100mg.store/#>buy sildenafil without a prescription</a> sildenafil price
Source: <a href="https://clspls.com/ ">cialis</a>
<a href=https://pharmacyshippingtousa.icu/#>foreign online pharmacy</a> mexican border pharmacies shipping to usa
https://sildenafil100mg.store/# generic sildenafil canada
<a href=https://datingsiteonline.site/#>dating club</a> lesbian mature
<a href=https://datingsiteonline.site/#>dating direct</a> international singles
https://tadalafil20mg.fun/# tadalafil 30
<a href=https://canadiandrugpharmacy.best/#>safe canadian pharmacy</a> canadian pharmacy ltd
<a href=https://tadalafil20mg.fun/#>tadalafil</a> price comparison tadalafil