access violation at address ??? in module ...... hatası

[kazimates]

programımı d5 de yaptım ve daha sonra d6 ya gectım bu arada dağınıklıkları yok etmek için programa data module ekledim ama programı run ettiğim zaman 4 sefer farklı adresler olmak uzere
access violation at adress xxxxxxx in module 'Project1.exe'. Read of address xxxxxxx.
diye xxx alanlarda adress yazıyor ve bu hata mesajı 4 sefer karsıma cıkıyor ok dedikten sonra program atasız calısıyor gozukuyor bu hata nereden geliyor olabilir ve çözümünü nasıl bulabiliriz?

[hdayi]

Artık var olmayan bir nesneye ulaşmaya çalışıyor program. Bi break point koyup denersen bulursun hangi nesne olduğunu.

Kolay Gelsin...

[aslangeri]

s.a.
programı satır satır çalıştırıp hatayı verdiği satırları kontrol et.
muhtemelen create edilmemiş bir nesneye ulaşmaya çalışıyorsundur.
benim tahminim datamodulu create etmeden tablolardan birini açmaya çalışıyorsun.
eğer sorun bu ise
project---options dan forms sekmesinde autocreateforms alanında datamodulun yerini üst satırlara getirmen sorunun çözecektir.
kolay gelsin.

[i_zec]

..
..
..

type
kanal=class(tthread)
public
procedure execute;override;

..
..
..
..
..



procedure kanal.execute;
begin



..
..
..
..
end;


procedure TForm1.button1click(sender:tobject);
begin
kanal.Create(false);

..
..
..

end;
..
..
..
..





kanal.create ın içinde bir dongum var .bu da programın kıtlenmesıne neden oluyo .aslında ilk başta kanal açmadan application.processmessage kullandım ama bu derdıme derman olmadı... o yuzden boyle bi yol izledim.

sorunum şu:
program çalıştığından guzel guzel çalışıyo.Çalışmasında hiç bir problem yok ancak program ı kapatırken (yani formlar kayboluyo ve hata mesajı cıkıyo )access violation hatası veriyo... nedenı ne anlayamadım .... ?

[t-hex]

programı delphi içinden çalıştırın ve hata verildiği anda,
Views > Debug Windows > Call Stack penceresini açın, orada en üstte görünen metod en son çalışan ve muhtemelen de sorunun olduğu metoddur.

[PROGRAMADOR]

Formu create etmeden önce datamodule'ü create etmelisiniz. Datamodule üzerindeki komponentlere datamodule create olmadan önce form üzerinden ulaşmaya çalıştığınızdan bu sorunu yaşıyorsunuz.

Konu eski ama görünce yazmak istedim

[enes6635]

(win10)(Delphi 10.2)
Httprio ile soap sorgusu yaparken sorunla karşılaştım
şöyle bir hata alıyorum bunun çözümü nedir acaba bilen var mı?

[greenegitim]

(win10)(Delphi 10.2)
Httprio ile soap sorgusu yaparken sorunla karşılaştım
şöyle bir hata alıyorum bunun çözümü nedir acaba bilen var mı?

resim görünmüyor ama tahminen create edilmemiş yada free edilmiş bir nesneye ulaşmaya çalışıyorsunuz örnek kod paylaşırsanız daha verimli olur.

[ertank]

(win10)(Delphi 10.2)
Httprio ile soap sorgusu yaparken sorunla karşılaştım
şöyle bir hata alıyorum bunun çözümü nedir acaba bilen var mı?

Merhaba, var ise içinden kullanıcı adı ve şifre bilgilerini gizleyerek örnek kod paylaşabilir misiniz?

[enes6635]

Kodlar şu şekilde

Kod: Tümünü seç

procedure TForm2.Button1Click(Sender: TObject);
var
WS : AWSECommerceServicePortType;
//service : CollectionSummary;
RIO:THTTPRIO;
Request:ItemSearch;
Response:ItemSearchResponse;
i:integer;
j:integer;
begin
RIO:=THTTPRIO.Create(nil);
RIO.URL:='https://webservice.amazon.com/onca/soap?Service=AWSECommerceService';
WS:= (RIO as AWSECommerceServicePortType);
Request:=nil;
Response:=nil;
try
  Request:=ItemSearch.Create();
  Request.MarketplaceDomain:='0,M';
  Request.AWSAccessKeyId:='kullanıcikey';
 Request.AssociateTag:='' ;
 //Request.Shared := ItemSearchRequest.Create();
  Request.Shared.Artist := 'Cem Karaca';
try
      WS.ItemSearch(Request);  // ItemSearch
    except
      on E: Exception do
      begin
        Memo1.Lines.Add('Hata: ' + E.Message);
        Memo1.Lines.Add(EmptyStr);
      end;
    end;
      Memo1.Lines.Add('req');
    // Gelen
    for I := Low(Response.Items) to High(Response.Items) do
    begin
      Memo1.Lines.Add('Qid: ' + Response.Items[I].Qid);
      Memo1.Lines.Add('Toplam sonuç: ' + Response.Items[I].TotalResults.ToString());
      Memo1.Lines.Add('Toplam "item": ' + Length(Response.Items[I].Item).ToString());
      for J := Low(Response.Items[I].Item) to High(Response.Items[I].Item) do
      begin
        Memo1.Lines.Add('ASIN: ' + Response.Items[I].Item[I].ASIN + ', ParentASIN: ' + Response.Items[I].Item[I].ParentASIN + ', ' + Response.Items[I].Item[I].SalesRank);
      end;
    end;
    Memo1.Lines.Add(EmptyStr);
finally
    Request.Free();
    Response.Free();
    Screen.Cursor := crDefault;
  end;
end;

[ertank]

Merhaba, Aşağıdaki satır hatalı

Kod: Tümünü seç

 WS.ItemSearch(Request);  // ItemSearch

doğrusu

Kod: Tümünü seç

Response := WS.ItemSearch(Request);  // ItemSearch

[enes6635]

hala aynı hatayı alıyorum

[ertank]

Aşağıdaki satırında başındaki // işaretleri kaldırılması gerekli

Kod: Tümünü seç

 //Request.Shared := ItemSearchRequest.Create();