Access violation...

[Cribster]

Witam.

 

Robie wszystko według artykułu 'DirectSQL cz.1' i wszystko jest niby OK, dopóki nie wcisnę buttona Połącz. Wywala błąd Access Violation. Nie mam pojęcia co z tym teraz zrobić.

 

Z góry dzięki za pomoc.

[filuu]

Coś wiecej powiedz ...

 

Na początek proponuje sprawdzić co jest nie tak..

[Cribster]

Coś wiecej powiedz ...

 

Na początek proponuje sprawdzić co jest nie tak..

 

Ciężko jest napisać coś więcej przy takim progsie. Kod zdarzenia jest taki jak w kursie:

1. with MySQLClient do
2. begin
 3. Host := 'localhost';
 4. Port := 3307;
 5. User := 'admin';
 6. Password := 'magic';
 7. UnixSocket := '';
 8. Db := 'mysql';
 9. UseNamedPipe := true;
 10. UseSSL := false;
 11. Compress := true;
 12. TrySockets := false;
13. end;
14. if MySQLClient.Connect then
 15. Memo1.Lines.Add ('Jesteś połączony :)')
16. else
 17. Memo1.Lines.Add ('Siakiś błąd:( '+MySQLClient.LastError);

 

Błąd: "Access violation at address ... in module ... Read of address ...

 

Zaznaczam, że jestem początkujący : )

[Toster]

nom, to powiedz jeszcze czy AV jest z jakims adresem czy sa tam same zera. Pod drugie powiedz w ktorej lini wyskakuje AV, na poczatku na koncu ?

[Cribster]

nom, to powiedz jeszcze czy AV jest z jakims adresem czy sa tam same zera. Pod drugie powiedz w ktorej lini wyskakuje AV, na poczatku na koncu ?

 

1.Access violation at address 0046406A in module 'Project1.exe'. Read of address 00000008.

2.Szczerze mówiąc, nie wiem jak mam sprawdzić gdzie się pojawia AV. Jak daje CPU View to wskazuje na uMysqlClient.pas.1899

[Cribster]

Dobra. Problem solved.

 

Teraz pojawia się inny: "Can't connect to MySQL server on 'mysql3.yoyo.pl' (0)" przy próbie połączenia

[Toster]

no to jest dosyc oczywiste. Server odmawia ci polaczenia, albo zly adres/port albo user/pass jest nie ten teges.

Po drugie jak rozwiazales problem to napisz co go powodowalo i jak go naprawiles, moze sie przyda innym

[Cribster]

1.Zapomniałem o tych dwóch procedurach...

procedure TForm1.FormCreate(Sender: TObject);
begin
 memo1.lines.clear;
 MYSQLClient:=TMySQLClient.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 MYSQLClient.Free;
end;

 

2. Adres, user, pass na pewno dobre dlatego się dziwię, że ten błąd w ogóle się pojawia.

[Toster]

sproboj skonfigurowac to polaczenie przez ODCB i sprawdz 'Test Connection', jesli pojdzie ok to w Delphi tez pojdzie łaski nie robi

[Cribster]

Specjalnie nie wiedziałem o co chodzi z tym ODBC ale jakoś dałem rade : P.

 

Też nie chce się połączyć...

"Server does not exist or access denied."

[KKKas]

Możliwe, że nie ma dostępu do serwera z zewnątrz, tylko z localhosta.

[Cribster]

Można jaśniej ? : >

[Toster]

serwer moze miec wypisana liste hostow z ktorych przyjmuje polaczenia. Czesto jest tak ze dostep do bazy ma tylko okreslony komputer. Tak wiec server moze przyjmowac tylko polaczenia z localhosta, innymi slowy piszac strone www ktora z tego kozysta wszystko bedzie dzialac bo zarowno serwer www jak i SQL beda pewnie na jednej maszynie/klastrze, natomiast dostep z zewnatrz bedzie niemozliwy.

[Cribster]

Czyli w tym wypadku nie ma rozwiązania mam rozumieć ?

 

Dzięki za pomoc.

 

edit:

Co znaczy : Can't open named pipe to host: . pipe: MySQL (2)

[KKKas]

Coś o rurach. Chyba, że trzeba zawołać hydraulika czy coś.

[Toster]

lol

uzyj TCP/IP a nie pipow bo one na 100% beda zamkniete