func BeginThread: fehlerhafte Parameterübergabe

[Nogge]

Hallo Community,
ich habe hier ein ziemlich mysteriöses Verhalten entdeckt:

Delphi-Quellcode:

function OpenURL(url: PChar): Integer;
var icy: PChar;
begin
  Result := 0;
    //ShowMessage(url);
  Record_Channel := BASS_StreamCreateURL(url, 0, BASS_STREAM_META or
  BASS_STREAM_STATUS,@StatusProc, 0);
  {...}
end;

procedure TForm_RTRecording.Button2Click(Sender: TObject);
var ThreadId: Cardinal;
begin
  if (cthread <> 0)
  then MessageBeep(0)
  else
  cthread := BeginThread(nil, 0, @OpenURL, PChar(Edit1.Text), 0, ThreadId);
    //ShowMessage('kp wieso, aber ShowMessage muss aufgerufen werden ;_;');
end;

BeginThread wird nur dann korrekt ausgeführt, wenn ich ShowMessage('kp...') anzeigen lasse. Sonst, wenn ich ShowMessage(url) aktiviere, kommt der oben angegebene Fehler. Wieso muss ich also ShowMessage('kp...') ausführen, damit alles funktioniert?

[Luckie]

Nimm im Thread eine Messagebox, dann sollte es klappen. Das hängt irgendwie mit der VCL zusammen. Der ShowMessage-Dialog ist ein Eigenbau von Borland und der Canvas ist nicht threadsafe.

[Nogge]

Vielen Dank für den Hinweis ! Jetzt weiß ich endlich, was bei der Übergabe des Parameters nicht stimmt. Wenn ich ShowMessage('kp...') nicht anzeigen lasse, wird anstatt Edit1.Text ein Label.Caption von der selben Form übergeben :roll: :?:
Das finde ich ziemlich seltsam O_O

[Luckie]

So:

Delphi-Quellcode:

PChar(Edit1.Text)

übergibt man auch keine parameter an Threads. Guck dir dazu mal mein Threadingtutorial an: http://tutorials.luckie-online.de

[Nogge]

Ich habe diese Variante aus einem Beispiel für die Verwendung der BASS-Engine:

Delphi-Quellcode:

const
  urls: array[0..9] of String = (
    'http://64.236.34.196/stream/2001','http://205.188.234.129:8024',
    'http://64.236.34.97/stream/1006','http://206.98.167.99:8406',
    'http://160.79.1.141:8000/','http://206.98.167.99:8006',
    'http://205.188.234.4:8016','http://205.188.234.4:8014',
    'http://server2.somafm.com:8000','http://server1.somafm.com:8082'
  );

function OpenURL(url: PChar): Integer;
var
  icy: PChar;
begin
  Result := 0;
  BASS_StreamFree(Form1.chan); // close old stream
  Form1.Label4.Caption := 'connecting...';
  Form1.Label3.Caption := '';
  Form1.Label5.Caption := '';
  Form1.chan := BASS_StreamCreateURL(url, 0, BASS_STREAM_META or BASS_STREAM_STATUS,
                                                            @StatusProc, 0);
  if (Form1.chan = 0) then
  begin
    Form1.Label4.Caption := 'not playing';
    Error('Can''t play the stream');
  end
  else
  begin
    // get the broadcast name and bitrate
    icy := BASS_StreamGetTags(Form1.chan, BASS_TAG_ICY);
    if (icy <> nil) then
      while (icy^ <> #0) do
      begin
        if (Copy(icy, 1, 9) = 'icy-name:') then
          Form1.Label4.Caption := Copy(icy, 11, Length(icy) - 10)
        else if (Copy(icy, 1, 7) = 'icy-br:') then
          Form1.Label5.Caption := 'bitrate: ' + Copy(icy, 9, Length(icy) - 8);
        icy := icy + Length(icy) + 1;
      end;
    // get the stream title and set sync for subsequent titles
    DoMeta(BASS_StreamGetTags(Form1.chan,BASS_TAG_META));
    BASS_ChannelSetSync(Form1.chan,BASS_SYNC_META,0,@MetaSync,0);
    // play it!
    BASS_ChannelPlay(Form1.chan,FALSE);
  end;
  Form1.cthread := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ThreadId: Cardinal;
begin
  if (cthread <> 0) then
    MessageBeep(0)
  else
    cthread := BeginThread(nil, 0, @OpenURL, PChar(urls[TButton(Sender).Tag]), 0, ThreadId);
end;

Was ist denn bei diesem Code anders als bei meinem (mit diesem funktioniert es nämlich einwandfrei!)?

[Nogge]

Ok, ich habe jetzt meinen fehler entdeckt: man darf bei dem packed record kein PChar deklarieren, sondern muss z.B. bei einem String die max Länge angeben.

Delphi-Quellcode:

type
  TParameter = packed record
    Text: String[255];
  end;
  PParameter = ^TParameter;

Jetzt funktioniert es wie gewünscht.

[Nogge]

Ich habe zu dem Quellcode aus der BASS-Engine trotzdem noch mal eine Frage:
Warum kann ich hierbei dem Thread einen Parameter vom Typ PChar übergeben? Liegt es daran, dass die url-array-Strings fest definiert wurden und keinen durch den Benutzer beliebigen String enthalten kann?