WinSock-Problem geklärt

Ich möchte noch ergänzen, dass das alles abstrahiert wurde, um dem Problem auf die Sprünge zu kommen. Falls jemand den Fehler gefunden hat, kann er auch mit dem Original- Testprogramm testen:

extern "C" void qqctest_(float*,float*,char*,float*,float*);
extern "C" void qqopen_(float*,float*,char*,float*,float*);
extern "C" void qqpoint_(float*,float*);
extern "C" void qqline_(float*,float*);
extern "C" void qqclose_();
extern "C" void g95_runtime_start(int argc, char *argv[]);
extern "C" void g95_runtime_stop();
int main()
{
float ix, iy, scalex, scaley;
char outfile[14], *openarg;
int i;

i=0;
openarg=0;
g95_runtime_start(i, &openarg);
ix=1201.; iy=1001.;
scalex=1.; scaley=1.;
/*qqctest_(&ix,&iy,".\\qqtest.bmp\0",&scalex,&scaley);*/
qqopen_(&ix,&iy,".\\qqtest.bmp\0",&scalex,&scaley);
ix=10.;iy=10.;
qqpoint_(&ix,&iy);
ix=1190.; iy=990.;
qqline_(&ix,&iy);
qqclose_();
g95_runtime_stop();
return 0;
}

Ergänzung: Ruft man das alles aus einem Fortran-Programm heraus auf, dann läuft das problemlos.

weitere Ergänzung: Dass die Laufzeitbibliothek erfolgreich initialisiert wurde, kann man sehen, wenn man testweise Read- oder Write-Statements einfügt wie z.B.

write (6,*) "Der Wert von x ist", x
read (5,*)

Das funzt problemlos.

Eine kleine Zeile hat's verursacht:

i=hostnm(hostname)

Die Prozedur hostnm kann die WinSock wohl nicht.


Ich möchte mich bei allen bedanken, die sich Gedanken zu dem Thema gemacht haben. Dass das niemand lösen konnte, war mir natürlich vorher nicht klar.

Na dann aber ab in die Ecke und schämen 

Na dann aber ab in die Ecke und schämen